*COMDECK FITDEFS
 #     THESE DEFINE THE VALUES USED BY CRM AND COBOL FOR FIT FIELDS    #
 #                                                                     #
 #     RECORD TYPE - FIT$RT                                            #
 #                                                                     #
          DEF FITV$WT     #00#;  #CONTROL WORD TYPE RECORD# 
          DEF FITV$FT     #01#;  #FIXED LENGTH TYPE RECORD# 
          DEF FITV$RT     #02#;  #RECORD MARK TYPE RECORD#
          DEF FITV$ZT     #03#;  #ZERO BYTE TYPE RECORD#
          DEF FITV$DT     #04#;  #DECIMAL CHARACTER COUNT TYPE RECORD#
          DEF FITV$TT     #05#;  #TRAILER COUNT RECORD TYPE#
          DEF FITV$BT     #06#;  #NOT YET DEFINED#
          DEF FITV$UT     #07#;  #UNDEFINED TYPE RECORD#
          DEF FITV$ST     #08#;  #SCOPE LOGICAL TYPE RECORD#
  
 #     LABEL CREATION - FOR FIT$LCR FIELD                              #
  
          DEF FITV$NLCR   #00#;  #NEW (CREATE) LABELS#
          DEF FITV$ELCR   #01#;  #OLD (CHECK) LABELS# 
  
 #     KEY TYPE OPTIONS - FOR FIT$KT FIELD                             #
  
          DEF FITV$SKT    #00#;  #SYMBOLIC KEY# 
          DEF FITV$AIKT   #01#;  #ALTERNATE INTEGER#
          DEF FITV$AUKT   #02#;  #UNCOLLATED# 
          DEF FITV$IKT    #02#;  #INTEGER KEY#
          DEF FITV$UKT    #03#;  #UNCOLLATED# 
  
 #     YES    NO OPTIONS - USED IN MANY FIELDS                         #
  
          DEF FITV$NO     #00#;  #NO# 
          DEF FITV$YES    #01#;  #YES#
  
 #     PROCESSING DIRECRION - FIT$PD                                   #
  
          DEF FITV$INPUT  #01#;  #OPENED FOR INPUT# 
          DEF FITV$OUTPUT #02#;  #OPENED FOR OUTPUT#
          DEF FITV$IO     #03#;  #OPENED FOR INPUT-OUTPUT#
  
 #     LABEL TYPE - FIT$LT                                             #
  
          DEF FITV$S      #00#;  #STANDARD LABELS#
          DEF FITV$NS     #01#;  #NON-STANDARD LABELS#
          DEF FITV$UL     #02#;  #UNLABELED#
          DEF FITV$ANY    #03#;  #ALLOW ANY LABELS# 
  
 #     OPEN   CLOSE FLAGS - FIT$OC                                     #
  
          DEF FITV$NOP    #00#;  #NEVER OPENED# 
          DEF FITV$OPE    #01#;  #NOW OPEN# 
          DEF FITV$CLO    #02#;  #NOW CLOSED# 
  
 #     OPEN FLAG - FIT$OF                                              #
  
          DEF FITV$R      #01#;  #RANDOM OR REWIND# 
          DEF FITV$N      #02#;  #NO REWIND#
          DEF FITV$E      #03#;  #EXTEND# 
  
 #     BLOCK TYPE OPTIONS - FIT$BT                                     #
  
          DEF FITV$IT     #01#;  #INTEGER COUNT - I - # 
          DEF FITV$CT     #02#;  #CHARACTER COUNT - C - # 
          DEF FITV$KT     #03#;  #FIXED RECORDS PER BLOCK#
          DEF FITV$ET     #04#;  #VARIABLE NBR (NON-SPANNED)# 
  
 #     CLOSE FLAG - FIT$CF                                             #
  
          DEF FITV$U      #03#;  #UNLOAD# 
  
 #     USER LABEL PROCESSING - FIT$ULP                                 #
  
          DEF FITV$P      #00#;  #DEFAULT - NO PROCESS# 
 #        DEF FITV$NOP #  #00#   #NO PROCESSING - DEFINED EARLIER#
          DEF FITV$VP     #01#;  #VOLUME PROCESSING ONLY# 
          DEF FITV$FP     #02#;  #FILE PROCESSING ONLY# 
          DEF FITV$VFP    #03#;  #VOLUME + FILE#
          DEF FITV$UP     #04#;  #UHL-UTL LABELS# 
          DEF FITV$VUP    #05#;  #VOL-UHL-UTL LABELS# 
          DEF FITV$FUP    #06#;  #HDR-EOV-EOF-UHL-UTL LABELS# 
          DEF FITV$VFUP   #07#;  #ALL LABELS PROC#
  
 #     FILE ORGANIZATIONS - FIT$FO                                     #
  
          DEF FITV$SQ     #00#;  #SEQUENTIAL# 
          DEF FITV$WA     #01#;  #WORD ADDRESS# 
          DEF FITV$DR     #02#;  #DIRECT - 7DM #
          DEF FITV$RL     #02#;  #RELATIVE - COBOL 5 ONLY#
          DEF FITV$IS     #03#;  #INDEXED#
          DEF FITV$LB     #04#;  #LIBRARY - 7DM#
          DEF FITV$DA     #05#;  #DIRECT ACCESS#
          DEF FITV$AK     #06#;  #SAK - ACUTAL KEY# 
  
 #     READ PARITY ERROR PROCESSING - FIT$EO                           #
  
          DEF FITV$T      #00#;  #TERMINATE#
          DEF FITV$D      #01#;  #DROP AND CONTINUE#
          DEF FITV$A      #02#;  #ACCEPT AND CONTINUE#
          DEF FITV$TD     #04#;  #TERMINATE AND DISPLAY#
          DEF FITV$DD     #05#;  #DROP AND DISPLAY - CONT#
          DEF FITV$AD     #06#;  #ACCEPT AND DISPLAY - CONT#
  
 #     FILE POSITION - FIT$FP                                          #
  
          DEF FITV$EOL    #01#;  #END OF LABELS#
          DEF FITV$BOI    #01#;  #BEGINNING OF INFORMATION# 
          DEF FITV$BOF    #02#;  #BEGINNING OF FILE#
          DEF FITV$BOV    #02#;  #BEGINNING OF VOLUME#
          DEF FITV$EOV    #04#;  #END OF VOLUME#
          DEF FITV$EOS    #08#;  #END OF SECTION (7-8-9 OR W FLAG)# 
          DEF FITV$EOK    #08#;  #END OF KEY - IS ONLY# 
          DEF FITV$EOR    #16#;  #END OF RECORD#
          DEF FITV$EOF    #32#;  #END OF FILE#
          DEF FITV$EOP    #32#;  #END OF PARTITION# 
          DEF FITV$EOI    #64#;  #END OF INFORMATION# 
  
