* %GOTO SSJSCMT; /* @ZA34144 00050003 MACRO @ZA34144 00090003 IEFSSJS 00130003 .*/ %SSJSCMT:; /* @ZA34144*/ 00170003 */********************************************************************/ 00210003 */* MACRO NAME = IEFSSJS @ZA34144*/ 00250003 */* DESCRIPTIVE NAME = JOB SELECT FUNCTION @ZA34144*/ 00290003 */* STATUS = MVS 3.8 @ZA48827*/ 00330003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00370003 */* COPYRIGHT = NONE @ZA34144*/ 00410003 */* CHANGE ACTIVITY = */ 00416603 */* CODE HAS BEEN ADDED FOR THE FOLLOWING SUPPORT CODES */ 00423203 */* SECURITY SUPPORT @Z40RPPJ*/ 00429803 */* SPLITOUT FROM IEFJSSOB MACRO @ZA34144*/ 00436403 */* ADDED FIELD FOR JES3 JOB CLASS (VERSION 1) SEE OZ48696 @ZA48827*/ 00443003 */********************************************************************/ 00450003 * %GOTO SSJSPLS; /* @ZA34144 00490003 * 00650003 SSOBJBSL EQU 5 JOB SELECTION FUNCTION ID (SSOBFUNC) 00700003 * 00750003 * SUBSYSTEM JOB SELECTION RETURN CODES (SSOBRETN) 00800003 * 00850003 SSJSRTOK EQU 0 OK-JOB HAS BEEN SELECTED 00900003 SSJSISTP EQU 4 INITIATOR SHOULD STOP 00950003 SSJSYSER EQU 16 SYSTEM ERROR OCCURRED DURING 01000003 * SUBSYSTEM PROCESSING - SYSTEM ERROR 01050003 * CODE IS IN SSJSSERR 01100003 SSJSPERR EQU 36 PROGRAM ERROR 01150003 * 01200003 ORG SSOBGN 01250003 SSJSBGN EQU * 01300003 SSJSLEN DC AL2(SSJSIZE) JOB SELECT EXTENSION LENGTH 01350003 SSJSVER DS XL1 VERSION NUMBER OF SSJS @ZA48827 01370703 SSJSCVER EQU 1 CURRENT VERSION NUMBER OF SSJS 01391403 * @ZA48827 01412103 SSJSRESV DS C RESERVED 01433003 SSJSSTEP DS H STEP NUMBER OR ZERO 01450003 SSJSFLG1 DS B JOB DESCRIPTOR BITS 01500003 SSJSSTRS EQU X'80' STEP RESTART 01550003 SSJSCHRS EQU X'40' CHECKPOINT/RESTART 01600003 SSJSCNRS EQU X'20' CONTINUE RESTART 01650003 SSJSWARM EQU X'08' WARM START THE JOB 01750003 SSJSAIFG EQU X'04' ALTERNATE INTERPRETER FLAG 01800003 * IF ON SELECT INTERPRETER ADDRESS 01850003 * FROM SSJSAIAD FIELD Y02886 01900003 SSJSRSV2 EQU X'03' RESERVED 01950003 SSJSRSV3 DS X RESERVED 02000003 SSJSLCT DS A LCT ADDRESS 02050003 SSJSMACB DS A MESSAGE ACB ADDRESS 02100003 SSJSJACB DS A JOURNAL ACB ADDRESS 02150003 SSJSTACB DS A INTERNAL TEXT ACB ADDRESS 02200003 SSJSIPRM DS A ADDRESS OF PARAMETER FOR PHASE 02250003 * TWO OF THE INTERPRETER 02300003 SSJSJMR DS A JMR ADDRESS 02350003 SSJSSERR DS F SYSTEM ERROR RETURN CODE - FROM 02400003 * CONVERTER OR SWA CREATE 02450003 SSJSAIAD DS F ALTERNATE INTERPRETER ADDRESS Y02886 02500003 SSJSPASS DS 0CL9 SECURITY FIELD @Z40RPPJ 02550003 SSJSPSLN DS X PASSWORD LENGTH @Z40RPPJ 02600003 SSJSPSWD DS CL8 SECURITY PASSWORD @Z40RPPJ 02650003 SSJSPAS2 DS 0CL9 NEW PASSWORD FIELD @Z40RPPJ 02700003 SSJSPSL2 DS X NEW PASSWORD LENGTH @Z40RPPJ 02750003 SSJSPSW2 DS CL8 NEW PASSWORD @Z40RPPJ 02800003 SSJSCLSS DS CL8 JES3 JOB CLASS @ZA48827 02825003 * 02850003 SSJSIZE EQU *-SSJSBGN JOB SELECT EXTENSION LENGTH 02900003 SSOBLEN3 EQU SSOBHSIZ+SSJSIZE TOTAL SSOB LENGTH 02950003 MEND @ZA34144*/ 03000003 * %SSJSPLS:; /* @ZA34144*/ 03030003 * DCL SSOBJBSL FIXED(15) CONSTANT(05); /* FUNCTION ID (SSOBFUNC)*/ 03100003 * /* */ 03150003 * /* SUBSYSTEM JOB SELECTION RETURN CODES (SSOBRETN) */ 03200003 * /* */ 03250003 * DCL SSJSRTOK FIXED(31) CONSTANT(0); /* OK-JOB HAS BEEN SELECTED */ 03300003 * DCL SSJSISTP FIXED(31) CONSTANT(4); /* INITIATOR SHOULD STOP */ 03350003 * DCL SSJSYSER FIXED(31) CONSTANT(16);/* SYSTEM ERROR OCCURRED 03400003 * DURING SUBSYSTEM PROCESSING - SYSTEM 03450003 * ERROR CODE IS IN SSJSSERR */ 03500003 * DCL SSJSPERR FIXED(31) CONSTANT(36); /* PROGRAM ERROR */ 03550003 * DCL SSJSCVER FIXED(8) CONSTANT(1); /* CURRENT VERSION NUMBER OF 03566603 SSJS @ZA48827*/ 03583203 * /* S S J S */ 03600003 * DECLARE 03650003 * 1 SSJS SSOBJS, 03700003 * 2 SSJSLEN FIXED(15),/* LENGTH OF SSJS */ 03750003 * 2 SSJSVER FIXED(8), /* SSJS VERSION NUMBER @ZA48827*/ 03783303 * 2 * FIXED(8), /* RESERVED */ 03816603 * 2 SSJSSTEP FIXED(15),/* STEP NO. OR ZERO */ 03850003 * 2 SSJSFLG1 BIT(8), /* JOB DESCRIPTOR BITS */ 03900003 * 3 SSJSSTRS BIT(1), /* STEP RESTART */ 03950003 * 3 SSJSCHRS BIT(1), /* CHECKPOINT/RESTART */ 04000003 * 3 SSJSCNRS BIT(1), /* CONTINUE RESTART */ 04050003 * 3 * BIT(1), /* */ 04100003 * 3 SSJSWARM BIT(1), /* WARM START THE JOB */ 04150003 * 3 SSJSAIFG BIT(1), /* ALTERNATE INTERPRETER FLAG IF 04200003 * ON SELECT INTERPRETER ADDRESS 04250003 * FROM SSJSAIAD FIELD Y02886*/ 04300003 * 3 * BIT(2), /* RESERVED */ 04350003 * 2 * CHAR(1), /* RESERVED */ 04400003 * 2 SSJSLCT PTR(31), /* ADDRESS OF THE LCT */ 04450003 * 2 SSJSMACB PTR(31), /* ADDRESS OF THE MESSAGE ACB */ 04500003 * 2 SSJSJACB PTR(31), /* ADDRESS OF THE JOURNAL ACB */ 04550003 * 2 SSJSTACB PTR(31), /* ADDRESS OF INTERNAL TEXT ACB */ 04600003 * 2 SSJSIPRM PTR(31), /* ADDRESS OF PARAMETER FOR PHASE 04650003 * TWO OF THE INTERPRETER */ 04700003 * 2 SSJSJMR PTR(31), /* JMR ADDRESS */ 04750003 * 2 SSJSSERR FIXED(31),/* SYSTEM ERROR RETURN CODE - FROM 04800003 * CONVERTER OR SWA CREATE */ 04850003 * 2 SSJSAIAD PTR(31), /* ALTERNATE INTERPRETER ADDRESS 04900003 * Y02886*/ 04950003 * 2 SSJSPASS, /* SECURITY PASSWORD FIELD 05000003 * @Z40RPPJ*/ 05050003 * 3 SSJSPSLN FIXED(8), /* PASSWORD LENGTH @Z40RPPJ*/ 05100003 * 3 SSJSPSWD CHAR(8), /* SECURITY PASSWORD @Z40RPPJ*/ 05150003 * 2 SSJSPAS2, /* NEW PASSWORD FIELD @Z40RPPJ*/ 05200003 * 3 SSJSPSL2 FIXED(8), /* NEW PASSWORD LENGTH @Z40RPPJ*/ 05250003 * 3 SSJSPSW2 CHAR(8), /*NEW PASSWORD @Z40RPPJ*/ 05300003 * 2 SSJSCLSS CHAR(8); /*JES3 JOB CLASS @ZA48827*/ 05350003