* %GOTO R1BCBSL; /* BILINGUAL MAPPING 00100000 MACRO 00150000 IKJZT301 &DSECT=YES 00200000 * IKJZT301 RELEASE=OS/VS2.2 LEVEL=01 00250002 *********************************************************************** 00300000 *********************************************************************** 00350000 * * 00400000 * SYS1.BRODCAST DATA SET * 00450000 * RECORD 1 * 00500000 * * 00550000 * THE FIRST RECORD OF THE SYS1.BRODCAST DATA SET (R1BC) HAS * 00600000 * POINTERS TO THE NOTICES AND MAIL SECTIONS, AND OTHER INFO * 00650000 * CONCERNING THE DATA SET. * 00700000 * 10/1/72 LEVEL=1 * 00750002 *********************************************************************** 00800000 *********************************************************************** 00850000 AIF ('&DSECT' EQ 'NO').NODSECT 00900000 R1BC DSECT , - RECORD 1 OF SYS1.BRODCAST DATA SET 00950000 AGO .SKIP 01000000 .NODSECT ANOP 01050000 R1BC DS 0F - RECORD 1 OF SYS1.BRODCAST DATA SET 01100000 .SKIP ANOP 01150000 R1BCPTRP DS 0A - SAME AS R1BCPTR BELOW 01160000 R1BCFLGS DS B - NOTICES FLAGS - NOT USED 01200000 R1BCPTR DS AL3 - RELATIVE BLOCK ADDRESS (RBA) OF FIRST 01250000 * NOTICES DIRECTORY RECORD 01300000 R1USPTRP DS 0A - SAME AS R1USPTR BELOW 01310000 R1USFLGS DS B - USER MAIL FLAGS - NOT USED 01350000 R1USPTR DS AL3 - RBA OF FIRST USER MAIL DIRECTORY RECORD 01400000 R1RECNUM DS F - TOTAL NO. OF RECORDS IN SYS1.BRODCAST DS 01450000 R1BCMAX DS H - MAXIMUM BRODCAST MSG NO. - 01500000 * FROM MASTER SCHEDULER BASEA, BABCMAX 01550000 * * 01600000 R1DSN DS CL24 - DATA SET NAME IN EBCDIC = 01650000 * ' SYS1.BRODCAST DATA SET ' 01700000 R1LEVEL DS CL7 - LEVEL NO. = 'LEVEL N', WHERE 'N' IS 01750000 * A 1-DIGIT NUMBER 01800000 DS CL84 - RESERVED 01850000 MEND , */ 01900000 *%R1BCBSL : ; 01950000 * /* IKJZT301 RELEASE=OS/VS2.2 LEVEL=01 */ 02000002 *DECLARE 02050000 * 1 R1BC BASED(R1PTR), /* RECORD 1 SYS1.BRODCAST DS*/ 02100000 * /*******************************************************************/ 02150000 * /*******************************************************************/ 02200000 * /* */ 02250000 * /* SYS1.BRODCAST DATA SET */ 02300000 * /* RECORD 1 */ 02350000 * /* */ 02400000 * /* THE FIRST RECORD OF THE SYS1.BRODCAST DATA SET (R1BC) HAS */ 02450000 * /* POINTERS TO THE NOTICES AND MAIL SECTIONS, AND OTHER INFO */ 02500000 * /* CONCERNING THE DATA SET. */ 02550000 * /* 10/1/72 LEVEL=1 */ 02600002 * /*******************************************************************/ 02650000 * /*******************************************************************/ 02700000 * 3 R1BCPTRP PTR(31), /* SAME AS R1BCPTR BELOW */ 02710000 * 4 R1BCFLGS BIT(8), /* NOTICES FLAGS - NOT USED */ 02750000 * 4 R1BCPTR PTR(24), /* RELATIVE BLOCK ADDR (RBA) 02800000 * FIRST NOTICES DIRECTORY 02850000 * RCD */ 02900000 * 3 R1USPTRP PTR(31), /* SAME AS R1USPTR BELOW */ 02910000 * 4 R1USFLGS BIT(8), /* USER MAIL FLAGS- NOT USED*/ 02950000 * 4 R1USPTR PTR(24), /* RBA OF FIRST USER MAIL 03000000 * DIRECTORY RECORD */ 03050000 * 3 R1RECNUM FIXED(31), /* TOTAL NO. OF RECORDS IN 03100000 * SYS1.BRODCAST DATA SET */ 03150000 * 3 R1BCMAX FIXED(15), /* MAXIMUM BRODCAST MSG NO.- 03200000 * FROM MASTER SCHED BASEA */ 03250000 * 3 R1DSN CHAR(24), /* DATA SET NAME IN EBCDIC = 03300000 * ' SYS1.BRODCAST DATA SET '*/ 03350000 * 3 R1LEVEL CHAR(7), /* LEVEL NO.= 'LEVEL N', WHERE 03400000 * 'N' IS A 1-DIGIT NUMBER */ 03450000 * 3 * CHAR(84); /* RESERVED */ 03500000