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