*DECK TDESATT 
      PROC TDESATT; 
      BEGIN 
      CONTROL STEXT ; 
                                                                         DESATT1
      BASED ARRAY DESATT1;                                               DESATT1
        BEGIN                                                            DESATT1
                                                                         DESATT1
        ITEM DFORMAT       I( 0, 0, 6);  #FORMAT - ELEMENTRAY,GRP,ETC. # DESATT1
                                         #1 - ELEMENTARY ITEM          # DESATT1
                                         #4 - FIXED LENGTH ARRAY       # DESATT1
                                         #6 - VARIABLE LENGTH ARRAY    # DESATT1
        ITEM DITEMLEVEL    U( 0, 6, 6);  #LEVEL NUMBER IF DATABASE ITEM#
        ITEM DCNVTBL       I( 0, 6,18);  #PTR TO CONVERT TABLE WHICH   # DESATT1
                                         #WILL CONVERT EXPRESSION      # DESATT1
                                         #RESULT TO CORRECT TYPE.      # DESATT1
        ITEM PRIMKE        B( 0,22, 1);  #SPECIFY ENTRY FOR PRIMARY KEY# DESATT1
        ITEM ALTERKE       B( 0,23, 1);  #SPECIFY ENTRY FOR ALTERNATE  # DESATT1
        ITEM DEXPPTR       I( 0,24,18);  #PTR TO EXPRESS STACK         # DESATT1
        ITEM DDOMPTR       U( 0,24,12);  #DOMINANT RELATIVE PTR IF DBI #
        ITEM DABSPTR       I( 0,42,18);  #PTR TO NEXT ENTRY IN LIST    # DESATT1
        ITEM DNXTPTR       U( 0,48,12);  #NEXT RELATIVE PTR IF DBI     #
        ITEM DECNLG        I( 1, 0, 6);  #NAME LENGTH IN CHARACTERS    # DESATT1
        ITEM DEWNLG        I( 1, 6, 6);  #NAME LENGTH IN WORDS         # DESATT1
        ITEM DECLASS       I( 1,12, 6);  #CLASS OF DATA                # DESATT1
                                         #0 - ALPHANUMERIC CHAR STRING # DESATT1
                                         #1 - DISPLAY NUMERIC          # DESATT1
                                         #    (CAN HAVE OVERPUNCH)     # DESATT1
                                         #2 - BINARY INTEGER           # DESATT1
                                         #3 - UNNORM, SCALED FLOATNG PT# DESATT1
                                         #4 - FLOATING POINT           # DESATT1
                                         #5 - DOUBLE PRECISION (FLT PT)# DESATT1
                                         #6 - COMPLEX                  # DESATT1
                                         #7 - CODED LOGICAL            # DESATT1
                                         #11- DISPLAY FIXED POINT      # DESATT1
                                         #12- DISPLAY FLOATING POINT   # DESATT1
                                         #13- DISPLAY DOUBLE PRECISION # DESATT1
                                         #14- DISPLAY COMPLEX          # DESATT1
                                         #15- DISPLAY LOGICAL          # DESATT1
        ITEM DEWPOS        I( 1,18,18);  #BEGINNING WORD POSITION FOR  # DESATT1
                                         #DESCRIBE ENTRY, ELSE ADDR OF # DESATT1
                                         #VALUE                        # DESATT1
        ITEM VALULOC       I( 1,18,18);  #SYNONYM FOR DEWPOS           # DESATT1
        ITEM DBITPOS       U( 1,36, 6);  #                             # DESATT1
        ITEM RESLTCL       I( 1,36, 6);  #ELSE CLASS OF RESULT         # DESATT1
        ITEM DECLSLG       I( 1,42,18);  #DATA LENGTH IN CHARACTERS    # DESATT1
        ITEM KEYITEM       B( 2, 0, 1);  #FLAGS ITEM AS KEY FOR ACCESS # DESATT1
        ITEM WITHOCC       B( 2, 1, 1);  #FLAGS PRESENCE OF -WITHIN- OR# DESATT1
                                         #-OCCURS- CLAUSE IN ITEM DESCR# DESATT1
                                         #AND PRESENCE OF WORD 4TH WORD# DESATT1
                                         #IN ENTRY                     # DESATT1
        ITEM DIMOCC        B( 2, 2, 1);  #FLAG FOR PRESENCE OF ENTRY   # DESATT1
                                         #WORD LINK TO DIMENSION/OCCUR-# DESATT1
                                         #ANCE ATTRIBUTES              # DESATT1
        ITEM JUSTRIGHT     B( 2, 3, 1);  #TRUE IF JUSTIFIED RIGHT,     #
        ITEM DISPLAYSIZE   U( 2, 4,11);  #PICTURED SIZE LESS INSERTED  # DESATT1
                                         #EDITING CHARACTERS           # DESATT1
        ITEM DOVERPUN      B( 2,15, 1);  #OVERPUNCH EXISTS FOR COMP ITM# DESATT1
        ITEM DALTKEYFLAG   B( 2,16, 1);  #TRUE IF ALTERNATE KEY        #
        ITEM DMAJKEYFLAG   B( 2,18, 1);  #TRUE IF MAJOR KEY            #
        ITEM DESCON        B( 2,19, 1);  # TRUE IF SPECIFY INVOLVES    #
                                         # DESCRIBED ITEMS.            #
        ITEM DPOINT        B( 2,20, 1);  #TRUE = DECIMAL POINT ACTUALLY# DESATT1
                                         #PRESENT, FALSE=ASSUMED POINT # DESATT1
        ITEM DPTLOC        I( 2,21, 6);  #CHAR POS OF POINT RELATIVE   # DESATT1
                                         #TO THE END OF THE FIELD      # DESATT1
                                         # >0 = POINT TO LEFT          # DESATT1
                                         # <0 = POINT TO RIGHT         # DESATT1
        ITEM DPICSIZ       I( 2,27,15);  #NR CHAR POSITIONS IN PICTURED# DESATT1
                                         #ITEM                         # DESATT1
        ITEM MURALPTR      I( 2,42,18);  #EDITMURAL OFFSET FROM ENTRY  # DESATT1
                                         #WORD 0                       # DESATT1
        ITEM DDATNAM       C( 3, 0,10);  #DATA NAME - 1 TO 32 CHARS    # DESATT1
        ITEM DEPENDS       B( 3, 1, 1);  #TRUE = VARIABLE LENGTH ARRAY # DESATT1
        ITEM DMAXOCR       I( 3, 6,18);  #MAX ENTRIES IN VARIABLE ARRAY#
        ITEM DMINOCR       I( 3,24,18);  #MIN ENTRIES IN VARIABLE ARRAY#
        ITEM DOCCPTR       I( 3,42,18);  #ADDRESS OF ENTRY DESCRIBING  #
                                         #ITEM CONTAINING OCCURS COUNT # DESATT1
        ITEM DDWORD0       I( 0, 0,60);  #WHOLE WORD OVERLAY           # DESATT1
        ITEM DDWORD1       I( 1, 0,60);  #FOR INITIALIZING LIST ENTRY  # DESATT1
        ITEM DDWORD2       I( 2, 0,60);  #DITTO                        # DESATT1
        ITEM DDWORD4       I( 4, 0,60);  #DITTO                        # DESATT1
                                                                         DESATT1
        END                                                              DESATT1
      END 
      TERM
