/********************************************************************/ 00506003 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00508003 /* MACSTAT Y30LB22 74/170/341040 @Y30LB22*/ 00508403 /* @Y30LB22*/ 00508803 /* NAME: IEZMESG @Y30LB22*/ 00509203 /* @Y30LB22*/ 00509603 /* FUNCTION: @Y30LB22*/ 00509703 /* MAPS THE REQUEST BLOCK FOR A REQUEST @Y30LB22*/ 00511703 /* TO UPDATE INVENTORY RECORDS BASED ON A @Y30LB22*/ 00513703 /* PARTICULAR SOLICITED OR UNSOLICITED MESSAGE. @Y30LB22*/ 00515703 /* REGISTER 1 MUST POINT TO THE REQUEST BLOCK @Y30LB22*/ 00516103 /* WHEN THE REQUEST IS EXECUTED @Y30LB22*/ 00516503 /* (MACRO ICBMESG - SVC 126). @Y30LB22*/ 00519803 /* @Y30LB22*/ 00523303 /* STATUS: CHANGE LEVEL = 0 @Y30LB22*/ 00526603 /* @Y30LB22*/ 00529903 /********************************************************************/ 00539903 /* CONSTANTS FOR IEZMESG @Y30LB22*/ 00579903 DCL MESLEN FIXED(15) INIT(LENGTH(MESG)); /*@Y30LB22 03850003 LENGTH OF REQUEST BLOCK @Y30LB22*/ 03860003 DCL MESOP BIT(8) CONSTANT('86'X); /*@Y30LB22*/ 03900003 /* OP CODE @Y30LB22*/ 03910003 /* MAPPING MACRO DECLARES @Y30LB22*/ 03960003 DCL 04060003 1 MESG BASED(MESGPTR) BDY(WORD), /*@Y30LB22*/ 08170003 2 MESLNGTH FIXED(31), /* LENGTH OF REQ BLK @Y30LB22*/ 08180003 2 MESCODE CHAR(4), /* OPERATION IDENTIFIER @Y30LB22*/ 08190003 3 MESOPCD BIT (8), /* OP CODE @Y30LB22*/ 08192003 3 * CHAR(3), /* UNUSED @Y30LB22*/ 08194003 2 MESGBUF CHAR(60); /* MSC MESSAGE @Y30LB22*/ 08196003