Archives par mot-clé : CICS ABEND

CICS Cours

CICS – CICS ABEND

USER-ABEND :

En batch COBOL, l’utilisateur ABENDS peut être lancé en appelant la routine assembleur ILBOABN0 à l’aide d’AB-CODE alors qu’AB-CODE travaille sur un champ de stockage d’un demi-mot binaire.

La commande suivante est utilisée pour lancer l’utilisateur ABENDS dans CICS.

Syntaxe:

EXEC CICS ABEND ABCODE('9999')

La commande CICS ci-dessus est utilisée pour lancer l’utilisateur ABEND 9999.

Exemple:

WORKING-STORAGE SECTION.
77 MSG-LON           PIC S9(4) COMP.
01 MSG-DATA.
 05 MSG-DATA1      PIC X(15).
 05 MSG-DATA2      PIC X(50).
:
PROCEDURE DIVISION.
    :
    EXEC CICS HANDLE ABEND
                LABEL(ABEND-ROUTINE)
    END-EXEC.
    :
    ABEND-ROUTINE.
    MOVE ‘ABEND OCCURED.’ TO MSG-DATA1.
    MOVE ‘TASK CANCELLED WITH ABCODE 9999.’ 
                          TO MSG-DATA2.
    MOVE  65 TO MSG-LEN.
    EXEC CICS SEND
                FROM (MSG-DATA)
                LENGTH(MSG-LON)
                NOHANDLE
    END-EXEC.
    EXEC CICS HANDLE ABEND
               CANCEL
    END-EXEC.
    EXEC CICS ABEND
                ABCODE(‘9999’)
    END-EXEC.

Les commandes HANDLE CONDITION et IGNORE CONDITION restent actives jusqu’à la fin du programme.