*        %GOTO BCMBSL;        /* BILINGUAL MAPPING                      00050000
         MACRO                                                          00100000
         IKJZT303   &DSECT=YES                                          00150000
*        IKJZT303      RELEASE=OS/VS2.2  LEVEL=01                       00200002
*********************************************************************** 00250000
*********************************************************************** 00300000
*                                                                     * 00350000
*                         SYS1.BRODCAST DATA SET                      * 00400000
*                         NOTICES MESSAGE RECORD                      * 00450000
*                                                                     * 00500000
*          THE BRODCAST NOTICES MESSAGE RECORD (BCMSG) IS A           * 00550000
*          RECORD IN THE SYS1.BRODCAST DATA SET WHICH CONTAINS A      * 00600000
*          NOTICES MESSAGE INTENDED FOR ALL USERS.                    * 00650000
*                                           10/1/72     LEVEL=1       * 00700002
*********************************************************************** 00750000
*********************************************************************** 00800000
         AIF   ('&DSECT' EQ 'NO').NODSECT                               00850000
BCMSG    DSECT , -            BRODCAST NOTICES MESSAGE RECORD           00900000
         AGO   .SKIP                                                    00950000
.NODSECT ANOP                                                           01000000
BCMSG    DS    0F -           BRODCAST NOTICES MESSAGE RECORD           01050000
.SKIP    ANOP                                                           01100000
BCMLNG   DS    FL1 -          LENGTH OF BRODCAST NOTICES MSG TEXT       01150000
BCMTEXT  DS    CL125 -        MESSAGE TEXT (PADDED WITH BLANKS)         01200000
         DS    XL3 -          RESERVED                                  01250000
         MEND  , */                                                     01300000
*%BCMBSL : ;                                                            01350000
* /*     IKJZT303       RELEASE=OS/VS2.2  LEVEL=01                   */ 01400002
*DECLARE                                                                01450000
*  1 BCMSG    BASED(BCMPTR),             /* BRODCAST NOTICES MESSAGE    01500000
*                                            RECORD                  */ 01550000
* /*******************************************************************/ 01600000
* /*******************************************************************/ 01650000
* /*                                                                 */ 01700000
* /*                   SYS1.BRODCAST DATA SET                        */ 01750000
* /*                   NOTICES MESSAGE RECORD                        */ 01800000
* /*                                                                 */ 01850000
* /*     THE BRODCAST NOTICES MESSAGE RECORD (BCMSG) IS A            */ 01900000
* /*     RECORD IN THE SYS1.BRODCAST DATA SET WHICH CONTAINS A       */ 01950000
* /*     NOTICES MESSAGE INTENDED FOR ALL USERS.                     */ 02000000
* /*                                        10/1/72     LEVEL=1      */ 02050002
* /*******************************************************************/ 02100000
* /*******************************************************************/ 02150000
*    3 BCMLNG   PTR(8),                  /* LENGTH OF BRODCAST          02200000
*                                            NOTICES MSG TEXT        */ 02250000
*    3 BCMTEXT  CHAR(125),               /* MESSAGE TEXT (PADDED        02300000
*                                            WITH BLANKS)            */ 02350000
*    3 *        CHAR(3);                 /* RESERVED                 */ 02400000