%ICBRQUE: ; /* MACRO @Y30LB01*/ 00050003 /************************************************** @Y30LB01*/ 00100003 /* ****** MAPPING MACRO ***** @Y30LB01*/ 00150003 /* MACRO NAME = ICBRQUE(VS1-VS2) @Y30LB01*/ 00200003 /* @Y30LB01*/ 00250003 /* DESCRIPTIVE NAME = MSSC RESPONSE QUEUE ELEMENT @Y30LB01*/ 00300003 /* @Y30LB01*/ 00350003 /* COPYRIGHT = NONE @Y30LB01*/ 00400003 /* @Y30LB01*/ 00450003 /* CHANGE-ACTIVITY = X04AC01,Y30LB01 @Y30LB01*/ 00500003 /* @Y30LB01*/ 00550003 /* MACRO INVOKER MUST CODE 1 LEVEL DCL BEFORE @Y30LB01*/ 00600003 /* INCLUDE STATEMENT @Y30LB01*/ 00650003 /************************************************** @Y30LB01*/ 00700003 2 QELSP FIXED(8), /* STORAGE SUBPOOL @Y30LB01*/ 00750003 2 QELTCBPR PTR(24), /* TCB ADDRESS @Y30LB01*/ 00800003 2 QELECB PTR(32), /* ECB ADDRESS @Y30LB01*/ 00850003 3 QELFLG1 CHAR(1), /* MESSAGE TASK FLAG @Y30LB01*/ 00900003 3 QELECBPR PTR(24), /* ECB ADDRESS @Y30LB01*/ 00950003 2 QELFLG2 CHAR(1), /* ABEND INTF FLAG @Y30LB01*/ 01000003 3 FLAG1 CHAR(1), /* ABEND INTF FLAG @Y30LB01*/ 01050003 2 QELAHEAD PTR(24), /* ADDR NEXT ELEMENT @Y30LB01*/ 01100003 3 CHNHEAD PTR(24), /* ADDR NEXT ELEMENT @Y30LB01*/ 01150003 2 QELFLG3 CHAR(1), /* MSSC SVC FLAG @Y30LB01*/ 01200003 3 SVCINVAL CHAR(1), /* MSSC SVC FLAG @Y30LB01*/ 01250003 2 QELBACK PTR(24), /* ADDR PREV ELEMENT @Y30LB01*/ 01300003 3 CHNBACK PTR(24), /* ADDR PREV ELEMENT @Y30LB01*/ 01350003 2 QELASID FIXED(16), /* REQUESTOR ASID VS2 @Y30LB01*/ 01400003 3 PRGASID FIXED(16), /* REQUESTOR ASID VS2 @Y30LB01*/ 01450003 2 * CHAR(2); /* RESERVED FIELD @Y30LB01*/ 01500003