         PROC  &P,1,&NI=,&IS=,&PR=,&PT=,&CD=,&MT=,&IR=                  P$D00010
DTFDM3   NAME  0                                                        P$D00020
DTFDM    NAME  0                                                        P$D00030
         GBL   &DS$COM                                                  P$D00040
         LCL   &YZ                                                      P$D00050
&YZ      SET   '&CD&IS&NI&PR&PT&MT&IR'=''                               P$D00060
DM$DSCT  DSECT                                                          P$D00070
         DO    '&DS$COM'=''                                             P$D00080
&DS$COM  SET   0                                                        P$D00090
*   DSECT FOR COMMON DTF'S                                              P$D00100
.*                                                                      P$D00110
.*       GLOBAL SYMBOL DS$COM BITS USED                                 P$D00120
.*                                                                      P$D00130
.*       BIT 0                               128                        P$D00140
.*       BIT 1   IRAM           (IR)         64                         P$D00150
.*       BIT 2    PAPER TAPE     (PT)        32                         P$D00160
.*       BIT 3    MAGNETIC TAPE  (MT)        16                         P$D00170
.*       BIT 4    NON-INDEXED   (NI)         8                          P$D00180
.*       BIT 5    PRINTER       (PR)         4                          P$D00190
.*       BIT 6    ISAM          (IS)         2                          P$D00200
.*       BIT 7    CARD          (CD)         1                          P$D00210
.*                                                                      P$D00220
.*                                                                      P$D00230
*                                                                       P$D00240
*        DTFDM                          8/2/76
*                                                                       P$D00260
DC$CCB   DS    0CL28                    CCB IS 28 BYTES                 P$D00270
DC$CCBF1 DS    CL1                      CCB FLAG 1                      P$D00280
*                                       BIT 0-RESERVED                  P$D00290
*                                       BIT 1-RESERVED                  P$D00300
*                                       BIT 2-RESERVED                  P$D00310
*                                       BIT 3-RESERVED                  P$D00320
*                                       BIT 4-MARK                      P$D00330
*                                       BIT 5-WAIT                      P$D00340
*                                       BIT 6-RESERVED                  P$D00350
*                                       BIT 7-RESERVED                  P$D00360
DC$ERCT  DS    CL1                      I/O ERROR COUNT                 P$D00370
DC$T     DS    CL1                      TRANSMISSION BYTE               P$D00380
*                                       BIT 0-TRAFFIC                   P$D00390
*                                       BIT 1-RESERVED                  P$D00400
*                                       BIT 2-RESERVED                  P$D00410
*                                       BIT 3-RESERVED                  P$D00420
*                                       BIT 4-RESERVED                  P$D00430
*                                       BIT 5-RESERVED                  P$D00440
*                                       BIT 6-RESERVED                  P$D00450
*                                       BIT 7-RESERVED                  P$D00460
DC$CCBF2 DS    CL1                      FLAG BYTE-2                     P$D00470
*                                       BIT 1-ACCEPT UNRECOVERABLE ERR  P$D00480
*                                       BIT 2-ACCEPT UNIQUE ERR         P$D00490
*                                       BIT 6-RESERVED                  P$D00500
*                                       BIT 7-RESERVED                  P$D00510
DC$NCCW1 DS    A                        NEXT CAW                        P$D00520
DC$RBC   DS    H                   RESID BYTE COUNT                     P$D00530
         DS    H                   RESERVED                             P$D00540
DC$CCWA  DS    A                        COMMAND ADDRESS WORD            P$D00550
DC$PIO   DS    A                        PIOCB ADDRESS POINTER           P$D00560
DC$SB    DS    CL6                      SENSE BYTES                     P$D00570
DC$DS    DS    CL1                      DEVICE STATUS                   P$D00580
DC$CS    DS    CL1                      CHANNEL STATUS                  P$D00590
DC$NME   DS    CL8                      EIGHT BYTE FILE NAME            P$D00600
DC$UR    EQU   *                        UNIT RECORD OVERLY POINT        P$D00610
DC$COMN  EQU   *                                                        P$D00620
         ENDO                                                           P$D00630
         DO    ('&NI'=''=0)++('&IS'=''=0)++('&MT'=''=0)++('&PT'=''=0)++*P$D00640
               ('&IR'=''=0)++&YZ                                        P$D00650
         DO    (&DS$COM**32=0)**(&DS$COM**16=0)**(&DS$COM**8=0)**(&DS$C*P$D00660
               OM**2=0)**(&DS$COM**64=0)                                P$D00670
         ORG   DC$COMN                                                  P$D00680
DC$MFLG  DS    H                        MODULE FLAGS                    P$D00690
*        BYTE 0                                                         P$D00700
*                BIT 0  FILE OPEN                                       P$D00710
*                BIT 1  ERROR EXIT SPECIFIED (IOCS)                     P$D00720
*                BIT 2  AUTO WAIT ON I/O                                P$D00730
*                BIT 3  SECTOR TYPE DEVICE                              P$D00740
*                BIT 4  FORMAT 2 ACTIVE                                 P$D00750
*                BIT 5  NO EXTENSION MADE                               P$D00760
*                BIT 6  FCB NOT FOUND                                   P$D00770
*                BIT 7  MULTIPLE I/O PERMITTED                          P$D00780
*        BYTE 1                                                         P$D00790
*                BIT 0  SEARCH/WAIT REQUIRED                            P$D00800
*                BIT 1  CYLINDER ALIGNMENT REQUIRED                     P$D00810
*                BIT 2 FORMAT ENTERED BY EXTEND                         P$D00820
*                BIT 3  RESERVED                                        P$D00830
*                BIT 4 LIBRARY LOCK REQUIRED                            P$D00840
*                BIT 5  FCB IN CORE                                     P$D00850
*                BIT 6  SINGLE MOUNT SD FILE                            P$D00860
*                BIT 7  UNASSIGNED SPACE AVAILABLE                      P$D00870
DC$PUB   DS    CL8                      PUBS 1-4                        P$D00880
DC$DTF   DS    CL3                      DTF TYPE/FACILITIES             P$D00890
*                  DC$DT     VALUE '80' ISAM                           P$D00901
*                             VALUE '60' NON-INDEXED                    P$D00910
*                             VALUE '40' DIRECT ACCESS                  P$D00920
*                             VALUE '20' SEQUENTIAL ACCESS              P$D00930
DC$REQS  DS    CL1                      FUNCTION CODE                   P$D00940
*                  DC$REQS    VALUE '10' GET                            P$D00950
*                             VALUE '11' READID                         P$D00960
*                             VALUE '12' READKEY                        P$D00970
*                             VALUE '20' PUT                            P$D00980
*                             VALUE '21' WRITEID                        P$D00990
*                             VALUE '22' WRITEKEY                       P$D01000
*                             VALUE '26' WRITENEWKEY                    P$D01010
DC$ERFLG DS    H                        I/O ERROR FLAGS                 P$D01020
*        BYTE 0                                                         P$D01030
*                BIT 0  LAST RECORD ON TRACK ACCESSED                   P$D01040
*                BIT 1  INVALID ID                                      P$D01050
*                BIT 2  INVALID DTF/PCA                                 P$D01060
*                BIT 3  HARDWARE ERROR DETECTED                         P$D01070
*                BIT 4  ERROR DETECTED IN OPEN                          P$D01080
*                BIT 5  ERROR DETECTED IN CLOSE                         P$D01090
*                BIT 6  INVALID MACRO/MACRO SEQUENCE                    P$D01100
*                BIT 7  RESERVED                                        P$D01110
*        BYTE 1  COPY OF TRANSMISSION BYTE                              P$D01120
DC$IOCS  DS    A                        IOCS MODULE ADDRESS             P$D01130
DC$ERCD  DS    CL1                      ERROR CODE                      P$D01140
*                  DC$ERCD    ERROR MESSAGE CODE - DISPLAY              P$D01150
DC$ERIOC DS    AL3                      IOCS ERROR EXIT                 P$D01160
DC$CCW   DS    CL1                      OP CODE                         P$D01170
DC$IOB   DS    AL3                      I/O BUFFER ADDRESS              P$D01180
DC$BKS   DS    H                        BLOCK SIZE                      P$D01190
         DS    CL1                      RESERVED                        P$D01200
DC$SPB   DS    CL1                      SECTORS PER BLOCK               P$D01210
         DS    H                        RESERVED                        P$D01220
DC$HEAD  DS    CL1                      HEAD ADDRESS                    P$D01230
         DS    CL1                      RESERVED                        P$D01240
DC$CYL   DS    H                        CYLINDER ADDRESS                P$D01250
DC$R     DS    CL1                      RECORD NUMBER                   P$D01260
         DS    CL1                      RESERVED                        P$D01270
DC$EXT   DS    A                        EXTENT TABLE ADDRESS            P$D01280
DC$PCACT DS    CL1                      PCA COUNT                       P$D01290
DC$TFLG  DS    CL1                      FLAGS                           P$D01300
DC$REXCT DS    H                        RELATIVE EXTENT COUNT           P$D01310
DC$TPC   DS    A                        TRACKS PER CYLINDER             P$D01320
DC$LOHD  DS    H                        FILE LOW HEAD                   P$D01330
DC$HIHD  DS    H                        FILE HIGH HEAD                  P$D01340
DC$TPUB  EQU   DC$LOHD                                                  P$D01350
DC$TPUBA EQU   DC$HIHD                                                  P$D01360
DC$PCA1  DS    A                        PCA 1 ADDRESS                   P$D01370
DC$PCA2  DS    A                        PCA 2 ADDRESS                   P$D01380
DC$IS    EQU   *                                                        P$D01390
DC$PCA3  DS    A                        PCA 3 ADDRESS                   P$D01400
DC$PCA4  DS    A                        PCA 4 ADDRESS                   P$D01410
DC$PCA5  DS    A                        PCA 5 ADDRESS                   P$D01420
DC$PCA6  DS    A                        PCA 6 ADDRESS                   P$D01430
DC$PCA7  DS    A                        PCA 7 ADDRESS                   P$D01440
DC$FG1   DS    CL1                      FLAG 1                          P$D01450
DC$FG2   DS    CL1                      FLAG 2                          P$D01460
DC$FG3   DS    CL1                      FLAG 3                          P$D01470
DC$FCS   DS    CL1                      STORE FUNCTION CODE             P$D01480
DC$PADDR DS    A                        CURRENT PCA ADDRESS             P$D01490
DC$RELOC DS    A                        RELOCATION VALUE                P$D01500
DC$SAV   DS    A                        REGISTER SAVE AREA ADDRESS      P$D01510
DC$SAVR  DS    A                        SAVE AREA FOR REG 13            P$D01520
DC$ERR   DS    A                                                        P$D01530
DC$ERRF  DS    F                        ERROR CODES                     P$D01540
DC$NI    EQU   *                                                        P$D01550
         ENDO                                                           P$D01560
         ENDO                                                           P$D01570
         DO    ('&NI'='YES')++('&MT'='YES')++&YZ                        P$D01580
         DO    (&DS$COM**8=0)**(&DS$COM**16=0)                          P$D01590
&DS$COM  SET   &DS$COM++8               SET NI = YES BIT                P$D01600
         ORG   DC$NI                                                    P$D01610
*        DC$FG1  BIT0 OPTIONAL FILE                                     P$D01620
*                BITS 1 & 2 RESERVED                                    P$D01630
*                BIT 3  MULTI TRACK SEARCH SPECIFIED                    P$D01640
*                BIT 4  ERROPT=SKIP                                     P$D01650
*                BIT 5  ERROPT=IGNORE                                   P$D01660
*                BIT 6   LABADDR SPECIFIED                              P$D01670
*                BIT 7   TRLBL SPECIFIED                                P$D01680
*                                                                       P$D01690
*        DC$FG2  BIT 0   IDLOC SPECIFIED                                P$D01700
*                BIT 1   AFTER SPECIFIED                                P$D01710
*                BIT 2   WRITE KEY                                      P$D01720
*                BIT 3   WRITE ID                                       P$D01730
*                BIT 4   READ KEY                                       P$D01740
*                BIT 5   READ ID                                        P$D01750
*                BIT 6   REL=R                                          P$D01760
*                BIT 7  REL=T                                           P$D01770
*                                                                       P$D01780
*        DC$FG3  BIT 0   OUTPUT                                         P$D01790
*                BIT 1   INPUT                                          P$D01800
*                BIT 2   INPUT/UPDATE                                   P$D01810
*                BIT 3  OPTIONAL FILE SPECIFIED                         P$D01820
*                BIT 4-7 RESERVED                                       P$D01830
DC$LBL   DS    A                        LABADDR ADDRESS                 P$D01840
DD$SKAD  DS    A                                                        P$D01850
DD$IDLOC DS    A                        IDLOC ADDRESS                   P$D01860
*                                                                       P$D01870
*    START  PARTITION DSECT                                             P$D01880
*                                                                       P$D01890
NI$DPCA  EQU   *                                                        P$D01900
DC$PCAID DS    A                        CURRENT PCA RELATIVE ADDRESS    P$D01910
DC$PMBA  DS    A                        MAX PCA BLOCK ADDRESS           P$D01920
DC$BPT   DS    A                        BLOCKS PER TRACK                P$D01930
DC$PID   DS    CL1                      PCA ID                          P$D01940
DC$EODID DS    AL3                      END OF DATA ID                  P$D01950
DC$A1    DS    A                        IOAREA1 ADDRESS                 P$D01960
DC$PBKS  DS    H                        PCA RELATIVE BLOCK SIZE         P$D01970
         DS    CL1                      RESERVED                        P$D01980
