* %GOTO SSJTCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSJT 00150003 .*/ %SSJTCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSJT @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = JOB DELETION FUNCTION @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSJTPLS; /* @ZA34144 00600003 * 00700003 SSOBTERM EQU 12 JOB DELETION FUNCTION ID (SSOBFUNC) 00750003 * 00800003 * JOB DELETION RETURN CODES (SSOBRETN) 00850003 * 00900003 SSJTPERR EQU 36 PROGRAM ERROR 00950003 * 01000003 ORG SSOBGN 01050003 SSJTBGN EQU * 01100003 SSJTLEN DC AL2(SSJTSIZE) JOB DELETION EXTENSION LENGTH 01150003 * @Z30CPPH 01200003 * JOB STATUS INFORMATION @Z30CPPH 01250003 * @Z30CPPH 01300003 SSJTFLG1 DS B JOB STATUS FLAGS @Z30CPPH 01350003 SSJTJFAL EQU X'80' JOB FAILED INDICATOR @Z30CPPH 01400003 SSJTCFAL EQU X'40' JOB FAILED BECAUSE OF @Z30CPPH 01450003 * CONDITION CODE @Z30CPPH 01500003 SSJTABND EQU X'20' JOB ABENDED (JCTABEND=ON) @Z30CPPH 01550003 SSJTRSV1 DS B RESERVED @Z30CPPH 01600003 SSJTJMR DS A JMR ADDRESS 01650003 * 01700003 SSJTPCOD DS F PTR TO THE 2 BYTE CONDITION @Z30CPPH 01750003 * CODE OR ZERO @Z30CPPH 01800003 SSJTPSN1 DS F PTR TO THE STEPNAME OF THE @Z30CPPH 01850003 * ABENDING STEP IF JOB @Z30CPPH 01900003 * ABENDED OR ZERO @Z30CPPH 01950003 SSJTPSN2 DS F PTR TO THE STEPNAME OF THE @Z30CPPH 02000003 * STEP WHICH CALLED THE PROC @Z30CPPH 02050003 * ANY OR ZERO @Z30CPPH 02100003 SSJTSNUM DS F PTR TO THE NUMBER OF @ZM30478 02150003 * THE LAST STEP TO COMPLETE @ZM30478 02200003 * EXECUTION. @ZM30478 02250003 SSJTSIZE EQU *-SSJTBGN JOB DELETION EXTENSION LENGTH 02300003 SSOBLENB EQU SSOBHSIZ+SSJTSIZE TOTAL SSOB LENGTH 02350003 MEND @ZA34144*/ 02400003 * %SSJTPLS:; /* @ZA34144*/ 02430003 * DCL SSOBTERM FIXED(15) CONSTANT(12); /* JOB DELETE FUNCTION 02500003 * ID (SSOBFUNC) */ 02550003 * /* */ 02600003 * /* JOB DELETION RETURN CODES (SSOBRETN) */ 02650003 * /* */ 02700003 * DCL SSJTPERR FIXED(31) CONSTANT(36); /* PROGRAM ERROR */ 02750003 * /* S S J T */ 02800003 *DECLARE 02850003 * 1 SSJT SSOBJT, 02900003 * 2 SSJTLEN FIXED(15), /* LENGTH OF SSJT */ 02950003 * /* JOB STATUS INFORMATION @Z30CPPH*/ 03000003 * 2 SSJTFLG1 BIT(8), /* JOB STATUS FLAGS @Z30CPPH*/ 03050003 * 3 SSJTJFAL BIT(1), /* JOB FAILED INDICATOR @Z30CPPH*/ 03100003 * 3 SSJTCFAL BIT(1), /* JOB FAILED BECAUSE OF 03150003 * CONDITION CODES @Z30CPPH*/ 03200003 * 3 SSJTABND BIT(1), /* JOB ABENDED,JCTABEND=ON @Z30CPPH*/ 03250003 * 3 * BIT(5), /* RESERVED @Z30CPPH*/ 03300003 * 2 SSJTRSV1 PTR(8), /* RESERVED @Z30CPPH*/ 03350003 * 2 SSJTJMR PTR(31), /* JMR ADDRESS */ 03400003 * 2 SSJTPCOD PTR(31), /* PTR TO THE 2 BYTE 03450003 * CONDITION CODE OR ZERO @Z30CPPH*/ 03500003 * 2 SSJTPSN1 PTR(31), /* PTR TO THE STEPNAME OF 03550003 * THE ABENDING STEP, IF 03600003 * THE JOB ABENDED OR ZERO @Z30CPPH*/ 03650003 * 2 SSJTPSN2 PTR(31), /* PTR TO THE STEPNAME OF 03700003 * THE STEP WHICH CALLED 03750003 * THE PROC OR ZERO @Z30CPPH*/ 03800003 * 2 SSJTSNUM PTR(31); /* PTR TO THE NUMBER OF THE LAST STEP 03850003 * TO COMPLETE EXECUTION. @ZM30478*/ 03900003