MACRO 02000020 &LABEL TCABEND &A 04000020 .* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *. 06000020 .* *. 08000020 .*RELEASE 23 DELETIONS *. 10000020 .* *. 12000020 .*RELEASE 22 DELETIONS *. 14000020 .* *. 16000020 .*RELEASE 21 DELETIONS *. 18000020 .* *. 20000020 .*STATUS - CHANGE LEVEL 000 *. 22000020 .* *. 24000020 .*NAME - TCABEND *. 26000020 .* *. 28000020 .*FUNCTION - THE TCABEND MACRO IS AN SVC CALL THAT ALLOWS TSO TO MAKE*. 30000020 .* AN ORDERLY EXIT WHEN TCAM ABENDS. *. 32000020 .* *. 34000020 .* *. 36000020 .* THE STANDARD FORM OF THE EXPANSION IS BELOW... *. 38000020 .* *. 40000020 .* CNOP 0,4 *. 42000020 .*&LABEL LA 0,0 LOAD ENTRY CODE *. 44000020 .* SLL 0,24 PUT ENT CODE IN HI-ORDER BYTE*. 46000020 .* SR 1,1 ZERO PARAMETER REG *. 48000020 .* SVC 94 ISSUE SVC *. 50000020 .* *. 52000020 .* *. 54000020 .* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *. 56000020 AIF ('&A' NE '').ERROR 58000020 CNOP 0,4 60000020 * 62000020 &LABEL LA 0,0 . LOAD ENTRY CODE 64000020 SLL 0,24 . PUT ENT CODE IN HI-ORDER BYTE 66000020 SR 1,1 . ZERO PARAMETER REG 68000020 SVC 94 . ISSUE SVC 70000020 * 72000020 MEXIT 74000020 .ERROR ANOP 76000020 MNOTE 'INVALID OPERAND' 78000020 MEXIT 80000020 MEND 82000020