DC$PSPB  DS    CL1                      SECTORS PER BLOCK               P$D01990
DC$LACE  DS    H                        INTERLACE FACTOR                P$D02000
DD$KLE   EQU   DC$LACE                  KEY LENGTH                      P$D02010
DC$UOS   DS    H                        UNIT OF STORE                   P$D02020
DC$LADJ  DS    A                        INTERLACE ADJUSTMENT FACTOR     P$D02030
DC$PFG1  DS    CL1                      PCA FLAG BYTE                   P$D02040
*                BIT 0  FORMAT WRITE                                    P$D02050
*                BIT 1  INTERLACED FILE                                 P$D02060
*                BIT 2  SEQUENTIAL = YES                                P$D02070
*                BIT 3  WRITE VERIFY                                    P$D02080
*                BIT 4  VERIFY REQUIRED/INITIAL ALLOCATION              P$D02090
*                BIT 5  NO EXTENSION PERMITTED                          P$D02100
*                BIT 6  INTERLACE ADJUST/KEYED DATA                     P$D02110
*                BIT 7  SIZE SPECIFIED IN TRACKS                        P$D02120
DC$EOD   DS    AL3                      END OF DATA ADDRESS             P$D02130
DS$EOFA  EQU   DC$PFG1,4                                                P$D02140
DD$KYL   DS    A                        KEYARG ADDRESS                  P$D02150
DC$REC   DS    H                        RECORD LENGTH                   P$D02160
DC$SUBF  DS    H                        CURRENT SUBFILE DISPLACEMENT    P$D02170
DC$FG4   DS    CL1                      FLAG 4                          P$D02180
*        DC$FG4  BIT 0   WORKA=YES                                      P$D02190
*                BIT 1   IOAREA2 SPECIFIED                              P$D02200
*                BIT 2  SUBFILE = YES                                   P$D02210
*                BIT 3   IOREG SPECIFIED                                P$D02220
*                BIT 4   VARBLD REGISTER SPECIFIED                      P$D02230
*                BIT 5   WAITF MACRO REQUIRED                           P$D02240
*                BIT 6   READ REQUIRED                                  P$D02250
*                BIT 7   WAIT REQUIRED                                  P$D02260
*                                                                       P$D02270
DC$FG5   DS    CL1                      FLAG 5                          P$D02280
*        DC$FG5  BIT 0   END OF BUFFER CONDITION                        P$D02290
*                BIT 1  EOF INDICATOR                                   P$D02300
*                BIT 2  POINT LAST ISSUED                               P$D02310
*                BIT 3   BUFFER UPDATED INDICATOR                       P$D02320
*                BIT 4  READ/WRITE KEY ISSUED: 0=READ; 1=WRITE          P$D02330
*                BIT 5  READ/WRITE ID  ISSUED: 0=READ; 1=WRITE          P$D02340
*                BIT 6  GET LAST ISSUED                                 P$D02350
*                BIT 7  PUT LAST ISSUED                                 P$D02360
DC$RFM   DS    H                        RECORD FORMAT                   P$D02370
*              X'10'    FIXBLK                                          P$D02380
*                 X'08'=VARBLK                                          P$D02390
*                 X'04'=FIXUNB                                          P$D02400
*                 X'02'=VARUNB                                          P$D02410
DC$FG6   EQU   DC$RFM+1,1                                               P$D02420
*                BIT 0  FORMAT WRITE ISSUED                             P$D02430
*                BIT 1  EOF/EOV SENSED                                  P$D02440
*                BIT 2  EXTEND MODE ACTIVE FOR SD                       P$D02450
*                BIT 3  PCA OPEN                                        P$D02460
*                BIT 4 RESERVED                                         P$D02470
*                BIT 5 RESERVED                                         P$D02480
*                BIT 6  BUFFER ACTIVE                                   P$D02490
*                BIT 7  INTERNAL PUT REQUIRED                           P$D02500
DC$TAB   DS    A                        RESERVED                        P$D02510
DC$A2    DS    A                        IOAREA2 ADDRESS                 P$D02520
DS$CUR   DS    H                        CURRENT BUFFER DISPLACEMENT     P$D02530
DS$LST   DS    H                        LAST SIZE OF READ/WRITE         P$D02540
DS$IRG   DS    H                        IOREG REGISTER DISPLACEMENT     P$D02550
DC$VBL   DS    H                        VARBLD REGISTER DISPLACEMENT    P$D02560
DS$RPB   DS    A                        RECORDS/BLOCK (R/B=1 IF VARBLK) P$D02570
DS$LRPB  DS    A                        REC/BLK FOR LAST BLOCK          P$D02580
DD$HIEOD DS    A                        HIGH EOD FOR FORMAT WRITE       P$D02590
DC$BBB   DS    A                        NOTE/REL ADDRESS STORAGE        P$D02600
DS$NOTED DS    H                        NOTE DISPLACEMENT               P$D02610
         ENDO                                                           P$D02620
         ENDO                                                           P$D02630
         DO    (('&IS'='YES')++&YZ)*(&DS$COM**2=0)                      P$D02640
&DS$COM  SET   &DS$COM++2               SET IS=YES BIT                  P$D02650
*THE FOLLOWING FIELDS ARE GENERATED IF IS = YES                         P$D02660
         ORG   DC$IS                                                    P$D02670
DH$IOA1  DS    F                         IOAL OR IOA1                   P$D02680
DH$IOA2  DS    F                         IOA2                           P$D02690
DH$LWA   DS    F                         WORKAREA                       P$D02700
DH$IORG  DS    H                         I/O REG + DISP.                P$D02710
DH$INDS  DS    H                         SIZE OF IND-AREA               P$D02720
DH$INDA  DS    F                        ADDR OF INDEX BUFFER            P$D02730
         ORG   DC$ERRF                                                  P$D02740
* ISAM-COMMON                                                           P$D02750
*                  DC$FG1     BIT 0      INHIBIT PROCESSING             P$D02760
*                             BIT 1      MFLG                           P$D02770
*                             BIT 2      FILE IS CLOSED                 P$D02780
*                             BIT 3      WORKS = YES                    P$D02790
*                             BIT 4      FILE INDEXED                   P$D02800
*                             BIT 5      VERIFY = YES                   P$D02810
*                             BIT 6      UPDATE = YES                   P$D02820
*                             BIT 7      RESERVED                       P$D02830
*                  DC$FG2     BIT 0      KEYED FILE                     P$D02840
*                             BIT 1      ADD                            P$D02850
*                             BIT 2      RETRIEVE                       P$D02860
*                             BIT 3      LOAD                           P$D02870
*                             BIT 4      RANDOM                         P$D02880
*                             BIT 5      SEQUENTIAL                     P$D02890
*                             BIT 6      IOAREA2 SPECIFIED              P$D02900
*                             BIT 7      INDAREA SPECIFIED              P$D02910
*                  DC$FG3     BIT 0      ERROR SPECIFIED                P$D02920
*                             BIT 1      RESERVED                       P$D02930
*                             BIT 2      FIXED LENGTH RECORDS           P$D02940
*                             BIT 3      RESERVED                       P$D02950
*                             BIT 4      IOREG SPECIFIED                P$D02960
*                             BIT 5      ASCII SPECIFIED                P$D02970
*                             BIT 6      RELOAD SPECIFIED               P$D02980
*                             BIT 7      PCYLOFL SPECIFIED              P$D02990
DC$NMC   DS    CL3                                                      P$D03000
* BYTE 0 BIT 0 - LAST RECORD ON TRACK ACCESSED                          P$D03010
*        BIT 1 - INVALID ID DETECTED                                    P$D03020
*        BIT 2 - INVALID DTF                                            P$D03030
*        BIT 3 - HARDWARE ERROR DETECTED                                P$D03040
*        BIT 4 - ERROR DETECTED IN OPEN                                 P$D03050
*        BIT 5 - ERROR DETECTED IN CLOSE                                P$D03060
*        BIT 6 - INVALID MACRO SEQUENCE                                 P$D03070
*        BIT 7 - RESERVED                                               P$D03080
* BYTE 1 BIT 0 - I/O COMPLETED                                          P$D03090
*        BIT 2 - UNRECOVERABLE ERROR                                    P$D03100
*        BIT 2 - UNIQUE UNIT ERROR                                      P$D03110
*        BIT 3 - RECORD NOT FOUND                                       P$D03120
*        BIT 4 - UNIT EXCEPTION                                         P$D03130
*        BIT 5 - WRONG LENGTH DETECTED                                  P$D03140
*        BIT 6 - END OF TRACK                                           P$D03150
*        BIT 7 - END OF CYLINDER                                        P$D03160
* BYTE 2 BIT 0 - COMMAND REJECT                                         P$D03170
*        BIT 1 - INTERVENTION REQUIRED                                  P$D03180
*        BIT 2 - OUTPUT PARITY CHECK                                    P$D03190
*        BIT 3 - EQUIPMENT CHECK                                        P$D03200
*        BIT 4 - DATA CHECK                                             P$D03210
*        BIT 5 - OVERRUN                                                P$D03220
*        BIT 6 - STOP STATE                                             P$D03230
*        BIT 7 - DEVICE CHECK                                           P$D03240
DC$COF   DS    CL1                                                      P$D03250
* BYTE 3 BIT 0 - RECORD SIZE INVALID                                    P$D03260
*        BIT 1 - LOGICAL END OF FILE                                    P$D03270
*        BIT 2 - FILE SPACE EXHAUSTED                                   P$D03280
*        BIT 3 - PROCESSING INHIBITED                                   P$D03290
*        BIT 4 - INVALID FILE COND/INDEX                                P$D03300
*        BIT 5 - SEQUENCE ERROR                                         P$D03310
*        BIT 6 - DUPLICATE RECORD                                       P$D03320
*        BIT 7 - ADD REJECTED                                           P$D03330
DH$IOAR  DS    F                         ADDR IOAR                      P$D03340
*        DS    H                  LOAD-NR TOP INDEX TRACKS              P$D03350
*        DS    H                  LOAD-NR TOP INDEX BLOCKS              P$D03360
DH$IOAS  DS    F                              IOAS                      P$D03370
*        DS    H                  LOAD-NR INTER INDEX TRACKS            P$D03380
*        DS    H                  LOAD-NR INTER INDEX BLOCKS            P$D03390
DH$RWA   DS    F                         WORK AREA R                    P$D03400
*                  THE FOLLOWING TAGS DEFINE THE INDEX PCA              P$D03410
DC$CID2  DS    F                        CURRENT ID (RRR)                P$D03420
DC$MBA2  DS    F                        MAXIMUM BLOCK ADDR (RRR)        P$D03430
DC$BPT2  DS    F                        BLOCKS PER TRACK                P$D03440
DC$PID2  DS    CL1                      PCA IDENT.                      P$D03450
DC$EID2  DS    CL3                      END OF DATA (RRR)               P$D03460
DC$BUF2  DS    F                        I/O AREA (CORE ADDR)            P$D03470
DC$BPB2  DS    H                        BYTES PER BLOCK                 P$D03480
         DS    CL1                       RESERVED                       P$D03490
DC$SPB2  DS    CL1                      SECTORS PER BLOCK               P$D03500
DC$LCE2  DS    H                        FOR ISAM KEYLENGTH              P$D03510
DC$UOS2  DS    H                        UNIT OF STORE                   P$D03520
DC$ADJ2  DS    F                        NOT USED                        P$D03530
DC$PFG2  DS    CL1                      PCA FLAG                        P$D03540
*                  DC$PFG     BIT0       FORMAT WRITE SPECIFIED         P$D03550
*                             BIT1       INTERLACE SPECIFIED            P$D03560
*                             BIT2       SEQUENTIAL = YES               P$D03570
*                             BIT3       WRITE VERIFY SPECIFIED         P$D03580
*                             BIT4       VERIFY WRITE REQUIRED          P$D03590
*                             BIT5       NO EXTENSION PERMITTED         P$D03600
*                             BIT6       KEY LENGTH SPECIFIED           P$D03610
*                             BIT7       PCA SIZE SPECIFIED IN TRACKS   P$D03620
DC$EOD2  DS    CL3                      EOD ADDR  (CORE ADDR)           P$D03630
DC$OVL   DS    0F                 LOAD OVERLAY POINT                    P$D03640
*                  THE FOLLOWING TAGS DEFINE THE INDEX MASH PACKET      P$D03650
DH$BKA1  DS    1F                  *                                    P$D03660
DH$RPLY1 DS    1F                  *                                    P$D03670
DH$FUN1  DS    CL1                 *                                    P$D03680
DH$COD1  DS    CL1                 *                                    P$D03690
DH$SPB1  DS    CL2                      *                               P$D03700
DH$BSZ1  DS    CL2                 *    INDEX AREA PACKET               P$D03710
DH$RDS1  DS    CL2                 *                                    P$D03720
DH$BHB1  DS    CL2                 *                                    P$D03730
DH$CFB1  DS    CL2                 *                                    P$D03740
DH$KSZ1  DS    CL2                 *                                    P$D03750
DH$KLC1  DS    CL2                 *                                    P$D03760
*                  THE FOLLOWING TAGS DEFINE THE PRIME DATA PCA         P$D03770
DH$PCAID DS    1F                  CURRENT ID                           P$D03780
DH$PMBA  DS    1F                                                       P$D03790
DH$BPT   DS    1F                                                       P$D03800
         DS    CL1                     PCA2 ID                          P$D03810
