* % GO TO STCPLS; /* 00050002 MACRO 00100002 IEEZB800 00150002 * 00200002 * STARTED TASK CONTROL INTERNAL PARAMETER AREA MAPPING 00250002 * -MAPS INTERFACE BETWEEN IEEVSTAR OR IEEVMNT1 AND IEEVJCL 00300002 * 00350002 STCPARM DSECT 00400002 STCBEGIN EQU * 00450002 STCSPNUM DS X SUBPOOL NUMBER OF THIS PARM AREA 00500002 STCLEN DC AL3(STCSIZE) PARAMETER AREA LENGTH 00550002 STCASCB DS A ASCB POINTER Y02669 00600002 STCSDT DS A SDT POINTER 00650002 STCRESV DS F RESERVED 00700002 STCSIZE EQU *-STCBEGIN PARAMETER AREA LENGTH 00750002 MEND */ 00800002 * % STCPLS:; 00850002 * /* */ 00860002 * /* STARTED TASK CONTROL INTERNAL PARAMETER AREA MAPPING */ 00900002 * /* -MAPS INTERFACE BETWEEN IEEVSTAR OR IEEVMNT1 AND IEEVJCL */ 00950002 * /* */ 01000002 * DCL 1 STCPARM BASED(STCPTR), 01050002 * 2 STCSPNUM PTR(8), /* SUBPOOL NUMBER OF THIS PARM AREA*/ 01100002 * 2 STCLEN PTR(24), /* PARAMETER AREA LENGTH */ 01150002 * 2 STCASCB PTR(31), /* ASCB POINTER */ 01200002 * 2 STCSDT PTR(31), /* SDT POINTER */ 01250002 * 2 STCRESV FIXED(31);/* RESERVED */ 01300002