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