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