         PROC  &P,0                                                     LU$00010
LU$EQU   NAME  0                                                        LU$00020
.*                                                                      LU$00030
.********************************************************************** LU$00040
.*                                                                    * LU$00050
.*                                                                    * LU$00060
.*       LIBRARY UPDATE ROUTINES' EQUATES                             * LU$00070
.*                                                                    * LU$00080
.********************************************************************** LU$00090
.*                                                                      LU$00100
LU$TXT   EQU   X'02'     TEXT/RLD RECORDS IN OBJECT MODULE              LU$00110
LU$XFR   EQU   X'03'     TRANSFER RECORDS IN OBJECT MODULE              LU$00120
LU$ENT   EQU   X'04'     STANDARD ENTRY RECORDS                         LU$00130
LU$DMX   EQU   X'05'     SPECIAL DMS EXTRN RECORDS IN OBJECT MODULE     LU$00140
LU$EXT   EQU   X'06'     STANDARD EXTRN RECORDS                         LU$00150
LU$VCN   EQU   X'07'     V-CON RECORDS                                  LU$00160
LU$CSC   EQU   X'08'     NAMED CSECT RECORDS                            LU$00170
LU$UCS   EQU   X'09'     UN-NAMED CSECT RECORDS                         LU$00180
LU$COM   EQU   X'0A'     NAMED COMMON RECORD                            LU$00190
LU$UCM   EQU   X'0B'     UN-NAMED COMMON RECORDS                        LU$00200
LU$LTX   EQU   X'12'     TEXT RECORDS IN LOAD MODULES                   LU$00210
LU$LXF   EQU   X'13'     TRANSFER RECORDS IN LOAD MODULES               LU$00220
LU$LDX   EQU   X'15'     SPECIAL DMS EXTRN RECORDS IN LOAD MODULES      LU$00230
LU$SRC   EQU   X'24'     SOURCE MODULE RECORDS                          LU$00240
TYPSREC  EQU   LU$SRC                                                   LU$00250
LU$SCM   EQU   X'25'     SOURCE/PROC COMPRESSED RECORDS                 LU$00260
TYPCOMP  EQU   LU$SCM                                                   LU$00270
LU$CSR   EQU   X'40'     CONTROL STATEMENT RECORDS                      LU$00280
LU$OBH   EQU   X'80'     OBJECT MODULE HEADER                           LU$00290
LU$LPD   EQU   X'90'     LOAD MODULE HEADER/PHASE DEFINITION            LU$00300
LU$BOG   EQU   X'A0'     BEGINNING OF GROUP DEMARCATOR                  LU$00310
LU$EOG   EQU   X'A8'     END OF GROUP DEMARCATOR                        LU$00320
LU$EOF   EQU   X'A1'     EOF SENTINEL                                   LU$00330
LU$PRH   EQU   X'A3'     PROC MODULE HEADER                             LU$00340
LU$SRH   EQU   X'A4'     SOURCE MODULE HEADER                           LU$00350
LU$NUL   EQU   X'00'     NULLIFIED MODULE                               LU$00360
LU$PRN   EQU   X'A2'     PROC NAME                                      LU$00370
.*                                                                      LU$00380
OBJ$TXT  EQU   LU$TXT              TEXT DATA                            LU$00390
OBJ$XFR  EQU   LU$XFR              TRANSFER                             LU$00400
OBJ$ENT  EQU   LU$ENT              ENTRY                                LU$00410
OBJ$DMX  EQU   LU$DMX              DMS EXTRN                            LU$00420
OBJ$EXT  EQU   LU$EXT              EXTRN                                LU$00430
OBJ$VCN  EQU   LU$VCN              V-CON                                LU$00440
OBJ$CSC  EQU   LU$CSC              NAMED CONTROL SECTION                LU$00450
OBJ$UCS  EQU   LU$UCS              UNNAMED CONTROL SECTION              LU$00460
OBJ$COM  EQU   LU$COM              NAMED COMMON SECTION                 LU$00470
OBJ$UCM  EQU   LU$UCM              UNNAMED COMMON SECTION               LU$00480
OBJ$CSR  EQU   LU$CSR              CONTROL STATEMENT                    LU$00490
OBJ$OHR  EQU   LU$OBH              OBJECT HEADER                        LU$00500
OBJ$EOJ  EQU   LU$EOF              OBJECT ENDLIB                        LU$00510
.*                                                                      LU$00520
LU$SRHL  EQU   58             SOURCE HEADER RECORD LENGTH               LU$00530
LU$OBHL  EQU   57             OBJECT HEADER RECORD LENGTH               LU$00540
.*                                                                      LU$00550
.*                                                                      LU$00560
LU$EAT   DSECT                          ELEMENT ACTIVITY TABLE          LU$00570
LU$NAME  DS    CL8                      ENTRY NAME                      LU$00580
LU$DTFA  DS    F                        DTF ADDRESS                     LU$00590
LU$RLBK  DS    F                        RELATIVE BLOCK NUMBER           LU$00600
LU$RLDA  EQU   *-3,4                    RELATIVE DISC ADDRESS           LU$00610
LU$RLRC  DS    C                        RELATIVE RECORD BYTE ADDRESS    LU$00620
LU$RTCD  DS    C                        RETURN CODE                     LU$00630
LU$TYPE  DS    C                        ENTRY TYPE                      LU$00640
LU$RBCT  DS    C                        RESIDUAL BYTE COUNT             LU$00650
LU$BUFA  DS    F                        BUFFER ADDRESS                  LU$00660
LU$EOFA  DS    F                        END OF FILE ADDRESS             LU$00670
.*                                                                      LU$00680
.*                                                                      LU$00690
.*                                                                      LU$00700
LU$DRECT DSECT                     DSECT OF DIRECTORY RECORD FIELDS     LU$00710
LU$DRNAM DS    CL8                      ENTRY NAME FIELD                LU$00720
LU$DRTYP DS    CL1                      TYPE FIELD                      LU$00730
LU$DRRDA EQU   *,4                      RELATIVE DISC ADDRESS FIELD     LU$00740
LU$DRBLK DS    CL3                      RELATIVE BLOCK DISC ADDRESS     LU$00750
LU$DRREC DS    CL1                      RECORD RELATIVE DISC ADDRESS    LU$00760
LU$DRLEN EQU   *-LU$DRECT               DIRECTORY RECORD LENGTH         LU$00770
.*                                                                      LU$00780
.*                                                                      LU$00790
.*                                                                      LU$00800
LU$PDSCT DSECT                          LIB PRIME DATA RECORD LAYOUT    LU$00810
LU$PDLEN DS    C                        LENGTH FIELD                    LU$00820
LU$PDTYP DS    C                        TYPE FIELD                      LU$00830
LU$PDSRC EQU   *                        SOURCE RECORD ORIGIN            LU$00840
LU$PDCSC EQU   LU$PDSCT+13,8            OBJECT MOD CSECT NAME FIELD     LU$00850
LU$PDENT EQU   LU$PDSCT+9,8             OBJECT MOD ENTRY NAME FIELD     LU$00860
LU$PDDMX EQU   LU$PDSCT+9,8             LOAD MOD DMS EXTRN NAME FIELD   LU$00870
LU$PDPRN EQU   LU$PDSCT+9,8             PROC NAME FIELD                 LU$00880
.*                                                                      LU$00890
.*                                                                      LU$00900
.*                                                                      LU$00910
SRC$DATA DSECT               LOAD USERS BUF WITH SOURCE HEADER INFO     LU$00920
SRC$VER  DS    C             VERSION NO.  (PACKED DECIMAL)              LU$00930
SRC$UPDT DS    C             UPDATE NO.   (0-99)                        LU$00940
SRC$DATE DS    3C            MONTH-DAY-YEAR.  (PACKED DECIMAL)          LU$00950
SRC$TIME DS    3C            HOUR-MINUTE-SECOND.  (PACKED DECIMAL)      LU$00960
.*                                                                      LU$00970
.*                                                                      LU$00980
.*                                                                      LU$00990
OBJ$HDR  DSECT                     DSECT OF OBJECT MODULE HEADER        LU$01000
OBJ$HORG DS    CL4                 ASSEMBLED MODULE ORIGIN ADDRESS      LU$01010
OBJ$HLNG DS    CL4                 MODULE LENGTH                        LU$01020
OBJ$HNAM DS    CL8                 MODULE NAME                          LU$01030
OBJ$HCOM DS    CL30                MODULE IDENTIFING COMMENTS           LU$01040
.*                                                                      LU$01050
.*                                                                      LU$01060
.*                                                                      LU$01070
OBJ$CSET DSECT                     DSECT OF CSECT/COMMON CONTROL SECT.  LU$01080
OBJ$CADR DS    CL4                 SECTION ADDRESS                      LU$01090
OBJ$CLNG DS    CL4                 SECTION SIZE                         LU$01100
OBJ$CNAM DS    CL8                 SECTION NAME                         LU$01110
OBJ$CFLG DS    CL2                      DEFERRED LENGTH FLAG            LU$01120
OBJ$CSID DS    CL1                 ESID                                 LU$01130
.*                                                                      LU$01140
.*                                                                      LU$01150
.*                                                                      LU$01160
OBJ$ESD  DSECT                     DSECT OF ESD -ENTRY,EXTRN,V-CON      LU$01170
OBJ$EADR DS    CL4                 ESD ADDRESS                          LU$01180
OBJ$ENAM DS    CL8                 ESD NAME                             LU$01190
OBJ$ESID DS    CL1                 ESID                                 LU$01200
.*                                                                      LU$01210
.*                                                                      LU$01220
.*                                                                      LU$01230
OBJ$TXRL DSECT                     DSECT OF TEXT/RLD                    LU$01240
OBJ$TLNG DS    CL4                 TEXT LENGTH                          LU$01250
OBJ$RLNG DS    CL4                 RLD LENGTH                           LU$01260
OBJ$TADR DS    CL4                 TEXT ASSIGNED ADDRESS                LU$01270
OBJ$TBUF DS    CL4                 TEXT BUFFER AREA ADDRESS             LU$01280
OBJ$RBUF DS    CL4                 RLD BUFFER AREA ADDRESS              LU$01290
OBJ$TSID DS    CL1                                                      LU$01300
.*                                                                      LU$01310
.*                                                                      LU$01320
.*                                                                      LU$01330
OBJ$XFER DSECT                     DSECT OF TRANSFER                    LU$01340
OBJ$XADR DS    CL4                      TRANSFER ADDRESS                LU$01350
OBJ$XDLN DS    CL4                 TRNSFER DEFERRED LNGTH               LU$01360
OBJ$XDFG EQU   *-4,1               TRNSFER DEFERRED FLAG                LU$01370
OBJ$XRLD DS    CL4                      RLD BUFFER ADDRESS              LU$01380
OBJ$XSID DS    CL1                 TRNSFER ESID                         LU$01390
OBJ$XTLN DS    CL1                 TRNSFER TEXT LNGTH                   LU$01400
OBJ$XRLN DS    CL1                 TRNSFER RLD LNGTH                    LU$01410
.*                                                                      LU$01420
.*                                                                      LU$01430
.*                                                                      LU$01440
OBJ$CONT DSECT                     DSECT OF CONTROL STATEMENT           LU$01450
OBJ$CNTR DS    CL80                                                     LU$01460
.*                                                                      LU$01470
.*                                                                      LU$01480
.*                                                                      LU$01490
SORHDR93 DSECT                                                          LU$01500
SORH3LEN DS    XL1                                                      LU$01510
SORH3TYP DS    XL1                                                      LU$01520
         DS    XL1                                                      LU$01530
