* %GOTO USDBSL; /* BILINGUAL MAPPING 00050000 MACRO 00100000 IKJZT304 &DSECT=YES 00150000 * IKJZT304 RELEASE=OS/VS2.2 LEVEL=01 00200002 *********************************************************************** 00250000 *********************************************************************** 00300000 * * 00350000 * SYS1.BRODCAST DATA SET * 00400000 * USER MAIL DIRECTORY RECORD * 00450000 * * 00500000 * THE USER MAIL DIRECTORY RECORD (USDIR) IS A LOGICAL * 00550000 * DIRECTORY RECORD IN THE SYS1.BRODCAST DATA SET. * 00600000 * THE DIRECTORY CONTAINS USERIDS AND PTRS TO THE FIRST AND * 00650000 * LAST MESSAGE FOR EACH USERID. * 00700000 * 10/1/72 LEVEL=1 * 00750002 *********************************************************************** 00800000 *********************************************************************** 00850000 AIF ('&DSECT' EQ 'NO').NODSECT 00900000 USDIR DSECT , - USER MAIL DIRECTORY RECORD 00950000 AGO .SKIP 01000000 .NODSECT ANOP 01050000 USDIR DS 0F - USER MAIL DIRECTORY RECORD 01100000 .SKIP ANOP 01150000 USDENTRY DS 0CL13 - DIRECTORY ENTRY FOR 1 USERID 01200000 USDID DS CL7 - USERID (LEFT JUSTIFIED, PADDED W/ BLANKS) 01250000 USDRBA DS AL3 - RELATIVE BLOCK ADDRESS (RBA) OF FIRST 01300000 * MESSAGE FOR THIS USERID (ZERO IF NONE) 01350000 USDEND DS AL3 - RBA OF LAST MESSAGE FOR THIS USERID 01400000 * (ZERO IF NONE) 01450000 DS 8CL13 - RESERVE SPACE FOR 8 MORE DIRECTORY 01500000 * ENTRIES IDENTICAL IN FORMAT TO THE 01550000 * PRECEDING 'USDENTRY' 01600000 DS XL8 - RESERVED 01650000 USDREND DS CL1 - END-OF-RECORD INDICATOR = X'7F' 01700000 USDNEXT DS AL3 - CHAIN PTR TO NEXT USER MAIL DIRECTORY 01750000 * RECORD (ZERO IF LAST) 01800000 MEND , */ 01850000 *%USDBSL : ; 01900000 * /* IKJZT304 RELEASE=OS/VS2.2 LEVEL=01 */ 01950002 *DECLARE 02000000 * 1 USDIR BASED(USDPTR), /* USER MAIL DIRECTORY RCD */ 02050000 * /*******************************************************************/ 02100000 * /*******************************************************************/ 02150000 * /* */ 02200000 * /* SYS1.BRODCAST DATA SET */ 02250000 * /* USER MAIL DIRECTORY RECORD */ 02300000 * /* */ 02350000 * /* THE USER MAIL DIRECTORY RECORD (USDIR) IS A LOGICAL */ 02400000 * /* DIRECTORY RECORD IN THE SYS1.BRODCAST DATA SET. */ 02450000 * /* THE DIRECTORY CONTAINS USERIDS AND PTRS TO THE FIRST AND */ 02500000 * /* LAST MESSAGE FOR EACH USERID. */ 02550000 * /* 10/1/72 LEVEL=1 */ 02600002 * /*******************************************************************/ 02650000 * /*******************************************************************/ 02700000 * 3 USDENTRY(9) CHAR(13), /* DIRECTORY ENTRY FOR 02750000 * 1 USERID */ 02800000 * 5 USDID CHAR(7), /* USERID (LEFT JUSTIFIED, 02850000 * PADDED WITH BLANKS) */ 02900000 * 5 USDRBA PTR(24) BDY(BYTE), /* RELATIVE BLOCK ADDR (RBA) 02950000 * OF FIRST MESSAGE FOR THIS 03000000 * USERID (ZERO IF NONE) */ 03050000 * 5 USDEND PTR(24) BDY(BYTE), /* RBA OF LAST MSG FOR THIS 03100000 * USERID (ZERO IF NONE) */ 03150000 * 3 * CHAR(8), /* RESERVED */ 03200000 * 3 USDREND CHAR(1), /* END-OF-RECORD INDICATOR = 03250000 * X'7F' */ 03300000 * 3 USDNEXT PTR(24) BDY(BYTE); /* CHAIN PTR TO NEXT USER MAIL 03350000 * DIRECTORY RECORD (ZERO 03400000 * IF LAST) */ 03450000