/********************************************************* @G24LB18*/ 00050042 /* @G24LB18*/ 00100042 /* NAME - IEZSTPTB (MSVC STEP TABLE MAPPING MACRO) @G24LB18*/ 00150042 /* @G24LB18*/ 00200042 /* STATUS - MVS @G24LB18*/ 00250042 /* @G24LB18*/ 00300042 /* FUNCTION - MAPPING MACRO FOR THE MSVC STEP TABLES BUILT @G24LB18*/ 00350042 /* AND MAINTAINED BY THE MSVC TABLE PROCESSOR @G24LB18*/ 00400042 /* (ICBVTP00). THESE TABLES CONTAIN DD @G24LB18*/ 00450042 /* INFORMATION ON A JOB STEP BASIS WHICH MSVC @G24LB18*/ 00500042 /* USES IN SELECTING VOLUMES TO SATISFY MSVGP @G24LB18*/ 00550042 /* REQUESTS AND IN KEEPING TRACK OF AVAILABLE @G24LB18*/ 00600042 /* SPACE ON GENERAL-USE GROUP VOLUMES. EACH STEP @G24LB18*/ 00650042 /* TABLE CONSISTS OF A HEADER (STPTB) FOR THE @G24LB18*/ 00700042 /* STEP AND A DD ENTRY (STPDDENT) FOR EACH @G24LB18*/ 00750042 /* VIRTUAL DD IN THE STEP. @G24LB18*/ 00800042 /* @G24LB18*/ 00850042 /********************************************************* @G24LB18*/ 00900042 DCL 00950042 1 STPTB BDY(WORD) BASED, /* MSVC STEP TABLE @G24LB18*/ 01000042 /* HEADER @G24LB18*/ 01050042 2 STPNXTTB PTR(31), /* NEXT STEP TABLE PTR @G24LB18*/ 01100042 2 STPPRVTB PTR(31), /* PREVIOUS STEP TABLE @G24LB18*/ 01150042 /* PTR @G24LB18*/ 01200042 2 STPJOBID FIXED(31), /* TCB ADDR(VS1) OR @G24LB18*/ 01250042 /* ASID(MVS) @G24LB18*/ 01300042 2 STPHDRLN FIXED(15), /* LENGTH OF HEADER @G24LB18*/ 01350042 2 STPFLAGS, /* STEP FLAGS @G24LB18*/ 01400042 3 STPINVAL BIT(1), /* STEP TABLE INVALID @G24LB18*/ 01450042 3 STPNOFRE BIT(1), /* DON'T FREE STEP TABLE @G24LB18*/ 01500042 3 * BIT(6), /* UNUSED @G24LB18*/ 01550042 2 STPICCGR FIXED(8), /* INITIAL CALL COUNTER @G24LB18*/ 01600000 2 STPDDPTR PTR(31); /* 1ST DD ENTRY PTR @G24LB18*/ 01650042 DCL 01700042 1 STPDDENT BASED, /* DD ENTRY @G24LB18*/ 01750042 2 STPDDNXT PTR(31), /* NEXT DD ENTRY PTR @G24LB18*/ 01800042 2 STPDDLEN FIXED(15), /* LENGTH OF ENTRY @G24LB18*/ 01850042 2 STPDDNUM FIXED(15), /* INTERNAL DD NUMBER @G24LB18*/01900042 2 STPDDDVT CHAR(4), /* INTERNAL DEVICE TYPE @G24LB18*/ 02200042 /* OR UCB ADDR IF @G24LB18*/ 02250042 /* SPECIFIC UNIT ADDR @G24LB18*/ 02300042 /* REQUEST @G24LB18*/ 02350042 2 STPDDGPN CHAR(8), /* GROUP NAME @G24LB18*/ 02400042 2 STPDDGPI FIXED(8), /* GROUP EXTENSION INDEX @G24LB18*/ 02450042 2 STPDDGPS FIXED(8), /* GROUP EXTENSION SLOT @G24LB18*/ 02500042 /* NUMBER @G24LB18*/ 02550042 2 STPDDPRM FIXED(15), /* PRIMARY SPACE IN CYL @G24LB18*/ 02600042 2 STPDDFLG, /* DD FLAGS @G24LB18*/ 02610042 3 STPDDEXC BIT(1), /* EXCLUSIVE USE REQUEST @G24LB18*/ 02620042 3 STPDDSPL BIT(1), /* PRIMARY OR SECONDARY @G24LB18*/ 02630042 /* SPLIT @G24LB18*/ 02640042 3 * BIT(6), /* UNUSED @G24LB18*/ 02642042 2 STPDDNVL FIXED(8), /* NO. OF VOL SERS @G24LB18*/ 02650042 2 STPDDVOL(*) CHAR(6); /* VOL SER(S) @G24LB18*/ 02750042