SORH3FLG DS    XL2                                                      LU$01540
         DS    9XL1                                                     LU$01550
SORH3LAB DS    CL8                                                      LU$01560
SORH3VER DS    XL3                                                      LU$01570
         DS    XL3                                                      LU$01580
SORH3COM DS    CL30                                                     LU$01590
SORH3END EQU   *                                                        LU$01600
.*                                                                      LU$01610
.*                                                                      LU$01620
.*                                                                      LU$01630
SORREC93 DSECT                                                          LU$01640
SORR3LEN DS    XL1                                                      LU$01650
SORR3TYP DS    XL1                                                      LU$01660
SORR3REC DS    CL80                                                     LU$01670
SORR3END EQU   *                                                        LU$01680
.*                                                                      LU$01690
.*                                                                      LU$01700
.*                                                                      LU$01710
PHSHDR93 DSECT                                                          LU$01720
PHSH3LEN DS    XL1                                                      LU$01730
PHSH3TYP DS    XL1                                                      LU$01740
PHSH3ESD DS    XL1                                                      LU$01750
PHSH3FLG DS    XL2                                                      LU$01760
PHSH3ADR DS    XL4                                                      LU$01770
PHSH3LNS DS    XL4                                                      LU$01780
PHSH3LAB DS    CL8                                                      LU$01790
PHSH3DAT DS    XL3                                                      LU$01800
PHSH3TIM DS    XL3                                                      LU$01810
PHSH3LDL DS    XL4                                                      LU$01820
PHSH3ALS DS    CL8                                                      LU$01830
PHSH3COM DS    CL30                                                     LU$01840
PHSH3END EQU   *                                                        LU$01850
.*                                                                      LU$01860
.*                                                                      LU$01870
.*                                                                      LU$01880
OBJHDR93 DSECT                9-3 FORMAT OF OBJECT MODULE HEADER        LU$01890
OBJH3LEN DS    X              RECORD LENGTH                             LU$01900
OBJH3TYP DS    X              TYPE                                      LU$01910
OBJH3ESD DS    X              ESID                                      LU$01920
OBJH3FLG DS    XL2            FLAGS                                     LU$01930
OBJH3ADR DS    XL4            ADDRESS OR ASSEMBLED ORIGIN               LU$01940
OBJH3LNS DS    XL4            LENGTH OF MODULE                          LU$01950
OBJH3LAB DS    CL8            NAME OF MODULE                            LU$01960
OBJH3DAT DS    XL3            DATE                                      LU$01970
OBJH3TIM DS    XL3            TIME                                      LU$01980
OBJH3COM DS    XL30           COMMENTS                                  LU$01990
OBJH3END EQU   *              END OF RECORD                             LU$02000
.*                                                                      LU$02010
.*                                                                      LU$02020
.*                                                                      LU$02030
CSECT93  DSECT                FORMAT OF CSECT RECORD IN 9-3             LU$02040
CST3LEN  DS    X              RECORD LENGTH                             LU$02050
CST3TYP  DS    X              RECORD TYPE                               LU$02060
CST3ESD  DS    X              ESID                                      LU$02070
CST3FLG  DS    XL2            FLAGS                                     LU$02080
CST3ADR  DS    XL4            ADDRESS                                   LU$02090
CST3LNS  DS    XL4            SECTION LENGTH                            LU$02100
CST3LAB  DS    CL8            SECTION NAME                              LU$02110
CST3END  EQU   *                                                        LU$02120
.*                                                                      LU$02130
.*                                                                      LU$02140
.*                                                                      LU$02150
ESD93    DSECT                FORMAT OF ESID RECORD IN 9-3              LU$02160
ESD3LEN  DS    X              RECORD LENGTH                             LU$02170
ESD3TYP  DS    X              RECORD TYPE                               LU$02180
ESD3ESD  DS    X              ESID                                      LU$02190
         DS    XL2            UNUSED                                    LU$02200
