*        %GOTO USMBSL;        /* BILINGUAL MAPPING                      00050000
         MACRO                                                          00100000
         IKJZT305     &DSECT=YES                                        00150000
*        IKJZT305       RELEASE=OS/VS2.2  LEVEL=01                      00200002
*********************************************************************** 00250000
*********************************************************************** 00300000
*                                                                     * 00350000
*                         SYS1.BRODCAST DATA SET                      * 00400000
*                        USER MAIL MESSAGE RECORD                     * 00450000
*                                                                     * 00500000
*        THE USER MAIL MESSAGE RECORD (USMSG) IS A RECORD IN          * 00550000
*        THE SYS1.BRODCAST DATA SET WHICH CONTAINS A MAIL MESSAGE     * 00600000
*        INTENDED FOR A PARTICULAR USERID.                            * 00650000
*                                           10/1/72    LEVEL=1        * 00700002
*********************************************************************** 00750000
*********************************************************************** 00800000
         AIF   ('&DSECT' EQ 'NO').NODSECT                               00810000
USMSG    DSECT , -            USER MAIL MESSAGE RECORD                  00850000
         AGO   .SKIP                                                    00860000
.NODSECT ANOP                                                           00870000
USMSG    DS    0F -           USER MAIL MESSAGE RECORD                  00880000
.SKIP    ANOP                                                           00890000
USMLNG   DS    FL1 -          LENGTH OF MAIL MSG TEXT                   00900000
USMTEXT  DS    CL125 -        MESSAGE TEXT (PADDED WITH BLANKS)         00950000
USMNEXT  DS    AL3 -          CHAIN PTR TO NEXT MAIL MESSAGE RECORD     01000000
*                               FOR THIS USERID (ZERO IF LAST)          01050000
         MEND  , */                                                     01100000
*%USMBSL : ;                                                            01150000
* /*     IKJZT305       RELEASE=OS/VS2.2  LEVEL=01                   */ 01200002
*DECLARE                                                                01250000
*  1 USMSG    BASED(USMPTR),             /* USER MAIL MESSAGE RECORD */ 01300000
* /*******************************************************************/ 01350000
* /*******************************************************************/ 01400000
* /*                                                                 */ 01450000
* /*                      SYS1.BRODCAST DATA SET                     */ 01500000
* /*                     USER MAIL MESSAGE RECORD                    */ 01550000
* /*                                                                 */ 01600000
* /*     THE USER MAIL MESSAGE RECORD (USMSG) IS A RECORD IN         */ 01650000
* /*     THE SYS1.BRODCAST DATA SET WHICH CONTAINS A MAIL MESSAGE    */ 01700000
* /*     INTENDED FOR A PARTICULAR USERID.                           */ 01750000
* /*                                        10/1/72    LEVEL=1       */ 01800002
* /*******************************************************************/ 01850000
* /*******************************************************************/ 01900000
*    3 USMLNG   PTR(8),                  /* LENGTH OF MAIL MSG TEXT  */ 01950000
*    3 USMTEXT  CHAR(125),               /* MESSAGE TEXT (PADDED        02000000
*                                            WITH BLANKS)            */ 02050000
*    3 USMNEXT  PTR(24) BDY(BYTE);       /* CHAIN PTR TO NEXT MAIL      02100000
*                                            MESSAGE RECORD FOR THIS    02150000
*                                            USERID (ZERO IF LAST)   */ 02200000