*COMDECK SUB04                                                          003650
*CALL SUB00 
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S P E D E D E                      #
                                #                                      #
          AMBIGNAME           ; # SAVE NAME UNTIL AMBIGUITY RESOLUTION.#
          DEPON               ; # NAME IS FIELD CONTAINING OCCURRENCE  #
                                # COUNT FOR VARIABLE LENGTH FIELD.     #
          DISDATA             ; # FLAG DATATYPE AS DISPLAY-CODED.      #
          DN2DEDE             ; # NEW ENTRY FOR *DEFINE/DESCRIBE*      #
          INIDEF              ; # INITIALIZE FOR A DEFINE              #
          INIDESC             ; # INITIALIZE FOR A *DESCRIBE*          #
          INISPECIFY          ; # INITIALIZE FOR A *SPECIFY*           #
          INTDEDE             ; # SAVE INTEGER *OCCURS* COUNT          #
          LINKDESLFN          ; # LINK DESCRIBED LFN INTO LFNLIST      #
          NEXTARR             ; # PROCESS NEXT *DEFINE* ARRAY PRESET   #
          PICDEDE             ; # PICTURE SAVING FOR *DEFINE/DESCRIBE* #
          RESTARR             ; 
          RETENTRY            ; # RETURN LIST ENTRY AFTER ERROR FOUND. #
          RSETDES             ; # RESET *DESCRIBE* PTRS FOR *OR* OPTION#
          TYPDEDE             ; # SAVE DATATYPE (DEFINE/DESCRIBE)      #
          XEQDEF              ; # BUILD A *DEFINE* ENTRY               #
          XEQSPECIFY          ; # COMPLETE SPECIFY LIST ENTRY.         #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
