*DECK SYMPL10 
      PROC SYMPL10; 
      BEGIN 
*CALL SYMPL00 
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   D U P L I C A T E                  #
                                #                                      #
      XREF PROC DIRID;          # STORE DIRECTIVE ID                   #
      XREF PROC DUPEMALL;       # HANDLES ALL DUPLICATION              #
      XREF PROC SAVID;          # SAVE NEW STARTING DIRECTIVE ID       #
      XREF PROC SAVNAM;         # SAVE REPORT NAME                     #
      XREF PROC SAVSES;         # SAVE NEW NAME FOR REPORT/SESSION     #
      XREF PROC SESNAM;         # SAVE SESSION NAME                    #
      XREF PROC SETDEF;         # SET *UPON DEFAULT* OPTION            #
      XREF PROC VERCHK;         # INITIALIZATION FOR *DUPLICATE*       #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   P E R F O R M                      #
                                #                                      #
      XREF PROC SESINIT;        # INITIALIZE A SAVESESS ENTRY          #
      XREF PROC SIDCHK;         # CHECK DIRECTIVE ID LE 3 CHARS        #
      XREF PROC STCOND;         # SAVE STACK POINTERS FOR CONDITIONS   #
      XREF PROC STD1;           # STORE FIRST DIRECTIVE ID             #
      XREF PROC STD2;           # STORE SECOND DIRECTIVE ID            #
      XREF PROC STEXPR;         # STORES VALUE FOR *REPEAT*            #
      XREF PROC STPASS;         # STORES *PASS* OPTION                 #
      XREF PROC STSESS;         # STORES SESSION INFO FOR *PERFORM*    #
      XREF PROC STVETO;         # STORE VETO OPTION                    #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   R E C O R D I N G                  #
                                #                                      #
      XREF PROC RECOFF;         # TURNS RECORDING OFF                  #
      XREF PROC RECORDING;      # TURNS ON RECORDING                   #
      XREF PROC SESSCHK;        # CHECK SESSION NAME LT 7 CHARS        #
      XREF PROC SESSREC;        # STORE SESSION NAME. INITIALIZE.      #
      XREF PROC TRXMID;         # CHECK LEGAL TRANSMISSION ID          #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   T L C H E C K                      #
                                #                                      #
      XREF PROC TLCHECK;        # COMPARES TL WITH TL OF CATALOG FILE  #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   U N I S E P                        #
                                #                                      #
      XREF PROC CHKSEP;            # CHECKS FOR SEP = CURRENT SEPARATOR# QU3A338
      XREF PROC ITSIZ;          # TURNS ON *ITEM-SIZE*                 #
      XREF PROC SEPA;           # STORES NEW *SEPARATOR* VALUE         #
      XREF PROC SEPONE;         # TURNS OFF *ITEM-SIZE*                #
      XREF PROC UNIVERA;        # STORE NEW *UNIVERSAL* CHARACTER      #
      XREF PROC UNIVOFF;        # TURNS OFF *UNIVERSAL* CHARACTER      #
      XREF PROC UNIVSET;        # SETS DEFAULT *UNIVERSAL* CHARACTER   #
      XREF PROC VTOSET;         # HANDLES THE *VETO* DIRECTIVE         #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
  
  
  
  
SWVECTR:                           # SWITCH OF PROC CALLS FOR STD.     #
*CALL SUB10 
      END 
      TERM
