*DECK SYMPL14 
      PROC SYMPL14; 
      BEGIN 
*CALL SYMPL00 
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #  P R I V A C Y                       #
                                #                                      #
      XREF PROC CATNAM        ; # FLAG THAT CATALOG NAME NOT GIVEN     #
      XREF PROC READIS        ; # READ NEXT *IS* CLAUSE                #
      XREF PROC RESETPR       ; # RESET FLAG *PROMPT*                  #
      XREF PROC SAVALL        ; # KEY CATALOG AND ALL AREAS            #
      XREF PROC SAVAREA       ; # SET KEY FOR GIVEN AREA               #
      XREF PROC SAVARES       ; # SET KEY FOR ALL AREAS                #
      XREF PROC SAVCAT        ; # SET KEY FOR CURRENT CATALOG          #
      XREF PROC SAVIO         ; # SAVE GIVEN I-O OPTION(S)             #
      XREF PROC SAVKEY        ; # SAVE ADDRESS OF ACCESS KEY           #
      XREF PROC SETIO         ; # SET I-O OPTION TO "I-O"              #
      XREF PROC SETPR         ; # SET FLAG TO PROMPT FOR *IS* CLAUSE   #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #     R E C O V R Y                    #
                                #                                      #
      XREF PROC RCVRYPT       ; # CHECK 2ND PARAMETER AND CALL DB$RPT  #
      XREF PROC SAVRP1        ; # CHECK 1ST PARAMETER TO BE PASSED IN  #
                                # CALL TO DB$RPT                       #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
SWVECTR:                           # SWITCH OF PROC CALLS FOR STD.     #
*CALL SUB14 
      END 
      TERM