DH$EODID DS    CL3                                                      P$D03820
DH$A1    DS    1F                                                       P$D03830
DH$PBKS  DS    CL2                                                      P$D03840
         DS    CL1            *    RESERVED                             P$D03850
DH$PSPB  DS    CL1                 SECTOR/BLOCK                         P$D03860
DH$LACE  DS    CL2                 LACE FACTOR KEYLENGTH                P$D03870
DH$UOS   DS    CL2                 UNIT OF STORE                        P$D03880
DH$LADJ  DS    1F                  INTERLACE ADJ                        P$D03890
DH$PFG1  DS    CL1                                                      P$D03900
DH$EOD   DS    CL3                                                      P$D03910
*                  THE FOLLOWING TAGS DEFINE THE PRIME DATA MASH PACK   P$D03920
DH$BKA   DS    1F                  MASH WORK AREA                       P$D03930
DH$RPLY  DS    F                          REPLY FROM MASH               P$D03940
*                  DH$RPLY    BIT 0      KEY IN BUFFER IS EQUAL         P$D03950
*                             BIT 1      KEY IN BUFFER IS LOW           P$D03960
*                             BIT 2      KEY IN BUFFER IS HIGH          P$D03970
DH$FUN   DS    CL1                                                      P$D03980
*                             VALUE '00' LOAD WITH SEQ. CHECKING        P$D03990
*                  DH$FUN     VALUE '01' LOAD W/O SEQ. CK               P$D04000
*                             VALUE '02' GET/POINT NEXT RECORD          P$D04010
*                             VALUE '03' SEARCH EH AND POINT            P$D04020
*                             VALUE '04' UPDATE CURRENT RECORD          P$D04030
*                             VALUE '05' GET/POINT CURRENT RECORD       P$D04040
*                             VALUE '06' TEST CURRENT KEY               P$D04050
*                  VALUE '07' VALIDATE RECORD LOCATION                  P$D04060
*                             VALUE '08' GET CURRENT RECORD             P$D04070
*                             VALUE '09' PLACE NEW RECORD               P$D04080
DH$COD   DS    CL1                                                      P$D04090
*                  DH$COD     BIT6       POINT TO RECORD (NOT GET)      P$D04100
*                             BIT7       RECORDS ARE VARIABLE           P$D04110
DH$SPB   DS    CL2                 RECORD SIZE                          P$D04120
DH$BSZ   DS    CL2                 BLOCK SIZE                           P$D04130
DH$RDS   DS    CL2                 DIVIDER SIZE                         P$D04140
DH$BHB   DS    CL2                 BLOCK HEADER BYTES                   P$D04150
DH$CFB   DS    CL2                 CURRENT FILL BYTES                   P$D04160
DH$KSZ   DS    CL2                 KEYSIZE                              P$D04170
DH$KLC   DS    CL2                 KEY LOCATION                         P$D04180
DH$KARG  DS    0F                  ADDR KEY STORAGE FOR RTRV & ADD      P$D04190
         DS    CL1                 RESERVED - LOAD/RELOAD               P$D04200
DH$LIB   DS    CL3                 RRR - LAST INTER INDEX BLOCK         P$D04210
         DS    CL1                        RESERVED                      P$D04220
DH$PID   DS    CL5                 LAST PD+1  (RRRBB)                   P$D04230
DH$NMA   DS    H                          FILENAME-A                    P$D04240
*                  DH$NMA     NUMBER OF CYLINDERS W/FULL O/F AREA       P$D04250
DH$IOF   DS    F                   ADDR OF INDEPENDENT O/F              P$D04260
DH$PDLC  DS    H                   PRIME DATA LOAD COUNT                P$D04270
DH$NMO   DS    H                          FILENAME-O                    P$D04280
*                  DH$NMO     TOTAL NUMBER OF OVERFLOW RECORDS          P$D04290
         DS    CL1                        RESERVED                      P$D04300
DH$BID   DS    CL5                 LAST BI+1  (RRRBB)                   P$D04310
DH$NMR   DS    H                          FILENAME-R                    P$D04320
*                  DH$NMR     O/F RETRIEVED NOT FIRST IN CHAIN          P$D04330
         DS    CL1                        RESERVED                      P$D04340
DH$NMP   DS    CL3                        FILENAME-P                    P$D04350
*                  DH$NMP     NUMBER OF PRIME DATA RECORDS              P$D04360
DH$NMS   DS    H                          FILENAME-S                    P$D04370
*                  DH$NMS     BYTES REQD TO HOLD TOP INDEX IN CORE      P$D04380
DH$NMT   DS    H                          FILENAME-T                    P$D04390
*                  DH$NMT     NUMBER RECORDS TAGGED FOR DELETION        P$D04400
         DS    CL1                        RESERVED                      P$D04410
*                             1ST INT INDX BLK # (2BYTES) - ENDFL       P$D04420
DH$NMG   DS    CL5                        FILENAME-G                    P$D04430
DH$COF   EQU   DH$NMG                                                   P$D04440
*                  DH$NMG     RRRBB SOURCE OF RECORD                    P$D04450
*                 DH$NMG+1    1ST BLK # OF BLK INDX (2BYTES) - ENDFL    P$D04460
DH$FG1   DS    CL1                                                      P$D04470
*                  DH$FG1     BIT 0      SPECIAL PIOCS                  P$D04480
*                             BIT 1      READ/GET INDICATOR             P$D04490
*                             BIT 2      RANDOM UPDATE PENDING          P$D04500
*                             BIT 3      SEQUENTIAL UPDATE PENDING      P$D04510
*                             BIT 4      ADDS OF RECORDS RESTRICTED     P$D04520
*                             BIT 5      INDEPENDENT O/F IN USE         P$D04530
*                             BIT 6      O/F READ REQUIRED              P$D04540
*                             BIT 7      NEW RECORD FITS                P$D04550
DH$FG2   DS    CL1                        FLAG BYTE2                    P$D04560
*                  DH$FG2     BIT 0      GET                            P$D04570
*                             BIT 1      PUT                            P$D04580
*                             BIT 2      SETL/SETFL                     P$D04590
*                             BIT 3      ESETL/ENDFL                    P$D04600
*                             BIT 4      READ KEY/ID                    P$D04610
*                             BIT 5      WRITEKEY                       P$D04620
*                             BIT 6      WRITE NEWKEY                   P$D04630
*                             BIT 7      WAITF/OPEN                     P$D04640
         DS    CL1                       RESERVED                       P$D04650
DH$NMH   DS    CL5                        FILENAME-H                    P$D04660
*                  DH$NMH     RRRBB RECORD DESTINATION                  P$D04670
DH$BPC   DS    H                         BLOCKS/CYLINDER                P$D04680
DH$OVL   EQU   *                   SEQUENTIAL CONTROL SEGMENT           P$D04690
         DS    CL1                      RESERVED                        P$D04700
