* %GOTO UDLGO; 00020000 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00040000 * /* */ 00044000 * /* I K J E F U D L */ 00048000 * /* */ 00048800 * /* USER IDENTITY DATA LIST MAPPING MACRO */ 00049600 * /* */ 00049700 * /* STATUS -- CHANGE -- 02-000 12-02-1972 */ 00049802 * /* */ 00049900 * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 00050000 * /* */ 00070000 *%UDLGO: ; 00090000 * %GOTO ACTMC2; /* 00110000 MACRO 00130000 IKJEFUDL &MAP 00150001 SPACE 1 00170000 AIF (&MAP NE 'MAP').UDLA 00190000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00230000 ** * * 00250000 ** * U S E R I D D A T A L I S T * 00270000 ** * * 00290000 ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00310000 ** * * 00330000 ** * I-------------------------------------------I * 00350000 ** * 0 I UIDLNEX I * 00370000 ** * I---------------------I---------------------I * 00390000 ** * 4 I UIDLSWS I UIDLCT I * 00410000 ** * I---------------------I---------------------I * 00430000 ** * 8 I UIDUSER(1) I * 00450002 ** * I I * 00470000 ** * I-------------------------------------------I * 00510000 ** * 16 I UIDUSER(2) I * 00530002 ** * I I * 00550000 ** * I-------------------------------------------I * 00590000 ** * * 00690000 ** * * 00710000 .UDLA ANOP 00730000 SPACE 1 00750000 DUIDL DSECT ,UIDLPTR 00770000 SPACE 1 00790000 UIDLNEX DS AL4 PTR TO NEXT UIDL ENTRY 00810000 UIDLSWS DS 0BL2 UIDL FLAGS 00830000 DS BL1 FIRST BYTE OF FLAGS 00850000 UIDADD EQU X'80' ..1 = RESULT OF ADD CMD 00870000 UIDDEL EQU X'40' ..1 = RESULT OF DELETE CMD 00890000 UIDCHG EQU X'20' ..1 = RESULT OF CHANGE CMD 00910000 DS BL1 SECOND BYTE OF FLAGS 00930000 ** ..RESERVED 00950000 UIDLCT DS AL2 NUMBER OF USERID ENTRIES IN 00970000 ** ..THIS LIST. ADD AND DELETE 00990000 ** ..COUNT IS 1 FOR EACH 8 BYTE 01010000 ** ..USERID FIELD IN LIST. 01030000 ** ..CHANGE COUNT IS 2 FOR EACH 01050000 ** ..16 BYTE, 2 USERID FIELD 01070000 ** ..IN LIST 01090000 UIDUSER DS CL8 7 BYTE USERID NAME PLUS A 01110002 ** ..RIGHTMOST BLANK 01130000 ** ..(OLD USERID FOR CHANGE) 01150000 DS CL8 2ND USERID NAME 01170002 ** ..(NEW USERID FOR CHANGE) 01190000 SPACE 1 01210000 MEND , */ 01230000 *%ACTMC2 : ; 01250000 *%IF MAP='MAP' %THEN 01270000 * %GOTO UDLL0001; 01290000 *%ELSE 01310000 * %GOTO UDLA ; 01330000 *%UDLL0001: ; 01350000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01390000 */* * */ 01410000 */* * U S E R I D D A T A L I S T */ 01430000 */* * */ 01450000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01470000 */* * */ 01490000 */* * I-------------------------------------------I */ 01510000 */* * 4 I UIDLNEX I */ 01530000 */* * I---------------------I---------------------I */ 01550000 */* * 4 I UIDLSWS I UIDLCT I */ 01570000 */* * I---------------------I---------------------I */ 01590000 */* * 8 I UIDUSER(1) I */ 01610002 */* * I I */ 01630000 */* * I-------------------------------------------I */ 01670000 */* * 16 I UIDUSER(2) I */ 01690002 */* * I I */ 01710000 */* * I-------------------------------------------I */ 01750000 */* * */ 01850000 */* * */ 01870000 *%UDLA : ; 01890000 *DECLARE 01910000 * 1 DUIDL BASED(UIDLPTR), 01930000 * 2 UIDLNEX PTR, /* PTR TO NEXT UIDL ENTRY */ 01950002 * 2 UIDLSWS CHAR(2), /* UIDL FLAGS */ 01970000 * 3 UIDADD BIT(1), /* ..1 = RESULT OF ADD CMD */ 02010002 * 3 UIDDEL BIT(1), /* ..1 = RESULT OF DELETE CMD */ 02030002 * 3 UIDCHG BIT(1), /* ..1 = RESULT OF CHANGE CMD */ 02050002 * 3 * BIT(13), /* RESERVED */ 02070002 * 2 UIDLCT PTR(16) BDY(BYTE), /* NUMBER OF USERID ENTRIES 02210002 * NOTE: ADD AND DELETE COUNT IS 1 FOR EACH 8-BYTE USERID 02240002 * FIELD IN THIS LIST. CHANGE COUNT IS 2 FOR EACH 02242002 * 16-BYTE, 2-USERID FIELD */ 02252002 * 2 UIDUSER(2) CHAR(8); /* ARRAY OF USERID NAMES 02310002 * 7 BYTE USERID NAME PLUS A 02330002 * ..RIGHTMOST BLANK 02340002 * 1ST USERID NAME 02340502 * ..(OLD USERID FOR CHANGE) 02341002 * 2ND USERID NAME 02390002 * ..(NEW USERID FOR CHANGE) */ 02400002