*DECK DNTEXT
          PROC  DNTEXT; 
DEF DNAT$ENTSZ  #4#;
          CONTROL STEXT;
COMMON DNATCOMM;
BASED ARRAY DNAT [0] S(DNAT$ENTSZ); 
# COLUMNS ARE 1, 20, AND 35 # 
BEGIN 
ITEM DN$WORD0      U(00,00,60);   # WORD 0                             #
ITEM DN$AUXREF     U(00,00,15);   # POINTER TO THE AUX TABLE           #
ITEM DN$LEVEL      U(00,15,07);   # LEVEL NUMBER OR INDICATOR          #
ITEM DN$TYPE       U(00,22,05);   # DNAT TYPE                          #
ITEM DN$LINE       U(00,27,16);   # DEFINITION LINE NUMBER             #
ITEM DN$SDEPTH     U(00,43,06);   # SUBSCRIPT DEPTH                    #
ITEM DN$MAJMSEC    U(00,49,05);   # MAJOR MSEC                         #
ITEM DN$IDXDEP     U(00,54,06);   # INDEX DEPTH (INDEX NAMES ONLY)     #
ITEM DN$ANTYPE     U(00,54,06);   # ALPHABET NAME TYPE                 #
ITEM DN$EXPLEN     U(00,54,06);   # EXPONENT LENGTH                    #
ITEM DN$RGCDI      U(00,54,06);   # TYPE = RH, RF, PH, PF, CH, CF, DE  #
ITEM DN$WORD1      U(01,00,60);   # WORD 1                             #
ITEM DN$FNATPTR    U(01,00,17);   # FNAT POINTER                       #
ITEM DN$ITMLEN     U(01,00,17);   # ITEM LENGTH                        #
ITEM DN$FIRIDX     U(01,00,17);   # FIRST DNAT THAT CAN USE THIS INDEX #
ITEM DN$STRENAM    U(01,00,17);   # 1ST DNAT MENTIONED IN RENAMES      #
ITEM DN$88CPTR     U(01,00,17);   # POINTER TO CTEXT FOR CONDITION-NAME#
ITEM DN$NXTBRTB    U(01,00,17);   # NEXT BRANCH TABLE ENTRY            #
ITEM DN$REPCOUNT   U(01,17,16);   # COUNT OF REPLACEMENT CHARACTERS    #
ITEM DN$KEYCOUNT   U(01,17,16);   # NUMBER OF SORT KEYS                #
ITEM DN$USINGFNC   U(01,17,16);   # NUMBER OF SORT USING FILES         #
ITEM DN$BRENTVL    U(01,17,16);   # BRANCH TABLE ENTRY VALUE           #
ITEM DN$88DNREF    U(01,17,16);   # POINTER TO CONDITIONAL VARIABLE    #
ITEM DN$LASIDX     U(01,17,16);   # LAST DNAT THAT CAN USE THIS INDEX  #
ITEM DN$BRTBLEN    U(01,17,16);   # BRANCH TABLE LENGTH                #
ITEM DN$ENRENAM    U(01,17,16);   # 2ND DNAT IN RENAMES CLAUSE         #
ITEM DN$RDDNAT     U(01,17,16);   # POINTER TO THE RD DNAT             #
ITEM DN$COEFSCL    U(01,17,08);   # COEFFICIENT SCALE (UNUSED)         #
ITEM DN$POINT      I(01,17,08);   # POINT LOCATION                     #
ITEM DN$NUMLEN     U(01,25,08);   # NUMERIC LENGTH                     #
ITEM DN$COEFLEN    U(01,25,08);   # COEFICIENT LENGTH                  #
ITEM DN$LONGOFF    U(01,33,27);   # LONG OFFSET                        #
ITEM DN$SUBMSEC    U(01,33,10);   # SUBMSEC                            #
ITEM DN$BYTEOFFS   U(01,43,17);   # BYTE OFFSET                        #
ITEM DN$IMPLPTR    U(01,43,17);   # MNEMONIC-NAME -> PLT FOR IMP NAME  #
ITEM DN$REFERENCE  U(01,43,17);   # REFERENCE MODIFICATION DNAT        #
ITEM DN$WORDOFF    I(01,43,17);   # WORD OFFSET                        #
ITEM DN$TREG       U(01,43,17);   # REG NUMBER FOR REGISTER TEMPORARY  #
ITEM DN$WORD2      U(02,00,60);   # WORD 2                             #
ITEM DN$USAGE      U(02,00,03);   # USAGE BEFORE INCORPORATED IN TYPE  #
ITEM DN$SIGNGRP    U(02,03,03);   # INFORMATION ABOUT THE SIGN         #
ITEM DN$SIGNBIT    U(02,03,01);   # SIGNED                             #
ITEM DN$LSIGN      U(02,04,01);   # LEADING SIGN                       #
ITEM DN$SCHAR      U(02,05,01);   # SEPARATE CHARACTER                 #
ITEM DN$DEBUG      U(02,06,01);   # MENTIONED IN USE FOR DEBUGGING     #
ITEM DN$RITEM      U(02,07,01);   # DEFINED IN THE REPORT SECTION      #
ITEM DN$PICTURE    U(02,08,01);   # PICTURE                            #
ITEM DN$TERMPER    U(02,09,01);   # TERMINAL PERIOD                    #
ITEM DN$VALUE      U(02,10,01);   # VALUE IS                           #
ITEM DN$KEYED      U(02,11,01);   # OCCURRING ITEM HAS KEYS            #
ITEM DN$USAGIDX    U(02,12,01);   # USAGE IS INDEX                     #
ITEM DN$OCCURS     U(02,13,01);   # OCCURS                             #
ITEM DN$ONSTAT     U(02,13,01);   # ON STATUS IS CONDITION-NAME        #
ITEM DN$SWITCH     U(02,13,01);   # SWITCH IS MNEMONIC-NAME            #
ITEM DN$ORG        U(02,13,01);   # ORGANIZATION                       #
ITEM DN$INDEXED    U(02,14,01);   # THE ITEM IS INDEXED                #
ITEM DN$OFFSTAT    U(02,14,01);   # OFF STATUS IS CONDITION-NAME       #
ITEM DN$ACC        U(02,14,01);   # ACCESS CONTROL                     #
ITEM DN$JUST       U(02,15,01);   # JUSTIFIED                          #
ITEM DN$BZERO      U(02,16,01);   # BLANK WHEN ZERO                    #
ITEM DN$RELKEY     U(02,16,01);   # RELATIVE KEY                       #
ITEM DN$KEY        U(02,17,01);   # ASCENDING/DESCENDING KEY           #
ITEM DN$RECKEY     U(02,17,01);   # RECORD KEY                         #
ITEM DN$RDEF       U(02,18,01);   # REDEFINES                          #
ITEM DN$BLKCONT    U(02,18,01);   # BLOCK CONTAINS                     #
ITEM DN$DEP        U(02,19,01);   # OCCURS DEPENDING ON                #
ITEM DN$RECCONT    U(02,19,01);   # RECORD CONTAINS                    #
ITEM DN$SYNCRGHT   U(02,20,01);   # SYNCHRONIZED RIGHT                 #
ITEM DN$LABREC     U(02,20,01);   # LABEL RECORDS                      #
ITEM DN$FILLREF    U(02,21,01);   # FILLER                             #
ITEM DN$DATREC     U(02,21,01);   # DATA RECORDS                       #
ITEM DN$PICSIGN    U(02,22,01);   # PICTURE SIGN                       #
ITEM DN$REPORTS    U(02,22,01);   # REPORTS ARE                        #
ITEM DN$SYNC       U(02,23,01);   # SYNCHRONIZED                       #
ITEM DN$RECMODE    U(02,23,01);   # RECORDING MODE                     #
ITEM DN$COEFSIGN   U(02,24,01);   # COEFFICIENT SIGN                   #
ITEM DN$CDINP      U(02,24,01);   # INPUT CD-NAME                      #
ITEM DN$EXPSIGN    U(02,25,01);   # EXPONENT SIGN                      #
ITEM DN$LINAGE     U(02,25,01);   # LINAGE                             #
ITEM DN$CDINIT     U(02,25,01);   # INITIAL INPUT CD                   #
ITEM DN$DECPOINT   U(02,26,01);   # EXTERNAL FLOAT DECIMAL POINT       #
ITEM DN$LABVALU    U(02,26,01);   # VALUE OF                           #
ITEM DN$CDOUT      U(02,26,01);   # OUTPUT CD-NAME                     #
ITEM DN$USINGMFR   U(02,26,01);   # S/M USING FILE HAS MULT FILE POS   #
ITEM DN$CHARPOS    U(02,27,04);   # CHARACTER POSITION WITHIN WORD     #
ITEM DN$SUBSCHEMA  U(02,31,01);   # SUBSCHEMA                          #
ITEM DN$SSMRKEY    U(02,32,01);   # SUBSCHEMA MAJOR KEY                #
ITEM DN$CODEILL    U(02,33,01);   # CODE-SET IS ILLEGAL (NOT SET)      #
ITEM DN$SSORD      U(02,42,18);   # SUBSCHEMA ORDINAL NUMBER           #
ITEM DN$BITLEN     U(02,42,18);   # BIT LENGTH                         #
ITEM DN$SHORTLIT   I(02,42,18);   # LITERAL SUBSCRIPT * OCCLEN         #
ITEM DN$WORD3      U(03,00,60);   # WORD 3                             #
ITEM DN$EXTERNAL   U(03,41,1);   # EXTERNAL                           # 
ITEM DN$PLTPTR     U(03,43,17);   #PLT POINTER FOR VALUE               #
END 
          BEGIN 
          END 
          TERM