DH$SRCH  DS    CL5                       SEARCH RETURN                  P$D04710
DH$URA   DS    H                        UPDATE RECORD DISPLACEMENT      P$D04720
DH$BSRW  DS    0F                                                       P$D04730
DH$TBS   DS    CL1                                                      P$D04740
*                   BIT5      NEXT RECORD IS EOF                        P$D04750
*                   BIT6      PREV MACRO WAS BOF                        P$D04760
*                   BIT7      BUFFER 'S' IS UPDATED                     P$D04770
DH$BSR   DS    CL3                      CURRENT IOAREAS (RRR)           P$D04780
DH$BSB   DS    H                        CURRENT IOAREAS (BB             P$D04790
DH$BSA   DS    CL3                      LAST IOAREAS                    P$D04800
DH$SCC   DS    CL1                      SEQ. CONTROL CODE               P$D04810
*                   VALUE 00  FIRST RECORD IN BLOCK                     P$D04820
*                   VALUE 02  NEXT RECORD IN BLOCK                      P$D04830
*                   VALUE 04  SAME RECORD IN BLOCK                      P$D04840
*                   VALUE 06  RECORD IN BUFFER '2'                      P$D04850
DH$TB2   DS    CL1                      FLAG                            P$D04860
*                   BIT7      BUFFER '2' IS UPDATED                     P$D04870
DH$B2R   DS    CL3                      CURRENT IOAREA2 (RRR)           P$D04880
DH$B2B   DS    H                        CURRENT IOAREA2 (BB)            P$D04890
DH$B2A   DS    CL3                      LAST IOAREA2                    P$D04900
DH$LCC   DS    CL1                      LAST SCC                        P$D04910
DH$BRRW  DS    0F                                                       P$D04920
DH$TBR   DS    CL1                                                      P$D04930
*                   BIT7      BUFFER 'R' IS UPDATED                     P$D04940
DH$BRR   DS    CL3                      CURRENT IOAREAR (RRR)           P$D04950
DH$BRB   DS    H                        CURRENT IOAREAR (BB)            P$D04960
DH$BRA   DS    CL3                      LAST IOAREAR (RRR)              P$D04970
DH$BCB   DS    CL1                      BUFFER CONTROL BYTE             P$D04980
*                             BUFFER CONTROL BYTE                       P$D04990
*                                       BIT 3&5 BUFFER 'S' IS SHARED    P$D05000
         DS    H                             RESERVED                   P$D05010
DH$AOVL  EQU   *                   ADD CONTROL SEGMENT                  P$D05020
         DS    CL1                        RESERVED                      P$D05030
DH$LOF   DS    CL5                       LAST O/F RECORD                P$D05040
DH$H01   DS    H                          HALFWORD                      P$D05050
         DS    CL1                        RESERVED                      P$D05060
DH$ACCR  DS    CL3                       ADDR CURR COCR                 P$D05070
         DS    CL1                        RESERVED                      P$D05080
DH$COCR  DS    CL5                       CURRENT CYL O/F CNTL RECORD    P$D05090
DH$H02   DS    H                          HALFWORD                      P$D05100
DH$AKY   DS    F                         ADDR KEY IN WORK AREA          P$D05110
         ORG   DC$OVL                                                   P$D05120
*                FLAGS USED BY LOAD AND EXTENDED LOAD ROUTINES          P$D05130
DH$LFG3  DS    CL1                                                      P$D05140
*                   BIT0     BUFFER TO BE WRITTEN OUT BY ENDFL          P$D05150
*                   BIT1     COCR WRITTEN                               P$D05160
*                   BIT2     INDEX ENTRY REQUIRED                       P$D05170
*                   BIT3     DH$NMH FEILD HAS BEEN INCREMENTED          P$D05180
*                   BIT4     EXTENTED LOAD                              P$D05190
*                   BIT5     WORKING SWITCH _ SETFL                     P$D05200
*                   BIT6                                                P$D05210
*                   BIT7                                                P$D05220
DH$LFG4  DS    CL1                                                      P$D05230
*                   BIT 0 WORKING FLAG BIT, EXTEND LOAD                 P$D05240
*                   BIT 1 WORKING FLAG BIT, EXTEND LOAD                 P$D05250
*                   BIT 2 WORKING FLAG BIT, ENDFL                       P$D05260
*                   BIT 3 WORKING FLAG BIT, ENDFL                       P$D05270
*                   BIT 4 TOP INDEX FROM BLOCK INDX, ENDFL              P$D05280
*                   BIT 5 WORKING FLAG BIT,LOAD                         P$D05290
*                   BIT 6 RESERVED                                      P$D05300
*                   BIT 7 RESERVED                                      P$D05310
         DS    H                             RESERVED                   P$D05320
DH$LKY   DS    F                        ADDR OF KEY IN WORKAREA         P$D05330
DH$LCCNT DS    H                        LOAD COUNT COUNTER              P$D05340
DH$CIP   DS    H                        CURRENT INDEX POSITION          P$D05350
DH$LACR  DS    F                        ADDR OF CURRENT COCR (RRR)      P$D05360
DH$IRM   DS    H                        UNUSED AREA IN IOX BUFFER       P$D05370
DH$IE    DS    H                        INDEX ENTRY SIZE (KEY+3)        P$D05380
DH$MAXR  DS    H                        MAXIMUM RECORD SIZE             P$D05390
DH$OVFAC DS    H                        OVERFLOW CONTROL                P$D05400
* END ISAM                                                              P$D05410
         ENDO                                                           P$D05420
         DO    (('&MT'=''=0)++&YZ)*(&DS$COM**16=0)                      P$D05430
&DS$COM  SET   &DS$COM++16         SET MT=YES BIT                       P$D05440
         ORG   DC$PMBA                                                  P$D05450
DC$TFG1  DS    CL1                 TAPE FLAG 1                          P$D05460
*              BIT 0  ASCII=YES                                         P$D05470
*              BIT 1  BKNO=YES                                          P$D05480
*              BIT 2  LENCHK=YES                                        P$D05490
*              BIT 3  CKPTREC=YES                                       P$D05500
*              BIT 4  TPMARK=YES                                        P$D05510
*              BIT 5  FILABL=NO                                         P$D05520
*              BIT 6  FILABL=STD                                        P$D05530
*              BIT 7  FILABL=NSTD                                       P$D05540
DC$TFG2  DS    CL1                 TAPE FLAG 2                          P$D05550
*              BIT 0  OPRW=NORWD                                        P$D05560
*              BIT 1  CLRW=RWD                                          P$D05570
*              BIT 2  CLRW=NORWD                                        P$D05580
*              BIT 3  REWIND=UNLOAD                                     P$D05590
*              BIT 4  REWIND=NORWD                                      P$D05600
*              BIT 5  READ=FORWARD                                      P$D05610
*              BIT 6  RESERVED                                          P$D05620
*              BIT 7  RESERVED                                          P$D05630
DC$BUFOF DS    H                   BUFFER OFFSET                        P$D05640
         ENDO                                                           P$D05650
         DO    (('&PR'='YES')++&YZ)*(&DS$COM**4=0)                      P$D05660
&DS$COM  SET   &DS$COM++4               SET PR=YES BIT                  P$D05670
         ORG   DC$UR                                                    P$D05680
DP$MFLG  DS    H                        MODULE FLAGS                    P$D05690
DP$PUB   DS    H                        PUB ADDRESS                     P$D05700
DP$POV   DS    A                        USER OVERFLOW ROUTINE ADDRESS   P$D05710
DP$RLA   DS    H                        RECORD LENGTH ADJUSTMENT        P$D05720
DP$DTF   DS    CL3                      DTF TYPE CODE                   P$D05730
DP$REQS  DS    CL1                      FUNCTION CODE                   P$D05740
DP$EFG   DS    H                        ERROR FLAGS                     P$D05750
DP$IOCS  DS    A                        SYSTEM ADDRESS                  P$D05760
DP$ERR   DS    A                        USER ERROR RTN ADDRESS          P$D05770
DP$CCW1  DS    0CL8                     CCW1                            P$D05780
DP$CW1C  DS    CL1                       OP-CODE                        P$D05790
DP$CW1D  DS    CL3                       DATA ADDRESS                   P$D05800
DP$CW1F  DS    H                         FLAGS                          P$D05810
DP$CW1B  DS    H                         BYTE COUNT                     P$D05820
DP$REC   DS    CL1                      RECSIZE REG DISPLACEMENT        P$D05830
DP$IRG   DS    CL1                      IOREG DISPLACEMENT              P$D05840
DP$FG1   DS    CL1                      FLAG BYTE 1                     P$D05850
DP$FG2   DS    CL1                      FLAG BYTE 2                     P$D05860
DP$FG3   DS    CL1                      FLAG BYTE 3                     P$D05870
DP$FG4   DS    CL1                      FLAG BYTE 4                     P$D05880
DP$FG5   DS    CL1                      FLAG BYTE 5                     P$D05890
DP$RFM   DS    CL1                      RECORD FORMAT                   P$D05900
DP$BKS   DS    H                        BLOCK SIZE                      P$D05910
DP$CCS   DS    CL1                      OP-CODE STORAGE                 P$D05920
DP$PRA   DS    CL1                      STD OP-CODE                     P$D05930
DP$BAS   DS    A                        HARDWARE RELATIVE I/O AREA      P$D05940
DP$SAV   DS    A                        ADDRESS USER REG SAVE AREA      P$D05950
DP$SAVR  DS    A                        STORAGE FOR USER REG 13         P$D05960
DP$FLN   DS    CL1                      FORM LENGTH                     P$D05965
DP$VFOV  DS    CL1                      OVERFLOW LINE NUMBER
         DS    H                        RESERVED
*                                                                       P$D05970
*                  RECORD FORMAT BYTE                                   P$D05980
*                                                                       P$D05990
*                                         BITS 0-4 UNUSED               P$D06000
*                                         BIT 5=1 FIXED-UNBLOCKED       P$D06010
*                                         BIT 6=1 VARIABLE-UNBLOCKED    P$D06020
*                                         BIT 7=1 UNDEFINED             P$D06030
*                                                                       P$D06040
*                  PRINTER ERROR FLAG BIT ASSIGNMENTS (DP$EFG)          P$D06050
*                                                                       P$D06060
*                                         BIT 0=1 LINE TRUNCATED        P$D06070
*                                         BIT 1=1 INVALID CONTROL CHAR  P$D06080
*                                         BIT 2=1 CHARACTER MISMATCH    P$D06090
*                                         BIT 3=1 HARDWARE ERROR        P$D06100
*                                         BIT 4=1 ERROR IN OPEN         P$D06110
*                                         BIT 5=1 ERROR IN CLOSE        P$D06120
*                                         BIT 6=1 INVALID IMPER MACRO   P$D06130
*                                         BIT 7=1 RECORD SIZE INVALID   P$D06140
*                                                                       P$D06150
*                  PRINTER FLAG BYTE BIT ASSIGNMENTS                    P$D06160
*                                                                       P$D06170
*                         FLAG BYTE 1                                   P$D06180
*                                         BIT 0   UNUSED                P$D06190
*                                         BIT 1=1 FILE OPEN             P$D06200
*                                         BIT 2=1 FILE CLOSED           P$D06210
*                                         BIT 3=1 WORKA=YES SPECIFIED   P$D06220
*                                         BIT 4=1 IOAREA2 SPECIFIED     P$D06230
*                                         BIT 5=1 UCS=OFF KEYWORD (OR   P$D06240
*                                                 NO UCS KEYWORD)       P$D06250
*                                         BIT 6=1 DISABLE IMPER MACROS  P$D06260
*                                         BIT 7   UNUSED                P$D06270
*                         FLAG BYTE 2                                   P$D06280
*                                         BIT 0=1 CONTROL SPECIFIED     P$D06290
*                                         BIT 1 - IMMEDIATE CNTRL SW    P$D06300
*                                         BIT 2 - DELAYED CNTRL SW      P$D06310
*                                         BIT 3 - DELAYED CNTRL ISSUED  P$D06320
*                                         BIT 4=1 - VFB INFO REQUEST    P$D06330
*                                         BIT 5 - RESERVED FOR RPG (LC) P$D06340
*                                         BIT 6-  PRINTOV ON SW         P$D06350
*                                         BIT 7   RESERVED FOR COBOL    P$D06360
*                                                 (USE FOR FORM OVERFL) P$D06370
*                         FLAG BYTE 3                                   P$D06380
*                                         BIT 0=1 ERROR SPECIFIED       P$D06390
*                                         BIT 1=1 SAVAREA SPECIFIED     P$D06400
*                                         BIT 2=1 PRINT -OPCODE GEN SUB P$D06410
*                                         BIT 3=1 SKIP -OPCODE GEN SUBR P$D06420
*                                         BIT 4=1 PRNTR MISM MODE CHNGD P$D06430
*                                         BIT 5=1 CTLCHR=DI             P$D06440
*                                         BIT 6=1 LINE TRUNCATED        P$D06450
*                                         BIT 7   UNUSED                P$D06460
*                         FLAG BYTE 4                                   P$D06470
*                                         BIT 0=1 SPOOLED FILE          P$D06480
*                                         BIT 1=1 RECSIZE REG SPEC      P$D06490
*                                         BIT 2=1 OPTION=YES            P$D06500
*                                         BIT 3=1 9200/9300 PRINTER     P$D06510
*                                         BIT 4=1 IOREG SPECIFIED       P$D06520
*                                         BIT 5=1 0776 PRINTER          P$D06530
*                                         BIT 6=1 0768 PRINTER          P$D06540
*                                         BIT 7=1 0770 PRINTER          P$D06550
*                         FLAG BYTE 5                                   P$D06560
*                                         BIT 0=1 PRINTOV=YES           P$D06570
*                                         BIT 1=1 PRINTOV=SKIP          P$D06580
*                                         BIT 2=1 PRINTOV=SYMBOL        P$D06590
*                                         BIT 3=1 PRTOV 9               P$D06600
*                                         BIT 4=1 FORMS OVERFLOW 9 SENS P$D06610
*                                         BIT 5=1 FORMS OVERFLOW SENSED P$D06620
*              {   {                      BIT 6=1 DELAYED FORMS OVF SW  P$D06630
*                                         BIT 7=1 DELAYED FORMS OVF 9 S P$D06640
*                                                                       P$D06650
*        DTF BYTE DISPLACEMENTS                                         P$D06660
*                                                                       P$D06670
DP$B1    EQU   (DC$T-DC$CCB)*256        DC$T (TRANS BYTE) DISPLACEMENT  P$D06680
DP$B2    EQU   (DC$CCBF2-DC$CCB)*256    DC$CCBF2 DISPLACEMENT           P$D06690
DP$B3    EQU   (DP$FG1-DC$CCB)*256      FLAG BYTE 1 DISPLACEMENT        P$D06700
DP$B4    EQU   (DP$FG2-DC$CCB)*256      FLAG BYTE 2 DISPLACEMENT        P$D06710
DP$B5    EQU   (DP$FG3-DC$CCB)*256      FLAG BYTE 3 DISPLACEMENT        P$D06720
DP$B6    EQU   (DP$FG4-DC$CCB)*256      FLAG BYTE 4 DISPLACEMENT        P$D06730
DP$B7    EQU   (DP$FG5-DC$CCB)*256      FLAG BYTE 5 DISPLACEMENT        P$D06740
DP$B8    EQU   (DP$RFM-DC$CCB)*256      RECORD FORMAT BYTE DISPLACEMENT P$D06750
DP$B9    EQU   (DC$SB+2-DC$CCB)*256     SECOND SENSE BYTE DISPLACEMENT  P$D06760
DP$B10   EQU   (DP$MFLG-DC$CCB)*256     MODULE FLAGS DISPLACEMENT       P$D06770
DP$B11   EQU   (DP$EFG-DC$CCB)*256      ERROR FLAGS DISPLACEMENT        P$D06780
DP$B12   EQU   (DP$CW1C-DC$CCB)*256     CCW OP-CODE DISPLACEMENT        P$D06790
*                                                                       P$D06800
*        SINGLE BIT EQUATES                                             P$D06810
*                                                                       P$D06820
DP$B010  EQU   DP$B2+32                 ACCEPT UNIQUE ERROR             P$D06830
DP$B020  EQU   DP$B2+64                 ACCEPT UNRECOVERABLE ERROR      P$D06840
DP$B030  EQU   DP$B12+128               CCW OP-CODE SKIP                P$D06850
DP$B043  EQU   DP$B9+8                  CODE 9 OVERFLOW SENSED ON 0770  P$D06860
DP$B050  EQU   DP$B4+128                CONTROL SPECIFIED               P$D06870
DP$B070  EQU   DP$B5+4                  CTLCHR=DI                       P$D06880
DP$B100  EQU   DP$B4+16                 DELAYED CONTROL ISSUED          P$D06890
DP$B110  EQU   DP$B4+32                 DELAYED CONTROL SW              P$D06900
DP$B113  EQU   DP$B7+2                  DELAYED FORMS OVERFLOW SW       P$D06910
DP$B114  EQU   DP$B7+1                  DELAYED FORMS OVERFLOW 9 SW     P$D06920
DP$B115  EQU   DP$B3+2                  DISABLE IMPERATIVE MACROS       P$D06930
DP$B120  EQU   DP$B5+128                ERROR=YES SPEC                  P$D06940
DP$B130  EQU   DP$B3+32                 FILE CLOSED                     P$D06950
DP$B150  EQU   DP$B3+64                 FILE OPEN                       P$D06960
DP$B160  EQU   DP$B8+4                  FIXED-UNBLOCKED RECORD          P$D06970
DP$B165  EQU   DP$B7+8                  FORMS OVERFLOW 9 SENSED         P$D06980
DP$B170  EQU   DP$B7+4                  FORMS OVERFLOW SENSED           P$D06990
DP$B200  EQU   DP$B4+64                 IMMEDIATE CNTRL SW              P$D07000
DP$B210  EQU   DP$B3+8                  IOAREA2 SPECIFIED               P$D07010
DP$B220  EQU   DP$B6+8                  IOREG SPECIFIED                 P$D07020
DP$B230  EQU   DP$B5+2                  LINE TRUNCATED BIT              P$D07030
DP$B235  EQU   DP$B10+2                 NO FILE CONTROL BLOCK           P$D07040
DP$B240  EQU   DP$B6+32                 OPTION=YES                      P$D07050
DP$B243  EQU   DP$B5+8                  PRINTER MISM MODE CHANGED       P$D07060
DP$B245  EQU   DP$B5+32                 PRINT-OPCODE GEN SUBROUTINE     P$D07070
DP$B250  EQU   DP$B7+64                 PRINTOV=SKIP                    P$D07080
DP$B260  EQU   DP$B7+32                 PRINTOV=SYMBOL                  P$D07090
DP$B270  EQU   DP$B7+128                PRINTOV=YES                     P$D07100
DP$B280  EQU   DP$B4+2                  PRINTOV ON SW                   P$D07110
DP$B285  EQU   DP$B7+16                 PRTOV 9                         P$D07120
DP$B290  EQU   DP$B6+64                 RECSIZE REG SPECIFIED           P$D07130
DP$B300  EQU   DP$B4+1                  RESERVED FOR COBOL OVERFLOW     P$D07140
DP$B305  EQU   DP$B4+4                  RESERVED FOR RPG (LN CNTR)      P$D07145
DP$B310  EQU   DP$B5+64                 SAVAREA SPECIFIED               P$D07150
DP$B315  EQU   DP$B5+16                 SKIP-OPCODE GEN SUBROUTINE      P$D07160
DP$B317  EQU   DP$B6+128                SPOOLED FILE                    P$D07170
DP$B320  EQU   DP$B2+8                  SYSTEMS ACCESS MODE             P$D07180
DP$B330  EQU   DP$B1+128                TRAFFIC BIT                     P$D07190
DP$B360  EQU   DP$B3+4                  UCS=OFF KEYWORD                 P$D07200
DP$B370  EQU   DP$B8+1                  UNDEFINED RECORD FORMAT         P$D07210
DP$B372  EQU   DP$B1+32                 UNIQUE ERROR BIT                P$D07220
DP$B375  EQU   DP$B1+8                  UNIT EXCEPTION BIT              P$D07230
DP$B377  EQU   DP$B1+64                 UNRECOVERABLE ERROR             P$D07240
DP$B380  EQU   DP$B8+2                  VARIABLE-UNBLOCKED RECORD FORMA P$D07250
DP$B385  EQU   DP$B4+8                  VFB INFO REQUEST                P$D07255
DP$B390  EQU   DP$B3+16                 WORKAREA SPECIFIED              P$D07260
DP$B400  EQU   DP$B6+2                  0768 PRINTER                    P$D07270
DP$B410  EQU   DP$B6+1                  0770 PRINTER                    P$D07280
DP$B420  EQU   DP$B6+4                  0776 PRINTER                    P$D07290
DP$B430  EQU   DP$B6+16                 9200/9300 PRINTER               P$D07300
*        COMBINATION OF BITS                                            P$D07310
DP$B600  EQU   DP$B4+80                 IMMED CNTRL & DEL CNTRL ISSUED  P$D07320
DP$B605  EQU   DP$B4+112                IMMED CNTRL,DEL CNTRL & DEL     P$D07330
*                                          CNTRL ISSUED SWITCHES        P$D07340
DP$B610  EQU   DP$B7+112                PRTOV 9 & PRINTOV=SKIP,SYMBOL   P$D07350
DP$B640  EQU   DP$B7+224                PRINTOV=SKIP,SYMBOL & YES       P$D07360
DP$B650  EQU   DP$B1+127                TRANS BYTE BITS 1-7             P$D07370
DP$B660  EQU   DP$B3+24                 IOAREA2 AND WORK AREA           P$D07380
DP$B680  EQU   DP$B165++DP$B170         FORMS OVERFLOW & FORM OV 9      P$D07390
DP$B700  EQU   DP$B245++DP$B315         PRINT & SKIP -OPCODE GEN SUBR   P$D07400
DP$B710  EQU   DP$B400++DP$B410++DP$B420++DP$B430    0768,0770,0776 OR  P$D07410
*                                                    9200/9300 PRINTER  P$D07420
DP$B715  EQU   DP$B400++DP$B410++DP$B420     0768,0770 OR 0776 PRINTER  P$D07430
DP$B720  EQU   DP$B165++DP$B285         FORM OV 9 & PRTOV 9             P$D07440
DP$B730  EQU   DP$B12+6                 CCW OP-CODE ADVANCE ONLY BITS   P$D07450
DP$B740  EQU   DP$B11+X'7F'             ERRORS?                         P$D07460
DP$B750  EQU   DP$B410++DP$B420         0770,0776 BITS                  P$D07470
*        MESSAGE CODE EQUATES                                           P$D07480
DP$E01   EQU   X'21'                    INVALID OR MISSING DVC ASSIGN   P$D07490
DP$E02   EQU   X'14'                    INVALID IMPERATIVE MACRO        P$D07500
DP$E03   EQU   X'42'                    CHARACTER MISMATCH              P$D07510
DP$E04   EQU   X'23'                    HARDWARE ERROR                  P$D07520
DP$E05   EQU   X'43'                    INVALID CONTROL CHARACTER       P$D07530
DP$E07   EQU   X'44'                    LINE TRUNCATED                  P$D07540
DP$E09   EQU   X'18'                    RECORD SIZE INVALID             P$D07550
DP$E11   EQU   X'13'                    UNOPENED FILE                   P$D07560
*                                                                       P$D07570
*        ERROR FLAG BIT EQUATES                                         P$D07580
*                                                                       P$D07590
DP$EB01  EQU   DP$B11+8                 ERROR IN OPEN                   P$D07600
DP$EB02  EQU   DP$B11+2                 INVALID IMPERATIVE MACRO        P$D07610
DP$EB03  EQU   DP$B11+32                CHARACTER MISMATCH              P$D07620
DP$EB04  EQU   DP$B11+16                HARDWARE ERROR                  P$D07630
DP$EB05  EQU   DP$B11+64                INVALID CONTROL CHARACTER       P$D07640
DP$EB07  EQU   DP$B11+128               LINE TRUNCATED                  P$D07650
DP$EB08  EQU   DP$B11+4                 ERROR IN CLOSE                  P$D07660
DP$EB09  EQU   DP$B11+1                 RECORD SIZE INVALID             P$D07670
         ENDO                                                           P$D07680
         DO    (('&CD'='YES')++&YZ)*(&DS$COM**1=0)                      P$D07690
&DS$COM  SET   &DS$COM++1               SET CD=YES BIT                  P$D07700
         ORG   DC$UR                                                    P$D07710
         EJECT                                                          P$D07720
*                                                                       P$D07730
* FLAG BYTES FOR CARD SYSTEM                                            P$D07740
*                                                                       P$D07750
* DR$EFG       ERROR FLAG BYTE                                          P$D07760
*        BIT 0=1 - BLKSIZE SPECIFICATION ERROR OR RECORD SIZE ERROR     P$D07770
*        BIT 1   - UNUSED                                               P$D07780
*        BIT 2=1 - UNIQUE UNIT ERROR (VALIDITY CHECK ERROR)             P$D07790
*        BIT 3=1 - UNRECOVERABLE I/O ERROR                              P$D07800
*        BIT 4=1 - ERROR DETECTED IN OPEN                               P$D07810
*        BIT 5=1 - ERROR DETECTED IN CLOSE                              P$D07820
*        BIT 6=1 - INVALID IMPERATIVE MACRO                             P$D07830
*        BIT 7   - UNUSED                                               P$D07840
*                                                           R  P  C     P$D07850
* DR$FG1                                                                P$D07860
*        BIT 0=1 - OUTPUT FILE                                 X        P$D07870
*        BIT 1=1 - FILE OPEN                                X  X  X     P$D07880
*        BIT 2=1 - FILE CLOSED                              X  X  X     P$D07890
*        BIT 3=1 - WORK SPECIFIED                           X  X  X     P$D07900
*        BIT 4=1 - IOA2 SPECIFIED                           X  X  X     P$D07910
*        BIT 5=1 - SKIP FIRST INPUT EXCP                    X           P$D07920
*        BIT 6=1 - COMBINED FILE                                  X     P$D07930
*        BIT 7=1 - INPUT FILE                               X           P$D07940
* DR$FG2                                                                P$D07950
*        BIT 0=1 - CNTRL SPECIFID                              X  X     P$D07960
*        BIT 1=1 - PUNCH RETRY DURING CLOSE                    X        P$D07970
*        BIT 2=1 - DELAYED CNTRL (PROCESSING FLAG)             X  X     P$D07980
*        BIT 3=1 - DELAYED CNTRL ISSUED (PROCESSING FLAG)      X  X     P$D07990
*        BIT 4=1 - AUE=YES                                  X           P$D08000
*        BIT 5=1 - 51 COLUMN CARD                           X           P$D08010
*        BIT 6=1 - 66  COLUMN CARD                          X           P$D08020
*        BIT 7=1 - END OF FILE INDICATOR   (INITIALLY=1)    X     X     P$D08030
* DR$FG3                                                                P$D08040
*        BIT 0=1 - ERROR SPECIFIED                          X  X  X     P$D08050
*        BIT 1=1 - INHIBIT DM TRANSLATION                               P$D08060
*        BIT 2=1 - ITBL SPECIFIED                           X     X     P$D08070
*        BIT 3=1 - OTBL SPECIFIED                              X  X     P$D08080
*        BIT 4=1 - MODE = CC                                X  X  X     P$D08090
*        BIT 5=1 - MODE = BINARY                            X  X  X     P$D08100
*        BIT 6=1 - MODE = STD                               X  X  X     P$D08110
*        BIT 7=1 - MODE = TRANS                             X  X  X     P$D08120
* DR$FG4                                                                P$D08130
*        BIT 0=1 - PUNR SPECIFIED                              X        P$D08140
*        BIT 1=1 - RCSZ SPECIFIED                              X        P$D08150
*        BIT 2=1 - OPTION SPECIFIED                         X           P$D08160
*        BIT 3=1 - ORLP SPECIFIED                                 X     P$D08170
*        BIT 4=1 - IORG SPECIFIED                           X  X        P$D08180
*        BIT 5=1 - PREVIOUS MACRO WAS A GET  (CMBND FILE)         X     P$D08190
*        BIT 6=1 - ASCII=YES                                X  X  X     P$D08200
*        BIT 7=1 - HOLE COUNT ERROR RECOVERY                   X        P$D08210
* DR$FG5                                                                P$D08220
*        BIT 0=1 - SAVEAREA SPECIFIED                      X  X  X      P$D08230
*        BIT 1=1 - OPTIONAL FILE PROCESSING                 X  X  X     P$D08240
*        BIT 2=1 - PUNCH 0604                              X  X  X      P$D08250
*        BIT 3=1 -  9200/9300                              X  X         P$D08260
*        BIT 4=1 - 0605 PUNCH                                           P$D08270
*        BIT 5=1 - 0716 READER                              X           P$D08280
*        BIT 6   - SPOOLED FILE                             X  X        P$D08290
*        BIT 7=1 - SELECTABLE STACKER                                   P$D08300
* DR$RFM                                                                P$D08310
*        BITS 0-4  UNUSED                                               P$D08320
*        BIT 5=1 - FIXED UNBLOCKED                          X     X     P$D08330
*        BIT 6=1 - VARIABLE-UNBLOCKED                          X        P$D08340
*        BIT 7=1 - UNDEFINED                                   X        P$D08350
*                                                                       P$D08360
*                                                                       P$D08370
DR$MFLG  DS    H                        MODULE FLAGS                    P$D08380
DR$PUB   DS    H                        ACTIVE PUB ADDRESS              P$D08390
DR$EFA   DS    F                        ADDR OF USER END OF FILE ROUTIN P$D08400
DR$RLA   DS    H                        RECORD LENGTH ADJUSTMENT        P$D08410
DR$DTF   DS    CL3                      DTF TYPE CODE                   P$D08420
DR$REQS  DS    CL1                      FUNCTION CODE                   P$D08430
DR$EFG   DS    H                        ERROR FLAGS                     P$D08440
DR$IOCS  DS    F                        ADDRESS OF IOCS MODULE          P$D08450
DR$ERR   DS    F                        USER ERROR ADDRESS              P$D08460
DR$CCW1  DS    0CL8                     CCW1                            P$D08470
DR$CW1C  DS    CL1                       OP-CODE                        P$D08480
DR$CW1D  DS    CL3                       DATA ADDRESS                   P$D08490
DR$CW1F  DS    H                         FLAGS                          P$D08500
DR$CW1B  DS    H                         BYTE COUNT                     P$D08510
DR$REC   DS    CL1                      RECSIZE REG DISPLACEMENT        P$D08520
DR$IRG   DS    CL1                      IOREG DISPLACEMENT              P$D08530
DR$FG1   DS    CL1                      FLAG BYTE 1                     P$D08540
DR$FG2   DS    CL1                      FLAG BYTE 2                     P$D08550
DR$FG3   DS    CL1                      FLAG BYTE 3                     P$D08560
DR$FG4   DS    CL1                      FLAG BYTE 4                     P$D08570
DR$FG5   DS    CL1                      FLAG BYTE 5                     P$D08580
DR$RFM   DS    CL1                      RECORD FORMAT                   P$D08590
DR$BKS   DS    H                        BLOCK SIZE                      P$D08600
DR$OBS   DS    H                        OUTPUT BLOCK SIZE (CMBND)       P$D08610
DR$BAS   DS    F                        HARDWARE RELATIVE I/O AREA      P$D08620
DR$CCW2  DS    0CL12                    CCW2                            P$D08630
DR$CW2C  DS    CL1                       OP-CODE                        P$D08640
DR$CW2D  DS    CL3                       DATA ADDRESS                   P$D08650
DR$CW2F  DS    H                         FLAGS                          P$D08660
DR$CW2B  DS    H                         BYTE COUNT                     P$D08670
DR$CW2R  DS    F                        INPUT DATA ADDR COMB N-ORLP FI  P$D08680
DR$CBCF  DS    CL1                      COMBINED FILE CONTROL FLAGS     P$D08690
*                                       BIT 0  GET OR PUT ISSUED        P$D08700
*                                       BIT 1  NORLP GET FOL BY PUT     P$D08710
*                                       BIT 2  CONTROL SWITCH 1         P$D08720
*                                       BIT 3  CONTROL SWITCH 2         P$D08730
*                                       BIT 4  TRANSLATE 0604 DATA      P$D08740
*                                       BIT 5  ORLP WITH WORK           P$D08750
*                                       BITS 6-7  UNUSED                P$D08760
DR$CCG   DS    CL1                      COMMAND CODE CONTROL            P$D08770
DR$CCP   DS    CL1                      COMMAND CODE WRITE              P$D08780
DR$CCU   DS    CL1                      COMMAND CODE UNLOAD BUFFER      P$D08790
DR$RCS   DS    H                        RECORD LENGTH                   P$D08800
DR$EFDSP DS    CL1                      END OF FILE MASK DISPLACEMENT   P$D08810
         DS    CL1                      UNUSED                          P$D08820
DR$SAV   DS    F                        ADDRESS USER REG SAVE AREA      P$D08830
DR$SAVR  DS    F                        STORAGE FOR USER REG 13         P$D08840
DR$ITB   DS    F                        ADDRESS OF INPUT TRANSLATE TBL  P$D08850
DR$OTB   DS    F                        ADDRESS OF OUTPUT TRANSLATE TBL P$D08860
DR$SA    EQU   *                        LABEL FOR 80/160 BYTE PUNR FLD  P$D08870
*                                                                       P$D08880
*  DTF BYTE DISPLACEMENTS                                               P$D08890
*                                                                       P$D08900
DR$B1    EQU   (DC$T-DC$CCB)*256        DC$T (TRANS BYTE) DISPLACEMENT  P$D08910
DR$B2    EQU   (DC$CCBF2-DC$CCB)*256    DC$CCBF2 DISPLACEMENT           P$D08920
DR$B3    EQU   (DR$FG1-DC$CCB)*256      FLAG BYTE 1 DISPLACEMENT        P$D08930
DR$B4    EQU   (DR$FG2-DC$CCB)*256      FLAG BYTE 2 DISPLACEMENT        P$D08940
DR$B5    EQU   (DR$FG3-DC$CCB)*256      FLAG BYTE 3 DISPLACEMENT        P$D08950
DR$B6    EQU   (DR$FG4-DC$CCB)*256      FLAG BYTE 4 DISPLACEMENT        P$D08960
DR$B7    EQU   (DR$FG5-DC$CCB)*256      FLAG BYTE 5 DISPLACEMENT        P$D08970
DR$B8    EQU   (DR$RFM-DC$CCB)*256      RECORD FORMAT DISPLACEMENT      P$D08980
DR$B9    EQU   (DR$MFLG-DC$CCB)*256     MODULE FLAGS DISPLACEMENT       P$D08990
DR$B10   EQU   (DR$EFG-DC$CCB)*256      ERROR FLAGS DISPLACEMENT        P$D09000
DR$B11   EQU   (DR$CCW1-DC$CCB)*256     OP-CODE (CCW1) DISPLACEMENT     P$D09010
DR$B12   EQU   (DR$CCW2-DC$CCB)*256     OP-CODE(CCW2) DISPLACEMENT      P$D09020
DR$B13   EQU   (DR$CW1B-DC$CCB)*256     OP-CODE (CCW1) 1ST BYTE CNT BYT P$D09030
DR$B14   EQU   (DR$CW2F-DC$CCB)*256     OP-CODE (CCW2) 1ST BYTE OF FLAG P$D09040
DR$B15   EQU   (DR$CW2B-DC$CCB)*256     OP-CODE (CCW2) 1ST BYTE OF BY C P$D09050
DR$B16   EQU   (DC$SB+1-DC$CCB)*256     SENSE BYTE 1                    P$D09060
DR$B17   EQU   (DR$CBCF-DC$CCB)*256     COMBINED FILE CONTROL FLAGS     P$D09070
*                                                                       P$D09080
*  SINGLE BIT EQUATES                                                   P$D09090
*                                                                       P$D09100
DR$CT00  EQU   DR$B1+128                TRAFFIC BIT                     P$D09110
DR$CT10  EQU   DR$B1+64                 UNRECOVERABLE ERROR             P$D09120
DR$CT20  EQU   DR$B1+32                 UNIQUE UNIT ERROR               P$D09130
DR$CT40  EQU   DR$B1+8                  UNIT EXCEPTION                  P$D09140
DR$CF25  EQU   DR$B2+64                 ACCEPT UNREC ERR                P$D09150
DR$CF220 EQU   DR$B2+32                 ACCEPT UNIQUE UNIT ERRORS       P$D09160
DR$B100  EQU   DR$B3+128                OUTPUT FILE                     P$D09170
DR$B110  EQU   DR$B3+64                 FILE OPEN                       P$D09180
DR$B120  EQU   DR$B3+32                 FILE CLOSED                     P$D09190
DR$B130  EQU   DR$B3+16                 WORK SPECIFIED                  P$D09200
DR$B140  EQU   DR$B3+8                  IOA2 SPECIFIED                  P$D09210
DR$B160  EQU   DR$B3+2                  COMBINED FILE                   P$D09220
DR$B170  EQU   DR$B3+1                  INPUT FILE                      P$D09230
DR$B134  EQU   DR$B3+24                 WORK OR IOA2 SPECIFIED          P$D09240
DR$B200  EQU   DR$B4+128                CNTRL SPECIFIED                 P$D09250
DR$B210  EQU   DR$B4+64                 PUNCH RETRY DURING CLOSE        P$D09260
DR$B220  EQU   DR$B4+32                 DELAYED CNTRL                   P$D09270
DR$B223  EQU   DR$B4+48                 CNTRL SWITCHES                  P$D09280
DR$B230  EQU   DR$B4+16                 DELAYED CNTRL ISSUED            P$D09290
DR$B240  EQU   DR$B4+8                  AUE=YES                         P$D09300
DR$B250  EQU   DR$B4+4                  51 CLMN CARD                    P$D09310
DR$B260  EQU   DR$B4+2                  66 CLMN CARD                    P$D09320
DR$B270  EQU   DR$B4+1                  END OF FILE INDICATOR (INIT=1)  P$D09330
DR$B300  EQU   DR$B5+128                ERROR SPECIFIED                 P$D09340
DR$B310  EQU   DR$B5+64                 1ST GET OR PUT DONE             P$D09350
DR$B320  EQU   DR$B5+32                 ITBL                            P$D09360
DR$B330  EQU   DR$B5+16                 OTBL                            P$D09370
DR$B340  EQU   DR$B5+8                  MODE=CC                         P$D09380
DR$B350  EQU   DR$B5+4                  MODE=BINARY                     P$D09390
DR$B360  EQU   DR$B5+2                  MODE=STD                        P$D09400
DR$B370  EQU   DR$B5+1                  MODE=TRANS                      P$D09410
DR$B400  EQU   DR$B6+128                CRDERR=RETRY SPECIFIED          P$D09420
DR$B410  EQU   DR$B6+64                 RCSZ                            P$D09430
DR$B420  EQU   DR$B6+32                 OPTION                          P$D09440
DR$B430  EQU   DR$B6+16                 ORLP                            P$D09450
DR$B440  EQU   DR$B6+8                  IORG                            P$D09460
DR$B450  EQU   DR$B6+4                  PREVIOUS MACRO WAS A GET        P$D09470
DR$B460  EQU   DR$B6+2                  ASCII=YES                       P$D09480
DR$B470  EQU   DR$B6+1                  HOLE COUNT ERROR RECOVERY       P$D09490
DR$B500  EQU   DR$B7+128                SAVAREA SPECIFIED               P$D09500
DR$B510  EQU   DR$B7+64                 OPTIONAL FILE PROCESSING        P$D09510
DR$B520  EQU   DR$B7+32                 PUNCH 0604                      P$D09520
DR$B530  EQU   DR$B2+8                  SYSTEMS ACCESS MODE             P$D09530
DR$B570  EQU   DR$B7+1                  SELECTABLE STACKER              P$D09540
DR$B580  EQU   DR$B5+64                 INHIBIT DM TRANSLATION          P$D09550
DR$B590  EQU   DR$B7+16                 9200/9300                       P$D09560
DR$B600  EQU   DR$B3+4                  SKIP FIRST INPUT EXCP           P$D09570
DR$B610  EQU   DR$B7+8                  0605 PUNCH                      P$D09580
DR$B620  EQU   DR$B16+64                VALIDTY CHECK SENSE BYTE BIT    P$D09590
DR$B630  EQU   DR$B17+32                CONTROL SWITCH 1                P$D09600
DR$B640  EQU   DR$B17+16                CONTROL SWITCH 2                P$D09610
DR$B650  EQU   DR$B17+128          GET OR PUT ISSUED                    P$D09620
DR$B660  EQU   DR$B17+64                NORLP GET FOL BY PUT            P$D09630
DR$B670  EQU   DR$B17+8                 TRANSLATE 0604 DATA             P$D09640
DR$B680  EQU   DR$B17+4                 OVERLAP WITH WORK               P$D09650
DR$B690  EQU   DR$B7+4                  0716 READER                     P$D09660
DR$B695  EQU   DR$B7+2                  SPOOLED FILE                    P$D09670
DR$RF50  EQU   DR$B8+4                  FIXED UNBLOCKED                 P$D09680
DR$RF60  EQU   DR$B8+2                  VARIABLE UNBLOCKED              P$D09690
DR$RF70  EQU   DR$B8+1                  UNDEFINED                       P$D09700
DR$MF60  EQU   DR$B9+2                  FCB EXIST                       P$D09710
DR$EF00  EQU   DR$B10+128               BKSZ SPECIFICATION ERR          P$D09720
DR$EF20  EQU   DR$B10+32                UNIQUE UNIT ERROR               P$D09730
DR$EF30  EQU   DR$B10+16                HARDWARE ERROR                  P$D09740
DR$EF40  EQU   DR$B10+8                 ERROR DETECTED IN OPEN          P$D09750
DR$EF50  EQU   DR$B10+4                 ERROR DETECTED IN CLOSE         P$D09760
DR$EF60  EQU   DR$B10+2                 INVALID IMPERATIVE MACRO        P$D09770
DR$CW110 EQU   DR$B11+64                OP-CODE - SORT ON ERRORS        P$D09780
DR$CW126 EQU   DR$B11+34                OP-CODE - ASCII MODE READ       P$D09790
DR$CW136 EQU   DR$B11+24                OP-CODE - 66 COL CARD READ      P$D09800
DR$CW140 EQU   DR$B11+8                 OP-CODE - 51CLMN CARD READ      P$D09810
DR$CW145 EQU   DR$B11+16                OP-CODE - 96 COL CARD READ      P$D09820
DR$CW156 EQU   DR$B11+6                 OP-CODE - IMAGE MODE READ       P$D09830
DR$CW160 EQU   DR$B11+2                 OP-CODE - TRANSLATE MODE        P$D09840
DR$CW114 EQU   DR$B11+1                 OP-CODE(CCW1) TR PUNCH          P$D09850
DR$CW170 EQU   DR$B11+4                 OP-CODE BINARY MODE             P$D09860
DR$CW175 EQU   DR$B11+32                OP-CODE  USE  2ND DUAL TRANSLAT P$D09870
DR$CW180 EQU   DR$B11+16                OP-CODE  INHIBIT PIOCS TRANSLTN P$D09880
DR$CW185 EQU   DR$B11+4                 OP-CODE (0604) - BINARY READ    P$D09890
DR$CW190 EQU   DR$B11+32                OP-CODE CCW1  STACKER SELECT    P$D09900
DR$CW195 EQU   DR$B13+32                OP-CODE OUTPUT FILE TERMINATE B P$D09910
DR$CW213 EQU   DR$B12+2                 OP-CODE(CCW2) TR READ           P$D09920
DR$CW214 EQU   DR$B12+1                 OP-CODE(CCW2) TR PUNCH          P$D09930
DR$CW230 EQU   DR$B12+32                OP-CODE (0604) - STACKER SELECT P$D09940
DR$CW25  EQU   DR$B12+4                 OP-CODE(CCW2) BINARY            P$D09950
DR$CW267 EQU   DR$B12+3                 OP-CODE(CCW2) READ/PUNCH        P$D09960
DR$CW270 EQU   DR$B14+32                OP-CODE COMB FILE READ TERMINAT P$D09970
DR$CW275 EQU   DR$B15+32                OP-CODE COMB FILE PUNCH TERMIN  P$D09980
*                                                                       P$D09990
*  ERROR CODE EQUATES                                                   P$D10000
*                                                                       P$D10010
DR$E13   EQU   X'13'               DM13 ATTEMPTED ACCESS TO UNOPNED FLE P$D10020
DR$E14   EQU   X'14'               DM14 INVALID IMPERATIVE MACRO ISSUED P$D10030
DR$E17   EQU   X'18'               DM18  RECORD SIZE INVALID            P$D10040
DR$E21   EQU   X'21'               DM21 INVALID OR MISSING DVC ASGNMENT P$D10050
DR$E23   EQU   X'23'                    UNREC I/O ERR DETECTED          P$D10060
DR$E28   EQU   X'28'               DM28 PUNCH HAS NO READ FEATURE       P$D10070
DR$E29   EQU   X'29'               DM29 NO HARDWARE FOR STUB READ       P$D10080
DR$E30   EQU   X'30'               DM30  VALIDITY CHECK ERROR           P$D10090
DR$E61   EQU   X'61'               DM61 INVALID DTF,PARAM OR PARAM COMB P$D10100
DR$E62   EQU   X'62'               DM62 80 COL CD READ, BLKS 81-96      P$D10110
DR$E63   EQU   X'63'                    DM63 BINARY INP CAN'T BE SPOOLD P$D10120
DR$E64   EQU   X'64'               DM64 COMBINED FILE CAN'T BE SPOOLED  P$D10130
         ENDO                                                           P$D10140
         DO    (('&PT'=''=0)++&YZ)**(&DS$COM**32=0)                     P$D10150
&DS$COM  SET   &DS$COM+32                                               P$D10160
         ORG   DC$NI                                                    P$D10170
*                                                                       P$D10180
* FLAG BYTES FOR THE PAPERTAPE SUBSYSTEMS                               P$D10190
*                                                                       P$D10200
* DU$FG1                                                                P$D10210
*        BIT 0=1 - OPTIONAL FILE PROCESSING (IMPERATIVES DISABLED.)     P$D10220
*        BIT 1=1 - ERROR SPECIFIED                                      P$D10230
*        BIT 2=1 - FILE CLOSED                                          P$D10240
*        BIT 4           RESERVED                                       P$D10250
*        BIT 5           RESERVED                                       P$D10260
*        BIT 6=1 - MODE=BINARY (ZERO FOR STD)                           P$D10270
*        BIT 7=1 - OVBLKSZ SPECIFIED                                    P$D10280
* DU$FG2                                                                P$D10290
*        BIT 0=1 - SAVAREA KEYWORD SPECIFIED                            P$D10300
*        BIT 1=1 - TRANS SPECIFIED                                      P$D10310
*        BIT 2=1 - SCAN SPECIFIED                                       P$D10320
*        BIT 3=1 - SHIFT TABLES                                         P$D10330
*        BIT 7=1 - END-OF-FILE INDICATOR                                P$D10340
* DU$FG3                                                                P$D10350
*        BIT 0=1 - OUTPUT FILE                                          P$D10360
*        BIT 1=1 - INPUT FILE                                           P$D10370
*        BIT 2           RESERVED                                       P$D10380
*        BIT 3=1 - OPTION=YES                                           P$D10390
* DU$FG4                                                                P$D10400
*        BIT 0=1 - WORKA=YES                                            P$D10410
*        BIT 1=1 - IOAREA2 SPECIFIED                                    P$D10420
*        BIT 3=1   UNUSED                                               P$D10430
*        BIT 4=1   IOREG SPECIFIED                                      P$D10440
*        BIT 5=1   RECSIZE REGISTER SPECIFIED                           P$D10450
* DU$FGS                                                                P$D10460
*              UNUSED                                                   P$D10470
* DU$RFM                                                                P$D10480
*        BIT 5=1   RECFORM=FIXUNB                                       P$D10490
*        BIT 7=1   RECFORM=UNDEF                                        P$D10500
* DU$FG6                                                                P$D10510
*        BIT 3=1   PARITY CHECK TO BE PERFORMED                         P$D10520
*        BIT 4=1   BEGIN-OF-FILE-MARKER SPECIFIED                       P$D10530
*        BIT 5=1   FIRST GET AFTER OPEN                                 P$D10540
*        BIT 6=1   END-OF-FILE MOVE                                     P$D10550
*        BIT 7=1   INHIBIT READ                                         P$D10560
*                                                                       P$D10570
*  EQUATES TO THE COMMON AREA DC$COMN THROUGH DC$NI                     P$D10580
*                                                                       P$D10590
DU$MFLG  EQU   DC$MFLG                  MODULE FLAGS                    P$D10600
DU$LGTH  EQU   DC$PUB+2,2               LENGTH OF REMAINDER             P$D10610
DU$DISP  EQU   DU$LGTH+2,2              DISPL. OF REMAINDER             P$D10620
DU$IRG   EQU   DU$DISP+2,1              IOREG DISPLACEMENT              P$D10630
DU$RCR   EQU   DU$IRG+1,1               RECSIZE REG DISPLACEMENT        P$D10640
DU$DTF   EQU   DC$DTF                   DTF-TYPE/FACILITIES             P$D10650
DU$REQS  EQU   DC$REQS                  FUNCTION CODE                   P$D10660
DU$ERFLG EQU   DC$ERFLG                 ERROR FLAG/FILENAME.C           P$D10670
DU$IOCS  EQU   DC$IOCS                  IOCS MODULE ADDRESS             P$D10680
DU$ERCD  EQU   DC$ERCD                  ERROR CODE MESSAGE DISPLAY      P$D10690
DU$ERR   EQU   DC$ERIOC                 USER ERROR ADDRESS              P$D10700
DU$BCW   EQU   DC$CCW                   BCW: OP-CODE                    P$D10710
DU$IOB   EQU   DC$IOB                        BUFFER ADDRESS             P$D10720
DU$CWF   EQU   DC$BKS                        FLAG                       P$D10730
DU$CWCT  EQU   DU$CWF+2,2                    I/O SIZE                   P$D10740
DU$PCACT EQU   DC$PCACT                 PCA COUNT                       P$D10750
DU$PUB   EQU   DC$TPUB                  PUB ADDRESS                     P$D10760
DU$APP   EQU   DC$PCA1                  APPENDAGE ADDRESS               P$D10770
DU$ERM   EQU   DC$PCA2,1                END OF RECORD CHARACTER         P$D10780
DU$EFCON EQU   DU$ERM+1,5               END OF FILE CONDITION           P$D10790
DU$MSG1  EQU   DU$EFCON+5,16                                            P$D10800
DU$SCAN  EQU   DU$CWCT+2,4              SCAN-TABLE ADDRESS              P$D10810
DU$TABL  EQU   DU$SCAN+4,4              ADDRESS LETTER TRANSLATE TABLE  P$D10820
DU$TABF  EQU   DC$EXT                   ADDRESS FIGURE TRANSLATE TABLE  P$D10830
DU$TAB   EQU   DC$TPC                   ADDRESS TRANSLATE TABLE         P$D10840
DU$FG1   EQU   DC$FG1                   FLAG BYTE 1                     P$D10850
DU$FG2   EQU   DC$FG2                   FLAG BYTE 2                     P$D10860
DU$FG3   EQU   DC$FG3                   FLAG BYTE 3                     P$D10870
DU$FCS   EQU   DC$FCS                   STORE FUNCTION CODE             P$D10880
DU$PAR   EQU   DC$PADDR                 PARITY TABLE ADDRESS            P$D10890
DU$SAVE  EQU   DC$SAV                   USER SPECIFIED SAVEAREA         P$D10900
DU$SAVR  EQU   DC$SAVR                  SAVEAREA FOR USER REG.13        P$D10910
*                                                                       P$D10920
*        START OF APPENDAGE                                             P$D10930
*                                                                       P$D10940
DU$MSG2  DS    CL16                                                     P$D10950
         DS    2A                                                       P$D10960
DU$PID   DS    A                        APPENDAGE ID                    P$D10970
DU$A1    DS    A                        ADDRESS IOAREA1                 P$D10980
DU$BKS   DS    H                        BLOCKSIZE                       P$D10990
DU$OPS   DS    CL1                      BOFM-SWITCH                     P$D11000
DU$BF0   DS    CL1                      BEGIN  OF FILE                  P$D11010
DU$BF1   DS    CL1                        MARKER                        P$D11020
DU$BF2   DS    CL1                                                      P$D11030
DU$BF3   DS    CL1                                                      P$D11040
DU$REP   DS    CL1                      MESSAGE REPLY                   P$D11050
DU$LADS  DS    A                        DTF-ADDRESS                     P$D11060
DU$PFG1  DS    CL1                      APPENDAGE FLAG                  P$D11070
DU$EOD   DS    AL3                      EOFADDR                         P$D11080
         DS    A                                                        P$D11090
DU$REC   DS    H                        RECORD LENGTH                   P$D11100
         DS    H                                                        P$D11110
DU$FG4   DS    CL1                      FLAG BYTE 4                     P$D11120
DU$FG5   DS    CL1                      FLAG BYTE 5                     P$D11130
DU$RFM   DS    CL1                      RECORD FORMAT                   P$D11140
DU$FG6   DS    CL1                      FLAG BYTE 6                     P$D11150
         DS    A                                                        P$D11160
DU$A2    DS    A                        IOAREA2                         P$D11170
DU$END   EQU   *                                                        P$D11180
*                                                                       P$D11190
*        DTF BYTE DISPLACEMENTS                                         P$D11200
*                                                                       P$D11210
DU$B1    EQU   (DC$T-DC$CCB)*256        TRANSMISSION BYTE               P$D11220
DU$B2    EQU   (DC$CCBF2-DC$CCB)*256    DC$CCBF2 DISPLACEMENT           P$D11230
DU$B3    EQU   (DU$MFLG-DC$CCB)*256     MODULE FLAG BYTE 1              P$D11240
DU$B4    EQU   (DU$ERFLG-DC$CCB)*256    ERROR FLAG BYTE                 P$D11250
DU$B5    EQU   (DU$FG1-DC$CCB)*256      FLAG BYTE 1                     P$D11260
DU$B6    EQU   (DU$FG2-DC$CCB)*256      FLAG BYTE 2                     P$D11270
DU$B7    EQU   (DU$FG3-DC$CCB)*256      FLAG BYTE 3                     P$D11280
DU$B8    EQU   (DU$FG4-DC$CCB)*256      FLAG BYTE 4                     P$D11290
DU$B9    EQU   (DU$FG5-DC$CCB)*256      FLAG BYTE 5                     P$D11300
DU$B10   EQU   (DU$RFM-DC$CCB)*256      RECORD FORMAT B                 P$D11310
DU$B11   EQU   (DU$FG6-DC$CCB)*256      FLAG BYTE 6                     P$D11320
DU$B12   EQU   (DC$SB-DC$CCB)*256       SENSE BYTE                      P$D11330
*                                                                       P$D11340
*        BIT EQUATES  (FOR TSTBIT,SETBIT PROCS)                         P$D11350
*                                                                       P$D11360
DU$B010  EQU   DU$B2+32                 ACCEPT UNIQUE ERROR             P$D11370
DU$B020  EQU   DU$B2+64                 ACCEPT UNRECOVERABLE ERROR      P$D11380
DU$B030  EQU   DU$B11+8                 BEGINNING-OF-FILE MARKER SPECIF P$D11390
DU$B040  EQU   DU$B5+32                 FILE CLOSED                     P$D11400
DU$B050  EQU   DU$B6+1                  END-OF-FILE INDICATOR           P$D11410
DU$B060  EQU   DU$B11+2                 END-OF-FILE MOVE                P$D11420
DU$B070  EQU   DU$B3+2                  FILE CONTROL BLOCK NOT FOUND    P$D11430
DU$B080  EQU   DU$B3+128                FILE OPEN                       P$D11440
DU$B090  EQU   DU$B11+4                 FIRST GET AFTER OPEN            P$D11450
DU$B100  EQU   DU$B10+4                 FIXED-UNBLOCKED RECORDS         P$D11460
DU$B110  EQU   DU$B11+1                 INHIBIT READ                    P$D11470
DU$B120  EQU   DU$B7+64                 INPUT FILE                      P$D11480
DU$B130  EQU   DU$B8+64                 IOAREA2 SPECIFIED               P$D11490
DU$B140  EQU   DU$B8+16                 IOREG SPECIFIED                 P$D11500
DU$B150  EQU   DU$B5+2                  MODE=BINARY  (STD=0)            P$D11510
DU$B160  EQU   DU$B7+16                 OPTION=YES                      P$D11520
DU$B170  EQU   DU$B5+128                OPTIONAL FILE PROCESSING        P$D11530
DU$B180  EQU   DU$B5+1                  OVBLKSZ SPECIFIED               P$D11540
DU$B185  EQU   DU$B12+8                 PARITY ERROR SENSE BIT          P$D11550
DU$B190  EQU   DU$B8+8                  RECSIZE REGISTER                P$D11560
DU$B200  EQU   DU$B6+128                SAVAREA KEYWORD SPECIFIED       P$D11570
DU$B210  EQU   DU$B6+32                 SCAN KEYWORD SPECIFIED          P$D11580
DU$B220  EQU   DU$B6+16                 SHIFT TABLES SPECIFIED          P$D11590
DU$B230  EQU   DU$B1+128                TRAFFIC BIT                     P$D11600
DU$B240  EQU   DU$B6+64                 TRANS KEYWORD SPECIFIED         P$D11610
DU$B250  EQU   DU$B10+1                 UNDEFINED-LENGTH RECORDS        P$D11620
DU$B260  EQU   DU$B1+32                 UNIQUE ERROR BIT                P$D11630
DU$B270  EQU   DU$B1+8                  UNIT EXCEPTION BIT              P$D11640
DU$B280  EQU   DU$B1+64                 UNRECOVERABLE ERROR             P$D11650
DU$B290  EQU   DU$B8+128                WORKA=YES                       P$D11660
DU$B300  EQU   DU$B11+16                PARITY CHECK TO BE PERFORMED    P$D11670
DU$B310  EQU   DU$B7+128                OUTPUT FILE                     P$D11680
DU$B320  EQU   DU$B5+64                 ERROR SPECIFIED                 P$D11690
DU$B400  EQU   DU$B4+128                DTF ERROR                       P$D11700
DU$B401  EQU   DU$B4+64                 WRONG LENGTH ERROR              P$D11710
DU$B402  EQU   DU$B4+32                 UNIQUE (PARITY) ERROR           P$D11720
DU$B403  EQU   DU$B4+16                 UNRECOVERABLE I/O ERROR         P$D11730
DU$B404  EQU   DU$B4+8                  ERROR DETECTED IN OPEN          P$D11740
DU$B405  EQU   DU$B4+4                  ERROR DETECTED IN CLOSE         P$D11750
DU$B406  EQU   DU$B4+2                  INVALID IMPERATIVE MACRO        P$D11760
DU$B407  EQU   DU$B4+1                  INVALID RECORD SIZE             P$D11770
*        ERROR MESSAGE EQUATES                                          P$D11780
DU$ER13  EQU   X'13'             DM13 ATTEMPTED ACCESS TO UNOPENED FILE P$D11790
DU$ER14  EQU   X'14'                    DM14 INVALID IMPERATIVE MACRO   P$D11800
DU$ER15  EQU   X'61'                    DM61  INVALID DTF PARAMETER ETC P$D11810
DU$ER17  EQU   X'17'                    INVALID BLOCKSIZE               P$D11820
DU$ER18  EQU   X'18'             DM18 RECORD SIZE INVALID               P$D11830
DU$ER21  EQU   X'21'                    INVALID DEVICE ASSIGNEMENT      P$D11840
DU$ER22  EQU   X'22'             DM22 HARDWARE ERROR                    P$D11850
DU$ER23  EQU   X'23'             DM23 UNRECOVERABLE I/O-ERROR           P$D11860
DU$ER30  EQU   X'25'                    DM25 WRONG LENGTH ERROR         P$D11870
         ENDO                                                           P$D11880
         DO    ('&IR'='YES')++&YZ                                       P$D11890
         DO    &DS$COM**64=0                                            P$D11900
&DS$COM  SET   &DS$COM++64              SET IR=YES IN GBL               P$D11910
         ORG   DC$IS                                                    P$D11920
D3$DIOCT EQU   DC$PUB+7,1               MULTI BLOCK RESIDUAL I/O COUNT  P$D11930
D3$XKLC0 DS    CL2                      PRIME KEY KLOC                  P$D11940
D3$XKSZ0 DS    CL1                      PRIME KEY KLEN                  P$D11950
D3$XSEP0 DS    CL1                      RESERVED                        P$D11960
D3$XKLC1 DS    CL2                      *                               P$D11970
D3$XKSZ1 DS    CL1                      *                               P$D11980
D3$XSEP1 DS    CL1                      *                               P$D11990
D3$XKLC2 DS    CL2                      *                               P$D12000
D3$XKSZ2 DS    CL1                      *                               P$D12010
D3$XSEP2 DS    CL1                      *                               P$D12020
D3$XKLC3 DS    CL2                      *                               P$D12030
D3$XKSZ3 DS    CL1                      *                               P$D12040
D3$XSEP3 DS    CL1                      *                               P$D12050
D3$XKLC4 DS    CL2                      *                               P$D12060
D3$XKSZ4 DS    CL1                      *                               P$D12070
D3$XSEP4 DS    CL1                      *                               P$D12080
D3$FG1   DS    CL1                      PROCESS FLAG                    P$D12090
*   BIT 0  OPTIONAL FILE PROCESS ACTIVE                                 P$D12100
*   BIT 1-7 RESERVED                                                    P$D12110
D3$FG2   DS    CL1                      RESERVED                        P$D12120
D3$FG3   DS    CL1                      PROCESS FLAG                    P$D12130
*   BIT 0  OUTPUT FILE (TYPE=OUTPUT)                                    P$D12140
*   BIT 1  INPUT FILE (TYPE=INPUT)                                      P$D12150
*   BIT 2  INPUT/UPDATE FILE (TYPE=INPUT, UPDT=YES)                     P$D12160
*   BIT 3  OPTN=YES                                                     P$D12170
*   BIT 4  INDX=YES                                                     P$D12180
*   BIT 5  MODE=RAND                                                    P$D12190
*   BIT 6  SQCK=YES                                                     P$D12200
*   BIT 7  ADD=YES                                                      P$D12210
D3$FCS   DS    CL1                      SAVE FUNCTION CODE              P$D12220
D3$DBFS  DS    CL2                      SPECIFIED BUFFER SIZE           P$D12230
D3$DBFSA DS    CL2                      EFFECTIVE BUFFER SIZE           P$D12240
D3$SATA  DS    CL4                      SAT ADDRESS                     P$D12250
D3$DFTB  DS    CL8                      MACRO VALIDATION TABLE          P$D12260
D3$ERR   DS    A                        USER ERROR EXIT ADDRESS         P$D12270
D3$ERRF  DS    A                        FILENAME.C STATUS FLAGS         P$D12280
D3$COUTR DS    A                        CURRENT OUTPUT RECORD NUMBER    P$D12290
D3$CRSZ  DS    H                        SAVED RECORD SIZE               P$D12300
D3$CISZ  DS    CL1                      SAVED INDX BUFFER SIZE IN SEC.  P$D12310
D3$CLEV  DS    CL1                      SAVED NUMBER OF INDX LEVELS     P$D12320
D3$CEND  DS    CL3                      SAVED HIGH FINE INDX BLOCK NUM  P$D12330
D3$DFG1  DS    CL1                      PROCESS FLAG                    P$D12340
*   BIT 0  IOA2 SPECIFIED                                               P$D12350
*   BIT 1  WORK=YES                                                     P$D12360
*   BIT 2  IORG SPECIFIED                                               P$D12370
*   BIT 3  EOFA SPECIFIED                                               P$D12380
*   BIT 4  SETL REQUIRED                                                P$D12390
*   BIT 5  IOA2 READ REQUIRED                                           P$D12400
*   BIT 6  OUTPUT SEQ IORG                                              P$D12410
*   BIT 7  BUFFER ACTIVE                                                P$D12420
D3$DCID  DS    A                        CURRET RELATIVE SECTOR NUMBER   P$D12430
D3$DMAX  DS    A                        MAX RELATIVE SECTOR NUMBER      P$D12440
D3$DBPT  DS    A                        SECTORS/TRACK                   P$D12450
D3$DEOD  DS    A                        EOD SECTOR NUMBER               P$D12460
D3$DA1   DS    A                        IOA1 ADDRESS                    P$D12470
D3$DBKS  DS    H                        SECTOR SIZE                     P$D12480
         DS    CL1                      RESERVED                        P$D12490
D3$DSPB  DS    CL1                      SECTORS/BLOCK                   P$D12500
D3$DLACE DS    H                        RESERVED                        P$D12510
D3$DUOS  DS    H                        SECONDARY ALLOCATION %          P$D12520
D3$DSIZE DS    A                        INITIAL ALLOCATION %            P$D12530
D3$DEODA DS    A                        PCA FLAGS, EOF ADDRESS          P$D12540
D3$DSKAD DS    A                        SKAD ADDRESS                    P$D12550
D3$DA2   DS    A                        IOA2 ADDRESS                    P$D12560
D3$DREC  DS    A                        SPECIFIED RECORD SIZE           P$D12570
D3$DRNM  DS    A                        CURRENT RECORD NUMBER           P$D12580
D3$DINR  DS    A                        LAST INPUT RECORD NUMBER        P$D12590
D3$DCSEC DS    A                        CURRENT SECTOR NUMBER           P$D12600
D3$DCDSP DS    H                        CURRENT DISPLACEMENT            P$D12610
D3$DLSEC DS    2H                       LOWER SECTOR NUMBER OF BUFFER   P$D12620
D3$DLDSP DS    H                        RECORD DISP                     P$D12630
D3$DUSEC DS    A                        UPPER SECTOR NUMBER IN BUFFER   P$D12640
D3$DUDSP DS    H                        RECORD DISP                     P$D12650
D3$DIORG DS    H                        IORG DISPLACEMENT               P$D12660
D3$DSTRG DS    A                        RESERVED                        P$D12670
D3$XCBN  DS    A                        CURRENT INDX BLK NUMBER         P$D12680
D3$XMBN  DS    A                        MAX BLK NUMBER                  P$D12690
D3$XBPT  DS    A                        BLOCKS/TRACK                    P$D12700
         DS    CL1                      RESERVED                        P$D12710
D3$XFAB  DS    CL3                      EOD BLK NUMBER                  P$D12720
D3$XBUF  DS    A                        INDX BUFFER ADDRESS             P$D12730
D3$XBPB  DS    H                        BLKSIZE                         P$D12740
         DS    CL1                      RESERVED                        P$D12750
D3$XSPB  DS    CL1                      SECTORS/BLOCK                   P$D12760
D3$XKSZ  DS    H                        KEY LENGTH                      P$D12770
D3$XUOS  DS    H                        SECONDARY ALLOCATION %          P$D12780
D3$XADJ  DS    A                        INITIAL ALLOCATION %            P$D12790
D3$XPFG  DS    CL1                      PCA FLAGS                       P$D12800
D3$XERR  DS    CL3                      RESERVED                        P$D12810
D3$XKARG DS    A                        ADDRESS OF KEY FIELD KARG       P$D12820
D3$XHKY  DS    CL3                      BLK NUM OF HIGH KEY FINE BLOCK  P$D12830
D3$XCON  DS    CL1                      FLAGS                           P$D12840
D3$XPKCE DS    H                        PRIME KEY COARSE INDEX END      P$D12850
D3$XTSIZ DS    H                        TOTAL BUFFER SPACE/SPEC INDS.   P$D12860
D3$XILOC DS    H                        CFB OF FINE INDX/SPEC KLOC      P$D12870
D3$XREME DS    H                        REMAINING RTRV ENTRIES SEQ/KEY  P$D12880
D3$XKSEQ DS    A                        TABLE ADDR POINTER FOR SEQ/KEY  P$D12890
D3$XKLCX DS    H                        CURRENT KLOC                    P$D12900
D3$XKSZX DS    CL1                      CURRENT KLEN                    P$D12910
D3$XSEPX DS    CL1                      RESERVED                        P$D12920
D3$XLBT  DS    H                        LAST BLOCK TEST FIELD           P$D12930
D3$XKID  DS    H                        MULTI-KEY TABLE DISPLACEMENT    P$D12940
D3$XHIK  DS    A                        START OF HIGH KEY STORAGE       P$D12950
         ENDO                                                           P$D12960
         ENDO                                                           P$D12970
&SYSECT  CSECT                                                          P$D12980
         END                                                            P$D12990
