* %GOTO MSG1; /* BILINGUAL MAPPING MACRO 00050002 MACRO 00100002 IGFMSG 00150002 * */ 00160002 *%MSG1: ; 00200002 */********************************************************************* 00250002 * 00350002 * MCH MESSAGE CONTENT BLOCK 00360002 * 00370002 * OS/VS2 RELEASE 2, 11/20/72 00380002 * 00390002 * METHOD OF ACCESS: 00392002 * BAL - DSECT ONLY. USING ON 'MSG' ESTABLISHES 00394002 * ADDRESSABILITY. 00398002 * 00398102 * PL/S - DCL MSGPTR PTR 00398402 * 00398802 **********************************************************************/ 00398902 *%GOTO MSG2; /* 00399202 SPACE 1 00399602 MSG DSECT 00450002 MSGCTL DS XL1 . CONTROL BYTE USED BY IGFPMMSG TO 00900002 * RESERVE MCH MSG BUFFER 00950002 MSGNUM DS XL1 . MSG NUMBER TO BE CONVERTED TO 01000002 * DECIMAL CHARACTERS TO REPLACE 'XX' 01050002 * IN THE MSG PREFIX IGF9XXI (THE 01100002 * VALUE X'00' INDICATES THAT THE MSG 01110002 * BUFFER IS NOT READY FOR RECORDING) 01120002 MSGTAB1 DS XL1 . CODE USED TO LOCATE DATA FOR A 1ST 01170002 * TABLE SUBSTITUTION INTO A MSG 01220002 MSGTAB2 DS XL1 . CODE USED TO LOCATE DATA FOR A 2ND 01270002 * TABLE SUBSTITUTION INTO A MSG 01320002 MSGCHAR DS 0XL8 . EIGHT-BYTE FIELD OF CHARACTER DATA 01370002 * TO BE MOVED INTO MSG FOR A 01420002 * CHARACTER SUBSTITUTION 01470002 MSGVAR1 DS XL4 . FOUR-BYTE FIELD OF BINARY DATA TO BE 01520002 * CONVERTED TO DECIMAL OR HEX 01530002 * CHARACTERS AND TO BE MOVED INTO 01540002 * MSG FOR 1ST DECIMAL OR HEX 01542002 * SUBSTITUTION INTO A MSG 01544002 MSGVAR2 DS XL4 . FOUR-BYTE FIELD OF BINARY DATA TO BE 01546002 * CONVERTED TO DECIMAL OR HEX 01548002 * CHARACTERS AND TO BE MOVED INTO 01548402 * MSG FOR 2ND DECIMAL OR HEX 01548802 * SUBSTITUTION INTO A MSG 01549202 * * 01550002 * END OF MCH MESSAGE CONTENT BLOCK * 01600002 * * 01650002 MEND 01700002 * */ 01750002 *%MSG2: ; 01800002 * 01850002 * DECLARE 01900002 * 1 MSG BASED (MSGPTR), 02000002 * 2 MSGCTL CHAR (1), /* CONTROL BYTE USED BY IGFPMMSG 02050002 * TO RESERVE MCH MSG BUFFER */ 02100002 * 2 MSGNUM CHAR(1), /* MSG NUMBER TO BE CONVERTED TO 02150002 * DECIMAL CHARACTERS TO REPLACE 02200002 * 'XX' IN THE MSG PREFIX IGF9XXI 02250002 * (THE VALUE X'00' INDICATES THAT 02300002 * THE MSG BUFFER IS NOT READY FOR 02350002 * RECORDING) */ 02400002 * 2 MSGTAB1 CHAR(1), /* CODE USED TO LOCATE DATA FOR A 02450002 * 1ST TABLE SUBSTITUTION INTO A 02500002 * MSG */ 02550002 * 2 MSGTAB2 CHAR(1), /* CODE USED TO LOCATE DATA FOR A 02560002 * 2ND TABLE SUBSTITUTION INTO A 02570002 * MSG */ 02580002 * 2 MSGCHAR CHAR(8), /* EIGHT-BYTE FIELD OF CHARACTER 02600002 * DATA TO BE MOVED INTO MSG FOR A 02650002 * CHARACTER SUBSTITUTION */ 02660002 * 3 MSGVAR1 CHAR(4), /* FOUR-BYTE FIELD OF BINARY DATA TO 02670002 * BE CONVERTED TO DECIMAL OR HEX 02680002 * CHARACTERS AND TO BE MOVED INTO 02690002 * MSG FOR 1ST DECIMAL OR HEX 02692002 * SUBSTITUTION INTO A MSG */ 02694002 * 3 MSGVAR2 CHAR(4); /* FOUR-BYTE FIELD OF BINARY DATA TO 02696002 * BE CONVERTED TO DECIMAL OR HEX 02698002 * CHARACTERS AND TO BE MOVED INTO 02698402 * MSG FOR 2ND DECIMAL OR HEX 02698802 * SUBSTITUTION INTO A MSG */ 02699202 */* 02700002 * END OF MCH MESSAGE CONTENT BLOCK 02750002 **/ 02800002