ESD3ADR  DS    XL4            ADDRESS                                   LU$02210
ESD3LAB  DS    CL8            NAME OF ESD                               LU$02220
ESD3END  EQU   *                                                        LU$02230
.*                                                                      LU$02240
.*                                                                      LU$02250
.*                                                                      LU$02260
TEXT93   DSECT                FORMAT OF TEXT RECORD IN 9-3              LU$02270
TXT3LEN  DS    X              RECORD LENGTH                             LU$02280
TXT3TYP  DS    X              RECORD TYPE                               LU$02290
TXT3ESD  DS    X              ESID                                      LU$02300
TXT3TXL  DS    X              TEXT LENGTH                               LU$02310
TXT3RLL  DS    X              RLD LENGTH                                LU$02320
TXT3ADR  DS    XL4            TEXT ADDRESS                              LU$02330
TXT3TXT  EQU   *              TEXT DATA                                 LU$02340
TXT3RLD  EQU   *              RLD DATA                                  LU$02350
TXT3END  EQU   *              END OF TEXT                               LU$02360
.*                                                                      LU$02370
.*                                                                      LU$02380
.*                                                                      LU$02390
TRAN93   DSECT                FORMAT OF TRANSFER RECORD IN 9-3          LU$02400
TRN3LEN  DS    X              LENGTH                                    LU$02410
TRN3TYP DS     X              TYPE CODE                                 LU$02420
TRN3ESD  DS    X              ESID                                      LU$02430
TRN3TXL  DS    X              TEXT LENGTH                               LU$02440
TRN3RLL  DS    X              RLD LENGTH                                LU$02450
TRN3FLG  DS    X              FLAG                                      LU$02460
TRN3DFD  DS    XL3                      DEFERRED LNGTH                  LU$02470
TRN3ADR  DS    XL4            TRANSFER ADDRESS                          LU$02480
TRN3RLD  DS    XL3            RLD DATA                                  LU$02490
TRN3END  EQU   *              END OF RECORD                             LU$02500
.*                                                                      LU$02510
.*                                                                      LU$02520
.*                                                                      LU$02530
CTLCD93  DSECT                FORMAT OF IMBEDDED CONTROL CARD IN 9-3    LU$02540
CTL3LEN  DS    X              LENGTH                                    LU$02550
CTL3TYP  DS    X              TYPE                                      LU$02560
CTL3STM  DS    CL80           STATEMENT                                 LU$02570
CTL3END  EQU   *              END                                       LU$02580
.*                                                                      LU$02590
.*                                                                      LU$02600
.*                                                                      LU$02610
TEXTRLD  DSECT                FORMAT OF RLD ENTRY IN RECORD             LU$02620
RLDESID  DS    X              ESID                                      LU$02630
RLDFLG   DS    X              FLAG AND LENGTH                           LU$02640
RLDADR   DS    X              ADDRESS OF ELEMENT IN TEXT                LU$02650
RLDEND   EQU   *                                                        LU$02660
.*                                                                      LU$02670
.*                                                                      LU$02680
.*                                                                      LU$02690
DIRECT93 DSECT                FORMAT OF DIRECTORY ENTRY IN 9-3          LU$02700
DIR3LAB  DS    CL8            NAME                                      LU$02710
DIR3TYP  DS    XL1            TYPE                                      LU$02720
DIR3BLK  DS    XL3            BLOCK NUMBER                              LU$02730
DIR3DIS  DS    XL1                                                      LU$02740
DIR3NXT  EQU   *              NEXT ENTRY                                LU$02750
DIR3SIZ  EQU   DIR3NXT-DIRECT93         ENTRY SIZE                      LU$02760
.*                                                                      LU$02770
.*                                                                      LU$02780
.*                                                                      LU$02790
BLK93    DSECT                FORMAT OF PHYSICAL BLOCK IN 9-3           LU$02800
BLK3NUM  DS    XL3            BLOCK NUMBER                              LU$02810
BLK3LEN  DS    X              BLOCK LENGTH                              LU$02820
BLK3CHK  DS    X              CHECK SUM                                 LU$02830
BLK3ARE  DS    XL251          BLOCK                                     LU$02840
BLK3END  EQU   *              END OF BLOCK                              LU$02850
.*                                                                      LU$02860
&SYSECT  CSECT                                                          LU$02870
         END                                                            LU$02880