#      OLD - NEW FLAGS - FIT$ON AND FIT$ORG                            #
  
          DEF FITV$OLD    #00#;  #EXISTS - OLD# 
          DEF FITV$NEW    #01#;  #CREATE - NEW# 
  
 #     MIP RELATIONAL OPERATORS - FIT$REL                              #
  
          DEF FITV$EQ     #01#;  #EQUAL#
          DEF FITV$LE     #02#;  #LESS THAN OR EQUAL# 
          DEF FITV$GE     #03#;  #GREATER THAN OR EQUAL#
          DEF FITV$NE     #04#;  #NOT EQUAL#
          DEF FITV$LT     #05#;  #LESS THAN#
          DEF FITV$GT     #06#;  #GREATER THAN# 
  
 #     PROCESSING MODE FOR IS OR DA FILES - FIT$PM                     #
  
          DEF FITV$RPM    #00#;  #RANDOM PROCESSING#
          DEF FITV$SPM    #01#;  #SEQUENTIAL# 
  
 #     MIP VALUES FOR KEY STRUCTURE - NOT A FIT FIELD - IN RMKEYDEF ONL#
  
          DEF FITV$ASCEN  #O"00"#;  #DUPLICATES ASCENDING#
          DEF FITV$FIFO   #O"13"#;  #DUPLICATES FIFO# 
          DEF FITV$NODUPL #O"17"#;  #NO DUPLICATES# 
  
 #     MISC LENGTHS OF TABLES                                          #
  
          DEF FITV$LFET   #10#;  #LENGTH OF FET#
          DEF FITV$LFIT      #25#;  #LENGTH OF FIT# 
          DEF FITV$TLFIT  #35#;  #LENGTH OF FIT AND FET#
  
