* %GOTO UADGO; 30050002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 30100002 * 30150002 * I K J E F U A D 30200002 * UADS STRUCTURE MAPPING MACR0 30250002 * 30300002 * USE OF THE COMPILE VARIABLES MAKES POSSIBLE THE SELECTIVE 30350002 * INCLUSION OF THE INDIVIDUAL AREAS OF MAPPING 30400002 * 30450002 * STATUS -- CHANGE LEVEL -- 02-000 12-15-1972 30500002 * 30550002 * CHANGE LEVEL -- 04-000 04/25/1975 30558003 * 30566003 * A 355010-355040,569010-569040 DZ04005 30574003 * A 350550,564510,564910 RE-STRUCTURE FOR CORRECT BIT SET @ZA18185 30582003 * 30590003 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 30600002 *%UADGO: ; 30650002 * %GOTO ACTMC1; /* 30700002 MACRO 30750002 IKJEFUAD &DSPL,&ALL,&HDR,&POB,&AOB,&ROB,&PDB,&ADB,&RDB, S30800002 &FSQ,&GNL 30850002 SPACE 3 30900003 AIF (&ALL EQ 'ALL').HDR1 CHK TO DO ALL 31050002 AIF (&HDR EQ 'HDR').HDR1 CHK TO DO HEADER BLOCK 31100002 AIF (&GNL EQ 'GNL').GOB1 CHK TO DO GENERAL OFFSET 31150002 AIF (&POB EQ 'POB').POB1 CHK TO DO PASSWD OFFSET 31200002 AIF (&AOB EQ 'AOB').AOB1 CHK TO DO ACCTNM OFFSET 31250002 AIF (&ROB EQ 'ROB').ROB1 CHK TO DO PROCNAME OFFSET 31300002 AIF (&PDB EQ 'PDB').PDB1 CHK TO DO PASSWD DATA 31350002 AIF (&ADB EQ 'ADB').ADB1 CHK TO DO ACCTNM DATA 31400002 AIF (&RDB EQ 'RDB').RDB1 CHK TO DO PROCNAME DATA 31450002 AIF (&FSQ EQ 'FSQ').FSQ1 CHK TO DO FREE SPACE ELEMENT 31500002 &ALL SETC 'ALL' 31550002 SPACE 1 31600002 .HDR1 ANOP 31650002 AIF (&DSPL NE 'DSPL').HDRA CHK TO DISPLAY FORMAT 31700002 EJECT 31750002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 31800002 * * 31850002 * H E A D E R B L O C K * 31900002 * * 31950002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 32000002 * * 32050002 * * 32100002 * I---------------------I---------------------I * 32150002 * 0 I UADSBLNG I UADSFSQP I * 32200002 * I---------------------I---------------------I * 32250002 * 4 I UADSUSER I * 32300002 * I I * 32350002 * I---------------------I---------------------I * 32400002 * 12 I UADSBN01 I UADSMAXC I * 32450002 * I---------------------I---------------------I * 32500002 * 16 I UADSATTR I UADSINST I * 32550002 * I---------------------I---------------------I * 32600002 * 20 I UADSUPTP I * 32650002 * I-------------------------------------------I * 32700002 * 24 I UADSPWD1 I * 32750002 * I-------------------------------------------I * 32800002 * 28 I UADSPERP I * 32850002 * I-------------------------------------------I * 32900002 * 32 I UADSDEST I * 32950002 * I I * 33000002 * I----------I----------I----------I----------I * 33050003 * 40 I UADSSUBH I UADSSUBC I UADSSUBM I UADSSOUT I * 33070003 * I----------I----------I----------I----------I * 33090003 * 44 I RESERVED I * 33110003 * I I * 33150002 * I I * 33200002 * I I * 33250002 * I I * 33300002 * I I * 33350002 * I-------------------------------------------I * 33400002 * * 33450002 SPACE 1 33500002 .HDRA ANOP 33550002 SPACE 1 33600002 DHED DSECT ,HEDBPTR 33650002 SPACE 1 33700002 DS 0F ALIGN TO WORD BOUNDARY 33750002 UADSMHDR DS 0CL16 COMMON HEADER AREA 33800002 UADSBLNG DS AL2 BLOCK LENGTH 33850002 UADSFSQP DS AL2 OFFSET TO INITIAL FSQE (FREE 33900002 ** ..SPACE QUEUE ELEMENT) 33950002 UADSUSER DS 0CL8 USERID 34000002 UADSBN01 DS 0BL2 FLAGS 34050002 DS BL1 FIRST BYTE OF FLAGS -- RESERVED 34060002 DS BL1 SECOND BYTE OF FLAGS 34100002 UADSNUSP EQU X'80' ..0 -- NO NON-USABLE SPACE 34150002 ** ..1 -- ONLY NON-USABLE SPACE 34200002 ** .......EXISTS IN THIS BLOCK 34250002 UADSEXPF EQU X'40' ..0 -- OLD FORMAT UADS 34300002 ** ..1 -- NEW EXPANDED FORMAT UADS 34350002 ** .......EXISTS IN THIS BLOCK 34400002 UADSXBLK EQU X'20' ..0 -- EXTRA BLOCK NOT AVAILABLE 34420003 ** ..1 -- EXTRA BLOCK IS AVAILABLE 34440003 UADSXUSD EQU X'10' ..0 -- EXTRA BLOCK NOT USED 34460003 ** ..1 -- EXTRA BLOCK IS USED 34480003 UADSMAXC DS AL2 MAXIMUM CORE SIZE ALLOTTABLE 34500002 ** ..TO THIS USER 34550002 UADSATTR DS 0BL2 SYSTEM ATTRIBUTES OF USERID 34600002 DS BL1 FIRST BYTE OF IBM FLAGS 34650002 USATR00 EQU X'80' ..0 -- NO OPERATOR CAPABILITY 34700002 ** ..1 -- OPERATOR CAPABILITY 34750002 USATR01 EQU X'40' ..0 -- NO ACCOUNT CAPABILITY 34800002 ** ..1 -- ACCOUNT CAPABILITY 34850002 USATR02 EQU X'20' ..0 -- NO JCL CAPABILITY 34900002 ** ..1 -- JCL CAPABILITY 34950002 USATR03 EQU X'10' ..0 -- NO MOUNT CAPABILITY 35000002 ** ..1 -- MOUNT CAPABILITY 35050002 USATR04 EQU X'04' ..0 -- EDIT RECOVER CAPABILTY 35100003 ** ..1 -- NORECOVER CAPIBILTY 35107003 ** THIS WAS A 08 EQU @ZA18185 35114003 ** NOTE-- BIT USATR04 IS USED DIFFERENTLY 35121003 ** 1 MEANS NO EDIT RECOVERY CAPABILTY FOR THE USER 35128003 ** FLAGS 5 THROUGH 15 ARE 35135003 ** ..RESERVED FOR IBM USE 35150002 DS BL1 SECOND BYTE OF FLAGS, 8 -- 15 35200002 SPACE 1 35250002 UADSINST DS BL2 FOR INSTALLATION USE 35300002 UADSUPTP DS AL4 OFFSET TO CURRENT UPT 35350002 UADSPWD1 DS AL4 OFFSET TO FIRST PASSWORD OFFSET 35400002 UADSPERP DS AL4 OFFSET TO PERFORMANCE GROUP 35450002 UADSDEST DS CL8 DESTINATION 35500002 UADSSUBH DS CL1 HOLD CLASS @DZ04005 35550003 UADSSUBC DS CL1 JOB CLASS @DZ04005 35558003 UADSSUBM DS CL1 MESSAGE CLASS @DZ04005 35566003 UADSSOUT DS CL1 SYSOUT CLASS @DZ04005 35574003 DS CL20 RESERVED 35582003 SPACE 1 35600002 SPACE 1 35650002 SPACE 1 35700002 AIF (&ALL EQ 'ALL').GOB1 CHK TO DO ALL 35750002 AIF (&GNL NE 'GNL').DOPOB CHK TO DO GENERAL OFFSET 35800002 .GOB1 ANOP 35850002 AIF (&DSPL NE 'DSPL').GOBA CHK TO DISPLAY FORMAT 35900002 EJECT 35950002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 36000002 * * 36050002 * G E N E R A L O F F S E T B L O C K * 36100002 * * 36150002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 36200002 * * 36250002 * * 36300002 * I----------I--------------------------------I * 36350002 * 0 I UADSNNFL I UADSNNEX I * 36400002 * I----------I--------------------------------I * 36450002 * 4 I UADSNSUB I * 36500002 * I-------------------------------------------I * 36550002 * 8 I UADSNDAT I * 36600002 * I-------------------------------------------I * 36650002 * * 36700002 SPACE 1 36750002 .GOBA ANOP 36800002 SPACE 1 36850002 UADSNODE DSECT ,UADSNPTR 36900002 SPACE 1 36950002 UADSNNFL DS BL1 GENERAL OFFSET BLOCK 37000002 ** ..INDICATORS 37050002 UADSNFLG EQU X'80' ..0 -- CONTINUE CHAINING 37100002 ** ..1 -- LAST OFFSET BLOCK FOR 37150002 ** .......THIS OFFSET CHAIN 37200002 ** .. FLAGS 1 THRU 7 ARE RESERVED 37250002 UADSNNEX DS AL3 OFFSET TO NEXT OFFSET BLOCK 37300002 UADSNSUB DS AL4 OFFSET TO ASSOCIATED OFFSET 37350002 UADSNDAT DS AL4 OFFSET TO DATA BLOCK 37400002 SPACE 1 37450002 .DOPOB ANOP 37500002 AIF (&ALL EQ 'ALL').POB1 CHK TO DO ALL 37550002 AIF (&POB NE 'POB').DOAOB CHK TO DO PASSWORD OFFSET 37600002 .POB1 ANOP 37650002 AIF (&DSPL NE 'DSPL').POBA CHK TO DISPLAY FORMAT 37700002 EJECT 37750002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 37800002 * * 37850002 * P A S S W O R D O F F S E T B L O C K * 37900002 * * 37950002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 38000002 * * 38050002 * * 38100002 * I----------I--------------------------------I * 38150002 * 0 I UADSPFLG I UADSPNEX I * 38200002 * I----------I--------------------------------I * 38250002 * 4 I UADSPSUB I * 38300002 * I-------------------------------------------I * 38350002 * 8 I UADSPDAT I * 38400002 * I-------------------------------------------I * 38450002 * * 38500002 SPACE 1 38550002 .POBA ANOP 38600002 SPACE 1 38650002 DPOB DSECT ,DPOBPTR 38700002 SPACE 1 38750002 UADSPFLG DS BL1 PASSWORD BLOCK INDICATORS 38800002 PFLG01 EQU X'80' ..0 -- CONTINUE CHAINING 38850002 ** ..1 -- LAST PASSWORD FOR THIS 38900002 ** .......USERID 38950002 ** ..FLAGS 1 THRU 7 ARE RESERVED 39000002 UADSPNEX DS AL3 OFFSET TO NEXT PASSWD OFFSET 39050002 ** ..BLOCK 39100002 UADSPSUB DS AL4 OFFSET TO ASSOCIATED ACCOUNT 39150002 ** ..NUMBER OFFSET BLOCK 39200002 UADSPDAT DS AL4 OFFSET TO PASSWORD DATA BLOCK 39250002 SPACE 1 39300002 .DOAOB ANOP 39350002 AIF (&ALL EQ 'ALL').AOB1 CHK TO DO ALL 39400002 AIF (&AOB NE 'AOB').DOROB CHK TO DO ACCT NO. OFFSET 39450002 .AOB1 ANOP 39500002 AIF (&DSPL NE 'DSPL').AOBA CHK TO DISPLAY FORMAT 39550002 EJECT 39600002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 39650002 * * 39700002 * A C C O U N T N U M B E R * 39750002 * O F F S E T B L O C K * 39800002 * * 39850002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 39900002 * * 39950002 * * 40000002 * I----------I--------------------------------I * 40050002 * 0 I UADSAFLG I UADSANEX I * 40100002 * I----------I--------------------------------I * 40150002 * 4 I UADSASUB I * 40200002 * I-------------------------------------------I * 40250002 * 8 I UADSADAT I * 40300002 * I-------------------------------------------I * 40350002 * * 40400002 SPACE 1 40450002 .AOBA ANOP 40500002 SPACE 1 40550002 DNOB DSECT ,DNOBPTR 40600002 SPACE 1 40650002 UADSAFLG DS BL1 ACCOUNT NUMBER OFFSET BLOCK 40700002 ** ..INDICATORS 40750002 AFLG01 EQU X'80' ..0 -- CONTINUE CHAINING 40800002 ** ..1 -- LAST ACCOUNT NUMBER FOR 40850002 ** .......THIS PASSWORD CHAIN 40900002 ** .. FLAGS 1 THRU 7 ARE RESERVED 40950002 UADSANEX DS AL3 OFFSET TO NEXT ACCOUNT NUMBER 41000002 ** ..OFFSET BLOCK 41050002 UADSASUB DS AL4 OFFSET TO ASSOCIATED PROCNAME 41100002 ** ..OFFSET BLOCK 41150002 UADSADAT DS AL4 OFFSET TO ACCOUNT NUMBER DATA 41200002 ** ..BLOCK 41250002 SPACE 1 41300002 .DOROB ANOP 41350002 AIF (&ALL EQ 'ALL').ROB1 CHK TO DO ALL 41400002 AIF (&ROB NE 'ROB').DOPDB CHK TO DO PROCNAME OFFSET 41450002 .ROB1 ANOP 41500002 AIF (&DSPL NE 'DSPL').ROBA CHK TO DISPLAY FORMAT 41550002 EJECT 41600002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 41650002 * * 41700002 * P R O C E D U R E N A M E * 41750002 * O F F S E T B L O C K * 41800002 * * 41850002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 41900002 * * 41950002 * * 42000002 * I----------I--------------------------------I * 42050002 * 0 I UADSRFLG I UADSRNEX I * 42100002 * I----------I--------------------------------I * 42150002 * 4 I UADSRSUB I * 42200002 * I-------------------------------------------I * 42250002 * 8 I UADSRDAT I * 42300002 * I-------------------------------------------I * 42350002 * * 42400002 SPACE 1 42450002 .ROBA ANOP 42500002 SPACE 1 42550002 DROB DSECT ,DROBPTR 42600002 SPACE 1 42650002 UADSRFLG DS BL1 PROCNAME OFFSET BLOCK 42700002 ** ..INDICATORS 42750002 FLGR01 EQU X'80' ..0 -- CONTINUE CHAINING 42800002 ** ..1 -- LAST PROCNAME FOR THIS 42850002 ** .......ACCOUNT NUMBER 42900002 ** ..FLAGS 1 THRU 7 ARE RESERVED 42950002 UADSRNEX DS AL3 OFFSET TO NEXT PROCNAME 43000002 ** ..OFFSET BLOCK 43050002 UADSRSUB DS AL4 RESERVED BY ACCOUNT 43100002 UADSRDAT DS AL4 OFFSET TO PROCNAME DATA BLOCK 43150002 SPACE 1 43200002 .DOPDB ANOP 43250002 AIF (&ALL EQ 'ALL').PDB1 CHK TO DO ALL 43300002 AIF (&PDB NE 'PDB').DOADB CHK TO DO PASSWORD DATA 43350002 .PDB1 ANOP 43400002 AIF (&DSPL NE 'DSPL').PDBA CHK TO DISPLAY FORMAT 43450002 EJECT 43500002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 43550002 * * 43600002 * P A S S W O R D D A T A B L O C K * 43650002 * * 43700002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 43750002 * * 43800002 * * 43850002 * I----------I--------------------------------I * 43900002 * 0 I UADSPCTR I RESERVED I * 43950002 * I----------I--------------------------------I * 44000002 * 4 I UADSPPWD I * 44050002 * I I * 44100002 * I-------------------------------------------I * 44150002 * * 44200002 SPACE 1 44250002 .PDBA ANOP 44300002 SPACE 1 44350002 DPOBD DSECT ,UADSPPTR 44400002 SPACE 1 44450002 UADSPCTR DS AL1 COUNT OF REFERENCES TO THIS 44500002 ** ..DATA BLOCK 44550002 DS XL3 RESERVED FOR ACCOUNT 44600002 UADSPPWD DS CL8 PASSWORD 44650002 SPACE 1 44700002 .DOADB ANOP 44750002 AIF (&ALL EQ 'ALL').ADB1 CHK TO DO ALL 44800002 AIF (&ADB NE 'ADB').DORDB CHK TO DO ACCT NO. DATA 44850002 .ADB1 ANOP 44900002 AIF (&DSPL NE 'DSPL').ADBA CHK TO DISPLAY FORMAT 44950002 EJECT 45000002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 45050002 * * 45100002 * A C C O U N T N U M B E R * 45150002 * D A T A B L O C K * 45200002 * * 45250002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 45300002 * * 45350002 * * 45400002 * I----------I--------------------------------I * 45450002 * 0 I UADSACTR I RESERVED I * 45500002 * I----------I--------------------------------I * 45550002 * 4 I UADSADRF (40 BYTES) I * 45600002 * I I * 45650002 * I I * 45700002 * I I * 45750002 * I I * 45800002 * I I * 45850002 * I I * 45900002 * I I * 45950002 * I I * 46000002 * I I * 46050002 * I----------I--------------------------------I * 46100002 * 44 I UADSALEN I UADSANUM (MAX OF 40 BYTES) I * 46150002 * I----------I I * 46200002 * = = * 46250002 * I-------------------------------------------I * 46300002 * * 46350002 SPACE 1 46400002 .ADBA ANOP 46450002 SPACE 1 46500002 DNOBD DSECT ,UADSAPTR 46550002 SPACE 1 46600002 UADSACTR DS AL1 COUNT OF REFERENCES TO THIS 46650002 ** ..DATA BLOCK 46700002 DS XL3 RESERVED FOR ACCOUNT 46750002 UADSADRF DS CL40 DRIVER DATA FIELD 46800002 UADSALEN DS AL1 LENGTH OF FOLLOWING ACCOUNT 46850002 ** ..NUMBER DATA FIELD 46900002 UADSANUM DS CL40 ACCT NMBR DATA FIELD 46950002 ..NOTE -- USE SPECIFIC 47000002 .....LENGTH REFERENCES 47050002 SPACE 1 47100002 .DORDB ANOP 47150002 AIF (&ALL EQ 'ALL').RDB1 CHK TO DO ALL 47200002 AIF (&RDB NE 'RDB').DOFSQ CHK TO DO PROCNAME DATA 47250002 .RDB1 ANOP 47300002 AIF (&DSPL NE 'DSPL').RDBA CHK TO DISPLAY FORMAT 47350002 EJECT 47400002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 47450002 * * 47500002 * P R O C E D U R E N A M E * 47550002 * D A T A B L O C K * 47600002 * * 47650002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 47700002 * * 47750002 * * 47800002 * I----------I--------------------------------I * 47850002 * 0 I UADSRCTR I RESERVED I * 47900002 * I----------I--------------------------------I * 47950002 * 4 I UADSRNAM I * 48000002 * I I * 48050002 * I----------I----------I---------------------I * 48100002 * 12 I RESERVED I UADSRSIZ I * 48150002 * I----------I----------I---------------------I * 48200002 * 16 I UADSUNAM I * 48250002 * I I * 48300002 * I-------------------------------------------I * 48350002 * * 48400002 SPACE 1 48450002 .RDBA ANOP 48500002 SPACE 1 48550002 DROBD DSECT ,UADSRPTR 48600002 SPACE 1 48650002 UADSRCTR DS AL1 COUNT OF REFERENCES TO THIS 48700002 ** DATA BLOCK 48750002 DS XL3 RESERVED FOR ACCOUNT 48800002 UADSRNAM DS CL8 LOGON PROCEDURE NAME 48850002 DS XL2 RESERVED 48900002 UADSRSIZ DS AL2 REGION SIZE SPECIFIED IN THE 48950002 ** ..NAMED PROCEDURE 49000002 UADSUNAM DS CL8 ESOTERIC GROUP UNIT NAME 49050002 SPACE 1 49100002 .DOFSQ ANOP 49150002 AIF (&ALL EQ 'ALL').FSQ1 CHK TO DO ALL 49200002 AIF (&FSQ NE 'FSQ').DONE CHK TO DO FSQE DATA 49250002 .FSQ1 ANOP 49300002 AIF (&DSPL NE 'DSPL').FSQEA CHK TO DISPLAY FORMAT 49350002 EJECT 49400002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 49450002 * * 49500002 * F R E E S P A C E Q U E U E * 49550002 * E L E M E N T * 49600002 * * 49650002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 49700002 * * 49750002 * * 49800002 * I---------------------I---------------------I * 49850002 * 0 I FSQELNTH I FSQENEXT I * 49900002 * I---------------------I---------------------I * 49950002 * * 50000002 SPACE 1 50050002 .FSQEA ANOP 50100002 SPACE 1 50150002 UADSFSQE DSECT ,FSQEPTR 50200002 SPACE 1 50250002 FSQELNTH DS AL2 LENGTH OF FREE SPACE AREA 50300002 FSQENEXT DS AL2 OFFSET TO NEXT FSQE 50350002 .DONE ANOP 50400002 MEND , */ 50450002 *%ACTMC1 : ; 50500002 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 50550002 * %GOTO UADL0001; 50600002 *%ELSE 50650002 * %GOTO HDR1 ; 50700002 *%UADL0001: ; 50750002 *%IF HDR^='HDR' %THEN /* CHK TO DO HEADER BLOCK */ 50800002 * %GOTO UADL0002; 50850002 *%ELSE 50900002 * %GOTO HDR1 ; 50950002 *%UADL0002: ; 51000002 *%IF GNL^='GNL' %THEN /* CHK TO DO GENERAL OFFSET */ 51050002 * %GOTO UADL0003; 51100002 *%ELSE 51150002 * %GOTO GOB1 ; 51200002 *%UADL0003: ; 51250002 *%IF POB^='POB' %THEN /* CHK TO DO PASSWD OFFSET */ 51300002 * %GOTO UADL0004; 51350002 *%ELSE 51400002 * %GOTO POB1 ; 51450002 *%UADL0004: ; 51500002 *%IF AOB^='AOB' %THEN /* CHK TO DO ACCTNM OFFSET */ 51550002 * %GOTO UADL0005; 51600002 *%ELSE 51650002 * %GOTO AOB1 ; 51700002 *%UADL0005: ; 51750002 *%IF ROB^='ROB' %THEN /* CHK TO DO PROCNAME OFFSET */ 51800002 * %GOTO UADL0006; 51850002 *%ELSE 51900002 * %GOTO ROB1 ; 51950002 *%UADL0006: ; 52000002 *%IF PDB^='PDB' %THEN /* CHK TO DO PASSWD DATA */ 52050002 * %GOTO UADL0007; 52100002 *%ELSE 52150002 * %GOTO PDB1 ; 52200002 *%UADL0007: ; 52250002 *%IF ADB^='ADB' %THEN /* CHK TO DO ACCTNM DATA */ 52300002 * %GOTO UADL0008; 52350002 *%ELSE 52400002 * %GOTO ADB1 ; 52450002 *%UADL0008: ; 52500002 *%IF RDB^='RDB' %THEN /* CHK TO DO PROCNAME DATA */ 52550002 * %GOTO UADL0009; 52600002 *%ELSE 52650002 * %GOTO RDB1 ; 52700002 *%UADL0009: ; 52750002 *%IF FSQ^='FSQ' %THEN /* CHK TO DO FREE SPACE ELEMENT */ 52800002 * %GOTO UADL0010; 52850002 *%ELSE 52900002 * %GOTO FSQ1 ; 52950002 *%UADL0010: ; 53000002 *%ALL='ALL'; 53050002 *%HDR1 : ; 53100002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 53150002 * %GOTO UADL0011; 53200002 *%ELSE 53250002 * %GOTO HDRA ; 53300002 *%UADL0011: ; 53350002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 53400002 * * 53450002 * H E A D E R B L O C K * 53500002 * * 53550002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 53600002 * * 53650002 * * 53700002 * I---------------------I---------------------I * 53750002 * 0 I UADSBLNG I UADSFSQP I * 53800002 * I---------------------I---------------------I * 53850002 * 4 I UADSUSER I * 53900002 * I I * 53950002 * I---------------------I---------------------I * 54000002 * 12 I UADSBN01 I UADSMAXC I * 54050002 * I---------------------I---------------------I * 54100002 * 16 I UADSATTR I UADSINST I * 54150002 * I---------------------I---------------------I * 54200002 * 20 I UADSUPTP I * 54250002 * I-------------------------------------------I * 54300002 * 24 I UADSPWD1 I * 54350002 * I-------------------------------------------I * 54400002 * 28 I UADSPERP I * 54450002 * I-------------------------------------------I * 54500002 * 32 I UADSDEST I * 54550002 * I I * 54600002 * I----------I----------I----------I----------I * 54650003 * 40 I UADSSUBH I UADSSUBC I UADSSUBM I UADSSOUT I * 54670003 * I----------I----------I----------I----------I * 54690003 * 44 I RESERVED I * 54710003 * I I * 54750002 * I I * 54800002 * I I * 54850002 * I I * 54900002 * I I * 54950002 * I-------------------------------------------I * 55000002 * */ 55050002 *%HDRA : ; 55100002 * 55150002 *DECLARE 55200002 * 1 DHED BASED(HEDBPTR), 55250002 * 2 UADSMHDR, /* COMMON HEADER AREA */ 55300002 * 3 UADSBLNG PTR(15), /* BLOCK LENGTH */ 55350002 * 55400002 * 3 UADSFSQP PTR(15), /* OFFSET TO INITIAL FSQE (FREE 55450002 * ..SPACE QUEUE ELEMENT) */ 55500002 * 3 UADSUSER CHAR(8), /* USERID */ 55550002 * 3 UADSBN01 FIXED(16), /* FLAGS */ 55600002 * 4 * BIT(8), /* RESERVED */ 55610002 * 4 UADSNUSP BIT(1), /*..0 -- USABLE SPACE EXISTS 55650002 * ..1 -- ONLY NON-USABLE SPACE 55700002 * .......EXISTS IN THIS BLOCK */ 55750002 * 4 UADSEXPF BIT(1), /*..0 -- OLD FORMAT 55800002 * ..1 -- EXPANDED FORMAT */ 55850002 * 4 UADSXBLK BIT(1), /*..0 -- EXTRA BLOCK NOT AVAILABLE 55900003 * ..1 -- EXTRA BLOCK IS AVAILABLE 55906003 * @APAR*/ 55912003 * 4 UADSXUSD BIT(1), /*..0 -- EXTRA BLOCK NOT USED 55918003 * ..1 -- EXTRA BLOCK HAS BEEN USED 55924003 * @APAR*/ 55930003 * 4 * BIT(4), /* RESERVED */ 55936003 * 3 UADSMAXC FIXED(16), /* MAXIMUM CORE SIZE ALLOTTABLE 55950002 * TO THIS USER. */ 56000002 * 2 UADSATTR BIT(16), /* SYSTEM ATTRIBUTES OF USERID */ 56050002 * 3 USATR00 BIT(1), /* ..0 -- NO OPERATOR CAPABILITY 56100002 * ..1 -- OPERATOR CAPABILITY */ 56150002 * 3 USATR01 BIT(1), /* ..0 -- NO ACCOUNT CAPABILITY 56200002 * ..1 -- ACCOUNT CAPABILITY */ 56250002 * 3 USATR02 BIT(1), /* ..0 -- NO JCL CAPABILITY 56300002 * ..1 -- JCL CAPABILITY */ 56350002 * 3 USATR03 BIT(1), /* ..0 -- NO MOUNT CAPABILITY 56400002 * ..1 -- MOUNT CAPABILITY */ 56450003 * 3 * BIT(1), /* USED BY LOGON,PROFILE @ZA18185*/ 56460003 * 3 USATR04 BIT(1), /* ..0 -- EDIT RECOVER CAPABILTY 56470003 * ..1 -- NO RECOVER CAPABILTY */ 56480003 * /* NOTE-- USATR04 BIT USAGE IS DIFFERENT... 56490003 * 1 MEANS THE USER HAS NO EDIT RECOVER CAPABILTY */ 56500003 * 3 * BIT(10), /* RESERVED FOR IBM USE @ZA18185*/ 56510003 * 56550002 * 2 UADSINST BIT(16), /* FLAGS 16 THROUGH 31 ARE 56600002 * ..RESERVED FOR INSTALLATION 56650002 * ..USE */ 56700002 * 2 UADSUPTP PTR, /* PTR TO USER PROFILE TABLE */ 56750002 * 2 UADSPWD1 PTR, /* OFFSET TO 1ST PASSWD OFFSET */ 56800002 * 2 UADSPERP PTR, /* OFFSET TO PERFORMANCE GROUP */ 56850002 * 2 UADSDEST CHAR(8), /* DESTINATION */ 56900002 * 2 UADSSUBH CHAR(1), /* HOLD CLASS @DZ04005*/ 56950003 * 2 UADSSUBC CHAR(1), /* JOB CLASS @DZ04005*/ 56958003 * 2 UADSSUBM CHAR(1), /* MESSAGE CLASS @DZ04005*/ 56966003 * 2 UADSSOUT CHAR(1), /* SYSOUT CLASS @DZ04005*/ 56974003 * 2 * CHAR(20); /* RESERVED */ 56982003 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 57000002 * %GOTO DHEL0001; 57050002 *%ELSE 57100002 * %GOTO GOB1 ; 57150002 *%DHEL0001: ; 57200002 *%IF GNL='GNL' %THEN /* CHK TO DO GENERAL OFFSET */ 57250002 * %GOTO DHEL0002; 57300002 *%ELSE 57350002 * %GOTO DOPOB ; 57400002 *%DHEL0002: ; 57450002 *%GOB1 : ; 57500002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 57550002 * %GOTO DHEL0003; 57600002 *%ELSE 57650002 * %GOTO GOBA ; 57700002 *%DHEL0003: ; 57750002 *@EJECT; 57800002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 57850002 * * 57900002 * G E N E R A L O F F S E T B L O C K * 57950002 * * 58000002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 58050002 * * 58100002 * * 58150002 * I----------I--------------------------------I * 58200002 * 0 I UADSNNFL I UADSNNEX I * 58250002 * I----------I--------------------------------I * 58300002 * 4 I UADSNSUB I * 58350002 * I-------------------------------------------I * 58400002 * 8 I UADSNDAT I * 58450002 * I-------------------------------------------I * 58500002 * */ 58550002 *%GOBA : ; 58600002 * 58650002 *DECLARE 58700002 * 1 UADSNODE BASED(UADSNPTR), 58750002 * 58800002 * 2 UADSNWD1 PTR, /* CHAIN POINTER */ 58850002 * 3 UADSNFLG BIT(1), /* ..0 -- CONTINUE CHAINING 58900002 * ..1 -- LAST OFFSET BLOCK FOR 58950002 * .......THIS OFFSET CHAIN */ 59000002 * 3 * BIT(7), /* FLAGS 1 THRU 7 ARE RESERVED */ 59050002 * 3 UADSNNEX PTR(24), /* OFFSET TO NEXT OFFSET BLOCK */ 59100002 * 59150002 * 2 UADSNSUB PTR, /* OFFSET TO ASSOCIATED OFFSET */ 59200002 * 59250002 * 2 UADSNDAT PTR; /* OFFSET TO DATA BLOCK */ 59300002 *%DOPOB : ; 59350002 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 59400002 * %GOTO UADLX001; 59450002 *%ELSE 59500002 * %GOTO POB1 ; 59550002 *%UADLX001: ; 59600002 *%IF POB='POB' %THEN /* CHK TO DO PASSWORD OFFSET */ 59650002 * %GOTO UADLX002; 59700002 *%ELSE 59750002 * %GOTO DOAOB ; 59800002 *%UADLX002: ; 59850002 *%POB1 : ; 59900002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 59950002 * %GOTO UADLX003; 60000002 *%ELSE 60050002 * %GOTO POBA ; 60100002 *%UADLX003: ; 60150002 *@EJECT; 60200002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 60250002 * * 60300002 * P A S S W O R D O F F S E T B L O C K * 60350002 * * 60400002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 60450002 * * 60500002 * * 60550002 * I----------I--------------------------------I * 60600002 * 0 I UADSPFLG I UADSPNEX I * 60650002 * I----------I--------------------------------I * 60700002 * 4 I UADSPSUB I * 60750002 * I-------------------------------------------I * 60800002 * 8 I UADSPDAT I * 60850002 * I-------------------------------------------I * 60900002 * */ 60950002 *%POBA : ; 61000002 * 61050002 *DECLARE 61100002 * 1 DPOB BASED(DPOBPTR), 61150002 * 61200002 * 2 PFLG01 BIT(1), /* ..0 -- CONTINUE CHAINING 61250002 * ..1 -- LAST PASSWORD FOR THIS 61300002 * .......USERID */ 61350002 * 2 * BIT(7), /* FLAGS 1 THRU 7 ARE RESERVED */ 61400002 * 61450002 * 2 UADSPNEX PTR(24), /* OFFSET TO NEXT PASSWD OFFSET 61500002 * ..BLOCK */ 61550002 * 2 UADSPSUB PTR, /* OFFSET TO ASSOCIATED ACCOUNT 61600002 * ..NUMBER OFFSET BLOCK */ 61650002 * 2 UADSPDAT PTR; /* OFFSET TO PASSWORD DATA 61700002 * BLOCK */ 61750002 *%DOAOB : ; 61800002 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 61850002 * %GOTO DPOL0001; 61900002 *%ELSE 61950002 * %GOTO AOB1 ; 62000002 *%DPOL0001: ; 62050002 *%IF AOB='AOB' %THEN /* CHK TO DO ACCTNMBR OFFSET */ 62100002 * %GOTO DPOL0002; 62150002 *%ELSE 62200002 * %GOTO DOROB ; 62250002 *%DPOL0002: ; 62300002 *%AOB1 : ; 62350002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 62400002 * %GOTO DPOL0003; 62450002 *%ELSE 62500002 * %GOTO AOBA ; 62550002 *%DPOL0003: ; 62600002 *@EJECT; 62650002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 62700002 * * 62750002 * A C C O U N T N U M B E R * 62800002 * O F F S E T B L O C K * 62850002 * * 62900002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 62950002 * * 63000002 * * 63050002 * I----------I--------------------------------I * 63100002 * 0 I UADSAFLG I UADSANEX I * 63150002 * I----------I--------------------------------I * 63200002 * 4 I UADSASUB I * 63250002 * I-------------------------------------------I * 63300002 * 8 I UADSADAT I * 63350002 * I-------------------------------------------I * 63400002 * */ 63450002 *%AOBA : ; 63500002 * 63550002 *DECLARE 63600002 * 1 DNOB BASED(DNOBPTR), 63650002 * 63700002 * 2 AFLG01 BIT(1), /* ..0 -- CONTINUE CHAINING 63750002 * ..1 -- LAST ACCOUNT NUMBER FOR 63800002 * .......THIS PASSWORD CHAIN */ 63850002 * 2 * BIT(7), /* FLAGS 1 THRU 7 ARE RESERVED */ 63900002 * 63950002 * 2 UADSANEX PTR(24), /* OFFSET TO NEXT ACCOUNT 64000002 * NUMBER OFFSET BLOCK */ 64050002 * 64100002 * 2 UADSASUB PTR, /* OFFSET TO ASSOCIATED PROCNAME 64150002 * ..OFFSET BLOCK */ 64200002 * 2 UADSADAT PTR; /* OFFSET TO ACCOUNT NUMBER DATA 64250002 * ..BLOCK */ 64300002 *%DOROB : ; 64350002 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 64400002 * %GOTO DNOL0001; 64450002 *%ELSE 64500002 * %GOTO ROB1 ; 64550002 *%DNOL0001: ; 64600002 *%IF ROB='ROB' %THEN /* CHK TO DO PROCNAME OFFSET */ 64650002 * %GOTO DNOL0002; 64700002 *%ELSE 64750002 * %GOTO DOPDB ; 64800002 *%DNOL0002: ; 64850002 *%ROB1 : ; 64900002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 64950002 * %GOTO DNOL0003; 65000002 *%ELSE 65050002 * %GOTO ROBA ; 65100002 *%DNOL0003: ; 65150002 *@EJECT; 65200002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 65250002 * * 65300002 * P R O C E D U R E N A M E * 65350002 * O F F S E T B L O C K * 65400002 * * 65450002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 65500002 * * 65550002 * * 65600002 * I----------I--------------------------------I * 65650002 * 0 I UADSRFLG I UADSRNEX I * 65700002 * I----------I--------------------------------I * 65750002 * 4 I UADSRSUB I * 65800002 * I-------------------------------------------I * 65850002 * 8 I UADSRDAT I * 65900002 * I-------------------------------------------I * 65950002 * */ 66000002 *%ROBA : ; 66050002 * 66100002 *DECLARE 66150002 * 1 DROB BASED(DROBPTR), 66200002 * 66250002 * 2 FLGR01 BIT(1), /* ..0 -- CONTINUE CHAINING 66300002 * ..1 -- LAST PROCNAME FOR 66350002 * .......THIS ACCOUNT NUMBER */ 66400002 * 2 * BIT(7), /* FLAGS 1 THRU 7 ARE RESERVED */ 66450002 * 66500002 * 2 UADSRNEX PTR(24), /* OFFSET TO NEXT PROCNAME 66550002 * ..OFFSET BLOCK */ 66600002 * 2 * PTR, /* RESERVED BY ACCOUNT */ 66650002 * 2 UADSRDAT PTR; /* OFFSET TO PROCNAME DATA 66700002 * BLOCK */ 66750002 *%DOPDB : ; 66800002 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 66850002 * %GOTO DROL0001; 66900002 *%ELSE 66950002 * %GOTO PDB1 ; 67000002 *%DROL0001: ; 67050002 *%IF PDB='PDB' %THEN /* CHK TO DO PASSWORD DATA */ 67100002 * %GOTO DROL0002; 67150002 *%ELSE 67200002 * %GOTO DOADB ; 67250002 *%DROL0002: ; 67300002 *%PDB1 : ; 67350002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 67400002 * %GOTO DROL0003; 67450002 *%ELSE 67500002 * %GOTO PDBA ; 67550002 *%DROL0003: ; 67600002 *@EJECT; 67650002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 67700002 * * 67750002 * P A S S W O R D D A T A B L O C K * 67800002 * * 67850002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 67900002 * * 67950002 * * 68000002 * I----------I--------------------------------I * 68050002 * 0 I UADSPCTR I RESERVED I * 68100002 * I----------I--------------------------------I * 68150002 * 4 I UADSPPWD I * 68200002 * I I * 68250002 * I-------------------------------------------I * 68300002 * */ 68350002 *%PDBA : ; 68400002 * 68450002 *DECLARE 68500002 * 1 DPOBD BASED(UADSPPTR), 68550002 * 68600002 * 2 UADSPCTR PTR(8), /* COUNT OF REFERENCES TO THIS 68650002 * ..DATA BLOCK */ 68700002 * 2 * PTR(24), /* RESERVED FOR ACCOUNT */ 68750002 * 2 UADSPPWD CHAR(8); /* PASSWORD */ 68800002 *%DOADB : ; 68850002 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 68900002 * %GOTO DPOLX001; 68950002 *%ELSE 69000002 * %GOTO ADB1 ; 69050002 *%DPOLX001: ; 69100002 *%IF ADB='ADB' %THEN /* CHK TO DO ACCT NO. DATA */ 69150002 * %GOTO DPOLX002; 69200002 *%ELSE 69250002 * %GOTO DORDB ; 69300002 *%DPOLX002: ; 69350002 *%ADB1 : ; 69400002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 69450002 * %GOTO DPOLX003; 69500002 *%ELSE 69550002 * %GOTO ADBA ; 69600002 *%DPOLX003: ; 69650002 *@EJECT; 69700002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 69750002 * * 69800002 * A C C O U N T N U M B E R * 69850002 * D A T A B L O C K * 69900002 * * 69950002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 70000002 * * 70050002 * * 70100002 * I----------I--------------------------------I * 70150002 * 0 I UADSACTR I RESERVED I * 70200002 * I----------I--------------------------------I * 70250002 * 4 I UADSADRF (40 BYTES) I * 70300002 * I I * 70350002 * I I * 70400002 * I I * 70450002 * I I * 70500002 * I I * 70550002 * I I * 70600002 * I I * 70650002 * I I * 70700002 * I I * 70750002 * I----------I--------------------------------I * 70800002 * 44 I UADSALEN I UADSANUM (MAX OF 40 BYTES) I * 70850002 * I----------I I * 70900002 * = = * 70950002 * I-------------------------------------------I * 71000002 * */ 71050002 *%ADBA : ; 71100002 * 71150002 *DECLARE 71200002 * 1 DNOBD BASED(UADSAPTR), 71250002 * 71300002 * 2 UADSACTR PTR(8), /* COUNT OF REFERENCES TO THIS 71350002 * ..DATA BLOCK */ 71400002 * 2 * PTR(24), /* RESERVED FOR ACCOUNT */ 71450002 * 2 UADSADRF CHAR(40), /* DRIVER DATA FIELD */ 71500002 * 2 UADSALEN FIXED(8), /* LENGTH OF FOLLOWING ACCOUNT 71550002 * ..NUMBER DATA FIELD */ 71600002 * 2 UADSANUM CHAR(40); /* ACCT NMBR DATA FIELD */ 71650002 *%DORDB : ; 71700002 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 71750002 * %GOTO DNOLX001; 71800002 *%ELSE 71850002 * %GOTO RDB1 ; 71900002 *%DNOLX001: ; 71950002 *%IF RDB='RDB' %THEN /* CHK TO DO PROCNAME DATA */ 72000002 * %GOTO DNOLX002; 72050002 *%ELSE 72100002 * %GOTO DOFSQ ; 72150002 *%DNOLX002: ; 72200002 *%RDB1 : ; 72250002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 72300002 * %GOTO DNOLX003; 72350002 *%ELSE 72400002 * %GOTO RDBA ; 72450002 *%DNOLX003: ; 72500002 *@EJECT; 72550002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 72600002 * * 72650002 * P R O C E D U R E N A M E * 72700002 * D A T A B L O C K * 72750002 * * 72800002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 72850002 * * 72900002 * * 72950002 * I----------I--------------------------------I * 73000002 * 0 I UADSRCTR I RESERVED I * 73050002 * I----------I--------------------------------I * 73100002 * 4 I UADSRNAM I * 73150002 * I I * 73200002 * I----------I----------I---------------------I * 73250002 * 12 I RESERVED I UADSRSIZ I * 73300002 * I----------I----------I---------------------I * 73350002 * 16 I UADSUNAM I * 73400002 * I I * 73450002 * I-------------------------------------------I * 73500002 * */ 73550002 *%RDBA : ; 73600002 * 73650002 *DECLARE 73700002 * 1 DROBD BASED(UADSRPTR), 73750002 * 73800002 * 2 UADSRCTR PTR(8), /* COUNT OF REFERENCES TO THIS 73850002 * DATA BLOCK */ 73900002 * 2 * PTR(24), /* RESERVED FOR ACCOUNT */ 73950002 * 2 UADSRNAM CHAR(8), /* LOGON PROCEDURE NAME */ 74000002 * 2 * CHAR(2), /* RESERVED */ 74050002 * 2 UADSRSIZ FIXED(16), /* REGION SIZE SPECIFIED IN THE 74100002 * ..NAMED PROCEDURE */ 74150002 * 2 UADSUNAM CHAR(8); /* ESOTERIC GROUP UNIT NAME */ 74200002 *%DOFSQ : ; 74250002 *%IF ALL^='ALL' %THEN /* CHK TO DO ALL */ 74300002 * %GOTO DUDL0001; 74350002 *%ELSE 74400002 * %GOTO FSQ1 ; 74450002 *%DUDL0001: ; 74500002 *%IF FSQ='FSQ' %THEN /* CHK TO DO FSQE DATA */ 74550002 * %GOTO DUDL0002; 74600002 *%ELSE 74650002 * %GOTO DONE ; 74700002 *%DUDL0002: ; 74750002 *%FSQ1 : ; 74800002 *%IF DSPL='DSPL' %THEN /* CHK TO DISPLAY FORMAT */ 74850002 * %GOTO DUDL0003; 74900002 *%ELSE 74950002 * %GOTO FSQEA ; 75000002 *%DUDL0003: ; 75050002 *@EJECT; 75100002 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 75150002 * * 75200002 * F R E E S P A C E Q U E U E * 75250002 * E L E M E N T * 75300002 * * 75350002 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 75400002 * * 75450002 * * 75500002 * I---------------------I---------------------I * 75550002 * 0 I FSQELNTH I FSQENEXT I * 75600002 * I---------------------I---------------------I * 75650002 * */ 75700002 *%FSQEA : ; 75750002 * 75800002 *DECLARE 75850002 * 1 UADSFSQE BASED(FSQEPTR), 75900002 * 2 FSQELNTH PTR(15), /* LENGTH OF FREE SPACE AREA */ 75950002 * 76000002 * 2 FSQENEXT PTR(15); /* OFFSET TO NEXT FSQE */ 76050002 *%DONE : ; 76100002