* %GOTO BCDBSL; /* BILINGUAL MAPPING 00050000 MACRO 00100000 IKJZT302 &DSECT=YES 00150002 * IKJZT302 RELEASE=OS/VS2.2 LEVEL=01 00200002 *********************************************************************** 00250000 *********************************************************************** 00300000 * * 00350000 * SYS1.BRODCAST DATA SET * 00400000 * NOTICES DIRECTORY RECORD * 00450000 * * 00500000 * THE BROADCAST NOTICES DIRECTORY RECORD (BCDIR) HAS BROADCAST * 00550000 * MESSAGE NUMBERS AND A POINTER TO THE MESSAGE RECORD * 00600000 * ASSOCIATED WITH EACH MSG. NUMBER. * 00650000 * * 00650400 * NOTE: THIS MACRO USES EQUATES GENERATED BY 'IEZBITS' MACRO. * 00652000 * THEREFORE, THE IEZBITS MACRO MUST BE CODED * 00652100 * PREVIOUS TO CALLING THIS MACRO. * 00654000 * 10/1/72 LEVEL=1 * 00704002 *********************************************************************** 00750000 *********************************************************************** 00800000 AIF ('&DSECT' EQ 'NO').NODSECT 00810002 BCDIR DSECT , - 00850000 AGO .SKIP 00860002 .NODSECT ANOP 00870002 BCDIR DS 0F 00880002 .SKIP ANOP 00890002 BCDNENT EQU 25 NUMBER OF ENTRIES 00892002 BCDENTRY DS 0CL5 - ENTRY FOR 1 BROADCAST MSG NO. 00900000 BCDMFLG DS 0BL1 - BROADCAST DIRECTORY MSG. FLAG: 01000000 BCDNOMSG EQU BIT0 01050000 * '1' = NO NOTICES MSG ASSIGNED 01100000 * TO THIS MSG NUMBER 01150000 * '0' = NOTICES MSG FOR THIS NUMBER 01200000 * IS ASSIGNED 01250000 BCDMSGNO DS FL2 - BROADCAST NOTICES MSG NO. IN HEX 01260002 BCDMRBA DS AL3 - RELATIVE BLOCK ADDR OF NOTICE MSG RCD 01270002 DS 24CL5 - RESERVE SPACE FOR 24 MORE ENTRIES 01300000 * IDENTICAL IN FORMAT TO 'BCDENTRY' 01350000 BCDREND DS CL1 - END-OF-RECORD INDICATOR = X'7F' 01450000 BCDNEXT DS AL3 - CHAIN PTR TO NEXT NOTICE DIRECTORY RCD 01500002 * (ZERO IF LAST) 01550000 MEND , */ 01600000 *%BCDBSL : ; 01650000 * /* IKJZT302 RELEASE=0S/VS2.2 LEVEL=01 */ 01700002 *DECLARE 01750000 * 1 BCDIR BASED(BCDPTR), /* NOTICES DIRECTORY RECORD */ 01800000 * /*******************************************************************/ 01850000 * /*******************************************************************/ 01900000 * /* */ 01950000 * /* SYS1.BRODCAST DATA SET */ 02000000 * /* NOTICES DIRECTORY RECORD */ 02050000 * /* */ 02100000 * /* THE BROADCAST NOTICES DIRECTORY RECORD (BCDIR) HAS BROADCAST */ 02150000 * /* MESSAGE NUMBERS AND A POINTER TO THE MESSAGE RECORD */ 02200000 * /* ASSOCIATED WITH EACH MSG. NUMBER. */ 02250000 * /* 10/1/72 LEVEL=1 */ 02300002 * /*******************************************************************/ 02350000 * /*******************************************************************/ 02400000 * 3 BCDENTRY(25) CHAR(5), /* ENTRY FOR 1 BROADCAST 02450000 * MSG NO. */ 02500000 * 5 BCDMSGNO PTR(16) BDY(BYTE), /* BROADCAST NOTICES MSG NO. 02550000 * IN HEX */ 02600000 * 7 BCDNOMSG BIT(1), /* '1' = NO NOTICES MESSAGE 02650000 * ASSIGNED TO THIS NO. 02700000 * '0' = NOTICES MSG FOR THIS 02750000 * NO. IS ASSIGNED */ 02800000 * 5 BCDMRBA PTR(24) BDY(BYTE), /* RELATIVE BLOCK ADDR OF 02850000 * NOTICE MSG RCD */ 02900000 * 3 BCDREND CHAR(1), /* END-OF-RECORD INDICATOR = 02950000 * X'7F' */ 03000000 * 3 BCDNEXT PTR(24) BDY(BYTE); /* CHAIN PTR TO NEXT NOTICES 03050000 * DIRECTORY RCD (ZERO IF 03100000 * LAST) */ 03150000