* %GOTO SSSICMT; /* @ZA34144 00050003 MACRO @ZA34144 00090003 IEFSSSI 00130003 .*/ %SSSICMT:; /* @ZA34144*/ 00170003 */********************************************************************/ 00210003 */* MACRO NAME = IEFSSSI @ZA34144*/ 00250003 */* DESCRIPTIVE NAME = NOTIFY SUBSYSTEM OF STEP INIT @ZA34144*/ 00290003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00330003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00370003 */* COPYRIGHT = NONE @ZA34144*/ 00410003 */********************************************************************/ 00450003 * %GOTO SSSIPLS; /* @ZA34144 00490003 * 00650003 SSOBNSSI EQU 22 NOTIFY SUBSYSTEM OF STEP INITIATION FUNCTION 00700003 * ID (SSOBFUNC) @Y02BPSD 00750003 * 00800003 * 00850003 * NOTIFY SUBSYSTEM OF STEP INITIATION RETURN CODES (SSOBRETN) 00900003 * 00950003 * NO NOTIFY SUBSYSTEM OF STEP INITIATION RETURN CODES 01000003 * CURRENTLY DEFINED 01050003 * 01100003 ORG SSOBGN SSSI START @Y02BPSD 01150003 SSSIBGN EQU * NOTIFY SUBSYSTEM OF STEP @Y02BPSD 01200003 * INITIATION BEGINNING @Y02BPSD 01250003 SSSILEN DC AL2(SSSISIZE) NSSI EXTENSION LENGTH @Y02BPSD 01300003 SSSIRSV0 DS H RESERVED @Y02BPSD 01350003 * 01400003 * THE FOLLOWING FIELDS CONTAIN POINTERS TO THE INDICATED DATA, 01450003 * NUMBERS IN PARANTHESES INDICATE LENGTH OF AREA POINTED TO. 01500003 * 01550003 SSSIPSNM DS A FOR A NORMAL JOB, POINTER @Y02BPSD 01600003 * TO NAME ON THE 'EXEC PGM=' @Y02BPSD 01650003 * STATEMENT. (8) @Y02BPSD 01700003 * FOR A STARTED JOB, POINTER @Y02BPSD 01750003 * TO THE ID, UNIT TYPE, OR @Y02BPSD 01800003 * 'STARTING'. (8) @Y02BPSD 01850003 SSSIPPSN DS A FOR A NORMAL JOB, POINTER TO @Y02BPSD 01900003 * NAME ON THE 'EXEC PROC=' @Y02BPSD 01950003 * STATEMENT (OR BLANKS). (8) @Y02BPSD 02000003 * FOR A STARTED JOB, POINTER @Y02BPSD 02050003 * TO BLANKS. (8) @Y02BPSD 02100003 SSSIPSNO DS A POINTER TO STEP NUMBER (1) @Y02BPSD 02150003 * 02200003 SSSISIZE EQU *-SSSIBGN EXTENSION LENGTH @Y02BPSD 02250003 SSOBLENF EQU SSOBHSIZ+SSSISIZE TOTAL SSOB LENGTH @Y02BPSD 02300003 MEND @ZA34144*/ 02350003 * %SSSIPLS:; /* @ZA34144*/ 02380003 * /* */ 02450003 * /* FUNCTION IDS (SSOBFUNC) */ 02500003 * DCL SSOBNSSI FIXED(15) CONSTANT(22);/* NOTIFY SUBSYSTEM OF STEP 02550003 * INITIATION @Y02BPSD*/ 02600003 * /* */ 02650003 * /* NOTIFY SUBSYSTEM OF STEP INITIATION */ 02700003 * /* RETURN CODES (SSOBRETN) */ 02750003 * /* */ 02800003 * /* NO SSSI RETURN CODES CURRENTLY DEFINED */ 02850003 * /* */ 02900003 * /* S S S I */ 02950003 * DCL 03000003 * 1 SSSI SSOBSI, 03050003 * 2 SSSILEN FIXED(15),/* LENGTH OF SSSI @Y02BPSD*/ 03100003 * 2 * FIXED(15),/* RESERVED @Y02BPSD*/ 03150003 * /* FOLLOWING FIELDS CONTAIN POINTERS TO THE INDICATED */ 03200003 * /* DATA, NUMBERS IN PARENTHESES INDICATE LENGTH OF AREA*/ 03250003 * /* POINTED TO. @Y02BPSD*/ 03300003 * 2 SSSIPSNM PTR(31), /* FOR A NORMAL JOB, POINTER TO 03350003 * NAME ON THE 'EXEC PGM=' 03400003 * STATMENT. FOR A STARTED JOB, 03450003 * POINTER TO THE ID, UNIT TYPE, 03500003 * OR 'STARTING'. (8) @Y02BPSD*/ 03550003 * 2 SSSIPPSN PTR(31), /* FOR A NORMAL JOB, POINTER TO 03600003 * NAME ON THE 'EXEC PROC=' 03650003 * STATEMENT (OR BLANKS). FOR A 03700003 * STARTED JOB, POINTER TO 03750003 * BLANKS. (8) @Y02BPSD*/ 03800003 * 2 SSSIPSNO PTR(31); /* PTR TO STEP NUMBER(1) @Y02BPSD*/ 03850003