La commande LOAD est utilisée pour charger un programme ou une table qui est indépendamment compilé ou assemblé et édité par lien et enregistré dans PPT.

Cette commande est utile pour charger dynamiquement une table ou un programme d’application. Autrement dit, en tant qu’application, une table peut être codée dans Assembler, assemblée et éditée en lien. Ensuite, le programme COBOL peut le charger en tant que table.

Syntaxe:

EXEC CICS LOAD
    PROGRAM(Nom Programme)
    SET(Reference Pointer)
    LENGTH(longueur)
    ENTRY(Reference Pointer)
    HOLD
END-EXEC.

Description:

• PROGRAM
  Programme à charger dans l’espace d’adressage CICS
  
• SET
  Référence du pointeur à l’adresse de Table/Programme/Carte
  
• LENGTH
  S9(4) COMP. Longueur du module (si longueur < 32 k)
  
• HOLD
  Module résidant en mémoire même lorsque la tâche se termine

---

Exemple:

EXEC CICS LOAD
    PROGRAM(PGM1)
    SET(ADDRESS DE LK-ITEM)
    LENGTH(WS-LONGUEUR)
END-EXEC.

Le programme PGM1 est chargé et l’adresse du programme ou de la table est mappée sur LK-ITEM et ainsi la table peut être accédée en utilisant la liaison sont LK-ITEM. La taille de l’élément de liaison est WS-LONGUEUR.

Si le mot-clé ‘HOLD’ est codé dans la commande LOAD, le programme ou la table chargé(e) sera résident(e) permanent(e) jusqu’à sa libération explicite. S’il n’est pas mentionné, la fin de la tâche libère le programme ou la table.

---

Exceptions de la commande LOAD :

1. PGMIDERR – Programme introuvable
   
2. LEGERR – Module de charge > 32 K
   
3. NOAUTH – Erreur de contrôle de sécurité