* %GOTO MBBSL; /* BILIGUAL MAPPING 00050001 MACRO 00100001 IHAMB 00150001 MB DSECT 00200001 MBPARM DS F WTP PARAMETERS 00250001 MBID DS 7C MESSAGE ID 00300001 ORG MBID 00310001 DS 5C 00320001 MBIDSVC DS C CHNG MSG ID TO SVC NUMBER 00330001 DS C 00340001 DS C BLANK 00350001 MBCC DS 3C COMPLETION CODE 00400001 MBDASH DS C A DASH IF A REASON CODE EXISTS 00450001 * OTHERWISE BLANK 00500001 MBRC DS C REASON CODE OR BLANK 00550001 DS C BLANK 00600001 MBJOB DS 8C JOB NAME 00650001 DS C BLANK 00700001 MBSTEP DS 8C STEP NAME 00750001 DS C BLANK 00800001 MBFLG DS 2C FLAG FIELD 00850001 DS C BLANK 00900001 MBVAR DS 35C VARIABLE DATA 00950001 ORG MBVAR 00960001 MBVAR1 DS 8C VARIABLE WORD 1 00970001 DS C BLANK 00980001 MBVAR2 DS 8C VARIABLE WORD 2 00990001 DS C BLANK 00992001 MBVAR3 DS 8C VARIABLE WORD 3 00994001 DS C BLANK 00996001 MBVAR4 DS 8C VARIABLE WORD 4 00998001 MBEND EQU * 01000001 MBLENGTH EQU MBEND-MBPARM LENGTH OF FULL MESSAGE 01050001 MEND , */ 01100001 *%MBBSL : ; 01110001 * DCL 1 MB BASED(MBPTR), 01150001 * 2 MBPARM CHAR(4), /* WTP PARAMETERS */ 01200001 * 2 MBID CHAR(7), /* MESSAGE ID */ 01250001 * 3 * CHAR(5), 01300001 * 3 MBIDSVC CHAR(1), /* CHNGE MSG ID TO SVC NUMBER */ 01350001 * 3 * CHAR(1), 01400001 * 2 * CHAR(1), /* BLANK */ 01410001 * 2 MBCC CHAR(3), /* COMPLETION CODE */ 01450001 * 2 MBDASH CHAR(3), /* DASH IF REASON CODE EXISTS 01500001 * OTHERWISE BLANK */ 01550001 * 2 MBRC CHAR(1), /* REASON CODE OR BLANK */ 01600001 * 2 * CHAR(1), /* BLANK */ 01650001 * 2 MBJOB CHAR(8), /* JOB NAME */ 01700001 * 2 * CHAR(1), /* BLANK */ 01750001 * 2 MBSTEP CHAR(8), /* STEP NAME */ 01800001 * 2 * CHAR(1), /* BLANK */ 01850001 * 2 MBFLG CHAR(2), /* FLAG FIELD */ 01950001 * 2 * CHAR(1), /* BLANK */ 02000001 * 2 MBVAR CHAR(35), /* VARIABLE FIELDS */ 02050001 * 3 MBVAR1 CHAR(8), /* VARIABLE FIELD 1 */ 02100001 * 3 * CHAR(1), /* BLANK */ 02150001 * 3 MBVAR2 CHAR(8), /* VARIABLE FIELD 2 */ 02200001 * 3 * CHAR(1), /* BLANK */ 02250001 * 3 MBVAR3 CHAR(8), /* VARIABLE FIELD 3 */ 02300001 * 3 * CHAR(1), /* BLANK */ 02350001 * 3 MBVAR4 CHAR(8); /* VARIABLE FIELD 4 */ 02400001 * 02450001 */* */ 02500001 *%MBLENGTH='LENGTH(MB)'; 02550001 * 02600001 */* */ 02650001