* %GOTO GPBSL; 01000002 * /* 02000001 MACRO 03000001 IEFZB600 03050001 * */ 03060002 * /* MACMEAN GETPTWT MEANS GETPART WORK TABLE */ 03100002 * /* MACCOMP Y-2 SC1B6/PZD90 */ 03150002 * /* MACSTAT Y-2 72339/013400 */ 03200002 * /* 03250002 GETPTWT DSECT 04000001 GPSIZEA DS F - ADDR OF REGION SIZE LIST 05000001 GPADDLT DS F - ADDR OF REGION ADDRESS LIST 06000002 GPCODE DS X - GETMAIN CODE FOR SUPERVISOR 07000001 GPECBMOD EQU X'81' - INDICATES ECB MODE 07050001 GPSUBP DS X - SUBPOOL 08000001 GPREAL EQU 242 - V=R SUBPOOL 08050002 GPVIRT EQU 247 - V=V SUBPOOL 08100002 DS H - RESERVED 09000001 GPADDH0 DS 0F 10000001 GPHIARC0 DS X'00' - INDICATES H0 11000001 GPH0ADD DS AL3 - SPECIFIC ADDRESS OR 0 12000001 GPSIZEH0 DS F - REGION SIZE 12050002 GPENDLST EQU X'80' - INDICATES END OF LIST 16050001 GPFLGS DS X 19000001 GPMSG EQU X'80' - CURRENT MODULE HAS ISSUED MSG IEF092I 20000001 GPREGION EQU X'40' - A SPECIAL REGION IS REQUIRED Y02669 20050002 GPERROR DS C - RETURN CODE OR POST CODE FROM GETPART Y02669 20100002 DS XL2 - Y02669 21000002 GPECBLST DS 0F - ECB LIST 24050001 GPGPECBP DS F - POINTER TO GETPART ECB Y02652 24100002 GPCECBP DS F - POINTER TO CANCEL ECB 24150001 GPBIT EQU X'80' TO MARK END OF ECB LIST 24200001 GPSIZE EQU *-GETPTWT - SIZE OF GWT 26000001 MEND , */ 27000001 *%GPBSL: 28000001 * ; 29000001 * /* MACMEAN GWT MEANS GETPART WORK TABLE */ 29050002 * /* MACCOMP Y-2 SC1B6/PZD90 */ 29100002 * /* MACSTAT Y-2 72339/013400 */ 29150002 * DECLARE 30000001 * 1 GWT BASED(GWTPTR), 31000001 * 2 GPSIZEA PTR(31), /* ADDR OF REGION SIZE LIST */ 32000001 * 2 GPADDLT PTR(31), /* ADDR OF REGION ADDRESS LIST */ 33000001 * 2 GPCODE PTR(8), /* X'01' INDICATES ECB MODE */ 34000001 * 2 GPSUBP PTR(8), /* SUBPOOL 247 OR 242 */ 35000001 * 2 * PTR(16), /* RESERVED */ 36000001 * 2 GPADDH0 PTR(31), 37000001 * 3 GPHIARC0 PTR(8), /* INDICATES H0 */ 38000001 * 3 GPH0ADD PTR(24), /* SPECIFIC ADDRESS OR 0 */ 39000001 * 2 GPSIZEH0 PTR(31), /* REGION SIZE */ 43000001 * 3 GPENDLST BIT(1), /* INDICATES END OF LIST */ 43050002 * 2 * PTR(31), 45000002 * 3 GPFLGS CHAR(1), 46000001 * 4 GPMSG BIT(1), /* CURRENT MODULE HAS ISSUED 47000001 * IEF092I */ 48000001 * 4 GPREGION BIT(1), /* A SPECIAL REGION IS 48050002 * REQUIRED Y02669*/ 48100002 * 3 GPERROR CHAR(1), /* A RETURN CODE OR POST CODE 48150002 * FROM GETPART Y02669*/ 48300002 * 2 GPECBLST CHAR(8) BDY (WORD), /* ECB LIST */ 55050002 * 3 GPGPECBP PTR(31), /* POINTER TO GETPART ECB Y02652*/ 55100002 * 3 GPCECBP PTR(31), /* POINTER TO CANCEL ECB */ 55150001 * 4 GPBIT BIT(1); /* TO MARK END OF ECB LIST */ 55200002