* %GOTO PARBSL; /* 00050002 MACRO 00060002 IEFZB630 00070002 IEFPARAM DSECT 00100002 * */ 00102002 * /* MACMEAN IEFPARAM MEANS INTERNAL INITIATOR PARAMETER LIST */ 00104002 * /* MACCOMP Y-2 SC1B6/PZD11 */ 00106002 * /* MACSTAT Y-2 73239/013400 */ 00107002 * /* 00108402 * THIS MACRO REPRESENTS A PARAMETER LIST PASSED BETWEEN 00110002 * SEVERAL INITIATOR MODULES. IT IS GOTTEN BY IEFSD162 AND 00120002 * FREED BY IEFSD164. 00130002 IEFUSADD DS 0F ADDRESS OF USER PARMETERS 00150002 LCTADDR DS 0F ADDR OF LCT FOR IEFSD164 M0138 00160002 JOBSTCB DS 1F ADDRESS OF JOB STEP TCB 00200002 IEFDCBAD DS 0F ADDRESS OF FETCHLIB DCB 00350002 COMPCODE DS 1F COMPLETION CODE FOR SVC 34 00400002 IEFREMLS DS F ADDRESS OF ATTACH LIST 00500002 IEFLCTAD DS F ADDRESS OF LCT 00550002 IEFTCBAD DS 0A INITIATOR TCB ADDRESS 00600002 DS B RESERVED Y02652 00650002 INITTCB DS AL3 ADDRESS OF INIT TCB 00750002 IEFTIOTA DS F ADDRESS OF WORD WHICH POINTS Y02669 00800002 * TO JOB STEP'S TIOT Y02669 00820002 IEFECBLT DS 0F ECB LIST 00850002 ATTECBAD DS F ADDRESS OF ATTACH ECB 00900002 CANECBAD DS F ADDRESS OF CANCEL ECB 00950002 PAROMEMP DS C INITIATOR MEMORY PRIORITY Y02669 01000002 PARNMEMP DS C STEP MEMORY PRIORITY Y02669 01010002 PARPRFMF DS C PERFORMANCE GROUP (FROM SCT) Y02655 01020002 DS C RESERVED Y02652 01030002 IEFAECB DS F ATTACH ECB 01050002 PARTIOTB DS F ADDRESS OF INIT'S TIOT Y02653 01060002 PARSRMEC DS F ECB TO COMMUNICATE WITH SRM YM03531 01070002 IEFPLEND EQU * I270 01100002 IEFPSIZE EQU IEFPLEND-IEFPARAM I270 01150002 MEND , */ 01200002 *%PARBSL: ; 01250002 * /* MACMEAN IEFPARAM MEANS INTERNAL INITIATOR PARAMETER LIST */ 01260002 * /* MACCOMP Y-2 SC1B6/PZD11 */ 01270002 * /* MACSTAT Y-2 73239/013400 */ 01280002 * DECLARE 01300002 * 1 IEFPARAM BASED(PARPTR), 01350002 * /*IEFPARAM REPRESENTS A PARAMETER LIST PASSED BETWEEN 01360002 * SEVERAL INITIATOR MODULES. IT IS GOTTEN BY IEFSD162 01370002 * AND FREED BY IEFSD164. */ 01380002 * 2 IEFUSADD PTR(31), /*ADDR OF USER PARMS */ 01400002 * 2 IEFDCBAD PTR(31), /*ADDR OF FETCHLIB DCB */ 01500002 * 2 IEFREMLS PTR(31), /*ADDR OF ATTACH LIST */ 01550002 * 2 IEFLCTAD PTR(31), /*ADDR OF LCT */ 01600002 * 2 IEFTCBAD PTR(31), /*INITIATOR TCB ADDR */ 01650002 * 3 * BIT(8), /*RESERVED Y02652*/ 01700002 * 3 INITTCB PTR(24), /*ADDR OF INITIATOR TCB */ 01800002 * 2 IEFTIOTA PTR(31), /*ADDR OF WORD WHICH POINTS 01850002 TO JOB STEP'S TIOT Y02669*/ 01870002 * 2 IEFECBLT CHAR(8) BDY(WORD), /*ECB LIST */ 01900002 * 3 ATTECBAD PTR(31), /*ADDR OF ATTACH ECB */ 01950002 * 3 CANECBAD PTR(31), /*ADDR OF CANCEL ECB */ 02000002 * 02050002 * 2 * PTR(31), 02060002 * 3 PAROMEMP PTR(8), /*INIT. MEMORY PRIORITY Y02669*/ 02070002 * 3 PARNMEMP PTR(8), /*STEP MEMORY PRIORITY Y02669*/ 02080002 * 3 PARPRFMF PTR(8), /*PERFORMANCE GROUP (FROM SCT) 02090002 * Y02655*/ 02092002 * 2 IEFAECB PTR(31), /*ATTACH ECB */ 02100002 * 2 PARTIOTB PTR(31), /*ADDR OF INITIATOR TIOT Y02653*/ 02150002 * 2 PARSRMEC PTR(31); /*ECB TO COMMUNICATE WITH SRM 02200002 YM03531*/ 02220002 * DECLARE /*OVERLAY FIELDS IN IEFPARAM */ 02250002 * JOBSTCB DEFINED(IEFUSADD), /*ADDR OF JOB STEP TCB */ 02300002 * LCTADDR DEFINED(IEFUSADD), /*ADDR OF LCT FOR IEFSD164 */ 02310002 * COMPCODE DEFINED(IEFDCBAD); /*COMP CODE FOR SVC 34 */ 02350002