#      COMPILER VALUE                                                  #
  
          DEF FITV$CBL    #02#;   # CRM-ASSIGNED COMPILE LANG. NUMBER # 
 #     END OF DEFINITIONS                                              #
 #                                                                     #
          ARRAY FIT[0:0] S(FITV$TLFIT); 
      BEGIN     # 03/17/77 #
      ITEM FIT$CMPLT  U(00,59,01); #FET COMPLETE BIT              # 
      ITEM FIT$FCS    U(00,51,09); #FET CODE/STATUS (BITS 0-8)    # 
      ITEM FIT$FCSE   U(00,46,14); #FET C/S+ERROR   (BITS 0-14)   # 
      ITEM FIT$F18    I(00,42,18); #FET C/S,ERR,LEV (BITS 0-17)   # 
      ITEM FIT$FEOF   U(00,55,02); #FET EOF BITS                  # 
      ITEM FIT$FEOR   U(00,55,01); #FET EOR BIT                   # 
      ITEM FIT$FEOI   U(00,50,01); #FET EOI BIT                   # 
      ITEM FIT$FEC    U(00,46,05); #FET ERROR CODE  (BITS 9-13)   # 
      ITEM FIT$LVL    U(00,42,04); #LEVEL NUMBER                  # 
      ITEM FIT$FLEV   U(00,42,04); #FET LEVEL NUMBER(BITS 14-17)  # 
      ITEM FIT$LFN    U(00,00,42); #LOGICAL FILE NAME             # 
      ITEM FIT$FWB    I(01,42,18); #FWA CIRCULAR BUFFER           # 
      ITEM FIT$FF     U(01,23,01); #FLUSH FLAG                    # 
      ITEM FIT$RDR    U(01,13,01); #READ RELEASE                  # 
      ITEM FIT$DVT    U(01,00,12); #FET DEVICE TYPE               # 
      ITEM FIT$DV6    U(01,00,06); #UPPER 6 BITS OF DEVICE TYPE   # 
      ITEM FIT$ASCII  U(05,36,02); #ASCII CHAR SET BITS           # 
      ITEM FIT$LA     I(10,42,18); #LABEL ADDRESS                 # 
      ITEM FIT$LT     U(10,36,02); #LABEL TYPE                    # 
      ITEM FIT$ULP    U(10,33,03); #USER LABEL PROCESSING OPTION  # 
      ITEM FIT$FP     U(10,26,07); #FILE POSITION                 # 
      ITEM FIT$LCR    U(10,24,01); #LABEL ACTION ON PD=I-O TAPE   # 
      ITEM FIT$LBL    U(10,00,24); #LABEL LENGTH                  # 
      ITEM FIT$LX     I(11,42,18); #LABEL EXIT ADDRESS            # 
      ITEM FIT$FO     U(11,39,03); #FILE ORGANIZATION             # 
      ITEM FIT$BT     U(11,36,03); #BLOCK TYPE                    # 
      ITEM FIT$RT     U(11,32,04); #RECORD TYPE                   # 
      ITEM FIT$VF     U(11,30,02); #VOLUME FLAG                   # 
      ITEM FIT$CF     U(11,27,03); #CLOSE FLAG                    # 
      ITEM FIT$OF     U(11,25,02); #OPEN FLAG                     # 
      ITEM FIT$CM     U(11,24,01); #CONVERSION MODE               # 
      ITEM FIT$RL     U(11,00,24); #RECORD LENGTH                 # 
      ITEM FIT$DX     I(12,42,18); #DATA EXIT ADDRESS             # 
      ITEM FIT$FL     U(12,00,24); #LENGTH OF F/Z RECORDS         # 
      ITEM FIT$MRL    U(12,00,24); #MAXIMUM RECORD LENGTH         # 
      ITEM FIT$EX     I(13,42,18); #ERROR EXIT ADDRESS            # 
      ITEM FIT$ES     U(13,33,09); #ERROR STATUS                  # 
      ITEM FIT$IRS    U(13,33,09); #ERROR STATUS                  # 
      ITEM FIT$SES    U(13,29,04); #SYSTEM ERROR SEVERITY         # 
      ITEM FIT$PEF    U(13,25,01); #PARITY ERROR FLAG             # 
      ITEM FIT$ERL    U(13,15,09); #TRIVIAL ERROR LIMIT           # 
      ITEM FIT$ECT    U(13,06,09); #TRIVIAL ERROR COUNT           # 
      ITEM FIT$EXD    U(13,05,01); #EXTENDED DIAGNOSTIC FLAG      # 
      ITEM FIT$EFC    U(13,04,02); #ERROR FILE CONTROL            # 
      ITEM FIT$DFC    U(13,02,02); #DAYFILE CONTROL               # 
      ITEM FIT$SDS    U(13,02,01); #ERROR MESSAGE DISPOSITION     # 
      ITEM FIT$WSA    I(15,42,18); #USER WORKING STORAGE ADDRESS  # 
      ITEM FIT$ORG    U(15,37,01); #OLD/NEW FO FLAG               # 
      ITEM FIT$SPR    U(15,35,01); #SUPPRESS READ AHEAD           # 
      ITEM FIT$SBF    U(15,34,01); #SUPPRESS BUFFER I/O FLAG      # 
      ITEM FIT$STFT   U(15,32,01); #SETFIT FLAG                   # 
      ITEM FIT$BAL    U(15,31,01); #BUFFER ALLOCATED BY CRM       # 
      ITEM FIT$EO     U(15,27,03); #ERROR OPTION                  # 
      ITEM FIT$HL     U(15,00,24); #HEADER LENGTH RT=T            # 
      ITEM FIT$MNR    U(15,00,24); #MINIMUM RECORD LENGTH         # 
      ITEM FIT$HRL    I(16,42,18); #HASHING ROUTINE ADDRESS       # 
      ITEM FIT$DP     U(16,44,07); #DATA BLOCK PADDING FACTOR     # 
      ITEM FIT$HB     U(16,43,01); #USER HEADER OPTION            # 
      ITEM FIT$MUL    U(16,36,06); #PADDING MULTIPLE              # 
      ITEM FIT$MKL    U(16,33,09); #MAJOR KEY LENGTH              # 
      ITEM FIT$PC     U(16,30,06); #PADDING CHARACTER             # 
      ITEM FIT$CL     U(16,24,06); #COUNT FIELD LENGTH RT=T       # 
      ITEM FIT$LL     U(16,24,06); #LENGTH FIELD LENGTH RT=D      # 
      ITEM FIT$RMK    U(16,24,06); #RECORD MARK CHARACTER         # 
      ITEM FIT$TL     U(16,00,24); #TRAILER LENGTH RT=T           # 
      ITEM FIT$BFS    I(17,42,18); #CIRCULAR BUFFER SIZE          # 
      ITEM FIT$BBH    U(17,41,01); #BUFFER CAN BE BELOW HHA       # 
      ITEM FIT$CNF    U(17,40,01); #CONNECT FLAG                  # 
      ITEM FIT$LP     U(17,15,24); #BCP OF LENGTH FIELD RT=D      # 
      ITEM FIT$CP     U(17,15,24); #BCP OF COUNT FIELD RT=T       # 
      ITEM FIT$SB     U(17,14,01); #SIGN OVER PUNCH RT=D/T        # 
      ITEM FIT$C1     U(17,13,01); #COMP-1 BIT RT=D/T             # 
      ITEM FIT$PD     U(17,03,03); #PROCESSING DIRECTION          # 
      ITEM FIT$OC     U(17,01,02); #OPEN/CLOSE FLAG               # 
      ITEM FIT$FNF    U(17,00,01); #FATAL ERROR FLAG              # 
      ITEM FIT$RC     U(18,30,30); #RECORD COUNT                  # 
      ITEM FIT$LOP5   U(18,25,05); #LAST OPERATION (L.O. 5 BITS)  # 
      ITEM FIT$LOP    U(18,24,06); #LAST OPERATION                # 
      ITEM FIT$WPN    U(18,24,01); #WRITE BIT                     # 
      ITEM FIT$HMB    U(18,00,24); #NUMBER OF HOME BLOCKS         # 
      ITEM FIT$PTL    U(18,00,24); #PARTIAL TRANSFER LENGTH       # 
      ITEM FIT$WA     U(19,30,30); #WORD ADDRESS                  # 
      ITEM FIT$BN     U(19,30,30); #BLOCK NUMBER                  # 
      ITEM FIT$VNO    U(19,24,06); #CURRENT VOLUME NUMBER         # 
      ITEM FIT$NL     U(19,24,06); #NO. LEVELS OF INDEX BLOCKS    # 
      ITEM FIT$MBL    U(19,00,24); #MAXIMUM BLOCK LENGTH          # 
      ITEM FIT$PKA    U(20,42,18); #PRIMARY KEY ADDRESS           # 
      ITEM FIT$RB     U(20,30,12); #RECORDS PER BLOCK BT=K        # 
      ITEM FIT$DCT    I(20,12,18); #DISPLAY TO COLLATING TABLE    # 
      ITEM FIT$POS    U(20,02,06); #IS POSITIONAL PARAMETER       # 
      ITEM FIT$PM     U(20,01,01); #PROCESSING MODE               # 
      ITEM FIT$BCK    U(20,00,01); #CKSUM BIT                     # 
      ITEM FIT$MNB    U(20,00,24); #MINIMUM BLOCK LENGTH          # 
      ITEM FIT$KR     U(21,48,12); #KEY VALUE REPEAT COUNT        # 
      ITEM FIT$PNO    U(21,36,24); #MULTI-FILE POSITION NUMBER    # 
      ITEM FIT$DKI    U(21,44,01); #DUPLICATE KEY INDICATOR       # 
      ITEM FIT$OVF    U(21,42,02); #OVERFLOW OPTION FLAGS         # 
      ITEM FIT$XN     C(21,00,07); #INDEX LFN                     # 
      ITEM FIT$MFN    C(21,00,06); #MULTI-FILE NAME               # 
      ITEM FIT$LNG    U(22,20,04); # COMPILE LANGUAGE NUMBER           #
      ITEM FIT$KA     I(24,42,18); #KEY ADDRESS                   # 
      ITEM FIT$EMK    U(24,36,01); #EMBEDDED KEY FLAG             # 
      ITEM FIT$FLM    U(24,06,30); #FILE LIMIT                    # 
      ITEM FIT$ON     U(24,04,01); #OLD/NEW FLAG                  # 
      ITEM FIT$FPB    U(24,03,01); #FILE POSITION BIT             # 
      ITEM FIT$FWI    U(24,02,01); #FORCED WRITE INDICATOR        # 
      ITEM FIT$KNE    U(24,01,01); #KEY NOT EQUAL                 # 
      ITEM FIT$NDX    U(24,00,01); #RETRIEVAL OF MDX KEY LIST-DA  # 
      ITEM FIT$CDT    I(26,12,18); #COLLATING TO DISPLAY TABLE    # 
      ITEM FIT$EOIWA  U(30,36,24); #WA AT EOI FO=WA               # 
      ITEM FIT$IP     U(31,29,07); #INDEX BLOCK PADDING FACTOR         #
      ITEM FIT$KL     U(31,20,09); #KEY LENFTH                    # 
      ITEM FIT$KP     U(31,16,04); #BEGINNING CHAR POS OF KEY     # 
      ITEM FIT$RKP    U(31,12,04); #RELATIVE KEY POSITION IN RKW  # 
      ITEM FIT$RKW    U(31,00,12); #RELATIVE KEY WORD             # 
      ITEM FIT$CPA    I(32,42,18); #COMPRESSION RTN ADDR          # 
      ITEM FIT$TRC    U(32,36,06); #TRACE INDEX                   # 
      ITEM FIT$REL    U(32,33,03); #RELATIONALS                   # 
      ITEM FIT$KT     U(32,30,03); #KEY TYPE                      # 
      ITEM FIT$IBL    U(32,00,24); #INDEX BLOCK LENGTH            # 
      ITEM FIT$DCA    I(33,42,18); #DECOMPRESSION RTN ADDR        # 
      END       # 03/17/77 #
 #     COBOL FIT EXTENSION                                             #
  
          DEF FITV$CFLEN #06#;   #LENGTH OF COBOL FIT EXTENSIONS# 
  
          ARRAY COBFIT[0:0] S(FITV$CFLEN);
              BEGIN 
              ITEM FIT$OPFL   U(00,03,01);   #OPTIONAL FLAG#
              ITEM FIT$MINF   U(00,06,01);   #MULTIPLE INDEXED FILE FLG#
              ITEM FIT$ORPD   U(00,08,02);   #ORIGINAL PROCESSING DIR#
              ITEM FIT$LABT   U(00,09,02);   #LABEL RECORD TYPE        #
              ITEM FIT$BCTC   U(00,12,01);   #BLOCK CONTAINS CLAUSE USD#
              ITEM FIT$RLFG   U(00,23,01);   # RELATIVE FILE FLAG # 
              ITEM FIT$RLWD   U(00,25,17);   #REC LENGTH IN WORDS#
              ITEM FIT$RECA   U(00,42,18);   #RECORD AREA ADDRESS#
              ITEM FIT$DBFO   U(01,20,10);   #DATA BASE FILE ORDINAL# 
              ITEM FIT$MIKR   U(01,30,12);   #MULTIPLE INDEX KEY OF REF#
              ITEM FIT$LVOT   U(01,42,18);   #LABEL VALUE OF TABLE# 
              ITEM FIT$RERC   U(02,02,20);   #RERUN COUNT#
              ITEM FIT$RERP   U(02,22,20);   #RERUN PERIOD# 
              ITEM FIT$PSMA   U(02,42,18);   #POINTER TO SAME AREA FILE#
              ITEM FIT$USOI   U(03,06,06);   #USE - OPEN INPUT# 
              ITEM FIT$USOO   U(03,12,06);   #USE - OPEN OUTPUT#
              ITEM FIT$USOM   U(03,18,06);   #USE - OPEN IO#
              ITEM FIT$USOE   U(03,24,06);   #USE - OPEN EXTEND#
              ITEM FIT$USHA   U(03,24,06);   #USE - HASHING#
              ITEM FIT$USFN   U(03,30,06);   #USE - FILENAME# 
              ITEM FIT$FSSC   U(03,36,06);   #FILE STATUS SHIFT COUNT#
              ITEM FIT$FSWD   U(03,42,18);   #FILE STATUS WORD# 
              ITEM FIT$REAR   U(04,00,12);   #RESERVE AREAS#
              ITEM FIT$CLOA   U(04,12,18);   #ADDRESS OF CLOSE ROUTINE# 
              ITEM FIT$USDL   U(04,30,06);   #USE - DEADLOCK (CDCS2)# 
              ITEM FIT$CDST   U(04,36,06);   #CODE SET# 
              ITEM FIT$KEYT   U(04,42,18);   #KEY TABLE#
              ITEM FIT$DBRK   U(05,36,24);   #CDCS RECORD/KEY ORDINALS# 
              ITEM FIT$DBRO   U(05,36,12);   #CDCS RECORD ORDINAL#
              ITEM FIT$DBKO   U(05,48,12);   #CDCS KEY ORDINAL# 
              END 
 #     EXTRA WORDS FOR COBOL FIT - DEPENDS ON FILE ORGANIZATION # 
          DEF OTHERXTWDS #1#;   #NUMBER OF DEFAULT EXTRA WORDS# 
          DEF RELXTWDS   #4#;   #NUMBER EXTRA WORDS FOR RELATIVE# 
          DEF COBFITXTWDLE  #4#;  #MAX OF ABOVE#
          ARRAY COBFITXTWD [0:0] S(COBFITXTWDLE); 
              BEGIN 
              ITEM XWD$RWCD   U(00,03,01);   #REPORT WRITER HAS CODE CL#
              ITEM XWD$LITB   U(00,07,01);   #LINAGE AT TOP OR BOTTOM # 
              ITEM XWD$PRUF   U(01,53,01);   #PRU FILE - RELATIVE ONLY# 
              END 
 #     KEY TABLE FORMAT                                                #
          ARRAY KEYTAB$ [0:0] S(2); 
              BEGIN 
              ITEM KEYTITEM    U(00,00,60);   #WHOLE WORD#
              ITEM KEYTWORDNB  U(00,00,15);   #WORD NUMBER# 
              ITEM KEYTBCP     U(00,15,04);   #BEG CHAR POS#
              ITEM KEYTKL      U(00,19,08);   #KEY LENGTH#
              ITEM KEYTKT      U(00,30,02);   #KEY TYPE#
              ITEM KEYTKS      U(00,32,04);   #KEY STRUCTURE# 
              ITEM KEYTKG      U(00,36,12);   #NUMBER OF CHARACTERS IN
                                               REPEATING GROUP WHEREIN
                                               KEY RESIDES# 
              ITEM KEYTKC      U(00,48,12);   #NUMBER OF OCCURRENCES OF 
                                               REPEATING GROUP# 
              ITEM KEYTRECORD  U(00,36,24);   #CDCS RECORD/KEY ORDINALS#
              ITEM KEYTRORD    U(00,36,12);   #CDCS RECORD ORDINAL# 
              ITEM KEYTKORD    U(00,48,12);   #CDCS KEY ORDINAL#
              ITEM  KEYTITEM2   U(01,00,60);   #WORD 2# 
              ITEM  KEYTSKOMIT  U(01,00,01);   #SPARSE KEY OMIT#
              ITEM  KEYTSKUSE   U(01,01,01);   #SPARSE KEY USE# 
              ITEM  KEYTSPACES  U(01,02,01);   #OMIT IF SPACES# 
              ITEM  KEYTZEROS   U(01,03,01);   #OMIT IF ZEROS#
              ITEM  KEYTDATAN   U(01,04,01);   #IF DATANAME CONT LIT# 
              ITEM  KEYTLITLEN  U(01,05,06);   #LITERAL LENGTH# 
              ITEM  KEYTLITBCP  U(01,11,04);   #LITERAL BCP#
              ITEM  KEYTCOMP4   U(01,15,01);   #COMP-4 KEY FLAG # 
              ITEM  KEYTLITADD  U(01,42,18);   #DNAT PTR OF LIT#
              END 
 #
       LABEL TABLE FORMAT 
 #
          ARRAY LABELTAB$ [0:0] S(1); 
              BEGIN 
              ITEM LABELTITEM  U(00,00,60);    #ENTIRE ITEM#
              ITEM LABELTLTFL  U(00,00,04);    #FIELD NUMBER# 
              ITEM LABELTLTAN  U(00,31,01);    #ALPHA NUMERIC FLAG# 
              ITEM LABELTLTBC  U(00,32,04);    #BCP#
              ITEM LABELTLTIL  U(00,36,06);    #ITEM LENGTH#
              ITEM LABELTLTAD  U(00,42,18);    #ADDRESS OF ITEM#
              END 
  
 #
       LINAGE TABLE FORMAT
 #
          ARRAY LINAGETAB$ [0:0] S(1);
              BEGIN 
              ITEM LINAGETITEM  U(00,00,60);    #ENTIRE ITEM# 
              ITEM LINAGETLIVA  U(00,00,30);    #VALUE# 
              ITEM LINAGETLIC1  U(00,30,01);    #COMP-1 FLAG# 
              ITEM LINAGETLIBC  U(00,31,04);    #BCP# 
              ITEM LINAGETLISZ  U(00,35,07);    #SIZE#
              ITEM LINAGETLIAD  U(00,42,18);    #ADDRESS OF ITEM# 
              END 
  
