Archives par mot-clé : LOAD

CICS Cours

CICS – CICS LOAD

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é