*COMDECK SUB05
*CALL  SUB00
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   C U V S Y N                        #
                                #                                      #
          ABTUSE              ; # ABORT THE USE IN PROGRESS  1,5       #
          ABTVER              ; # ABORT THE VERSION DIRECTIVE          #
          CHKCRCD             ; # *NO* IF ILLEGAL CRM/CDCS SYNTAX      #
          CHKSBN              ; # *NO* IF SUB-SCHEMA NAME HAS HYPHENS  #
          CKVERDR             ; # CHECK TO SEE IF DIR WAS VERSION      #
          DBVCHK              ; # CHECK VER. NAME AND STORE IF VALID   #
          ENDUSEP             ; # LOAD THE 5-0 OVL TO CONTINUE USE     #
          INITCRE             ; # INITIALIZE FOR CREATE DIRECTIVE      #
          INITINV             ; # INITIALIZE FOR INVOKE DIRECTIVE      #
          INITPFP             ; # INITIALIZE FOR PF PARAMETERS         #
          INITREL             ; # INITIALIZE FOR RELATION NAME STR     #
          INITUSE             ; # INITIALIZE FOR THE USE DIRECTIVE     #
          INITVER             ; # SET UP EXIT FROM SCANPFP             #
          PROCCY              ; # SAVE THE CLYCLE NUMBER               #
          PROCDFL             ; # SAVE DEFAULT USER NUMBER.  NOS       #
          PROCID              ; # SAVE THE ID OF THE FILE              #
          PROCLC              ; # SAVE LOW CYCLE PARAMETER             #
          PROCM               ; # SAVE THE MODE  R OR W  NOS           #
          PROCMR              ; # SAVE THE MR PARAMETER                #
          PROCPN              ; # SAVE THE PACK NAME   NOS             #
          PROCPW              ; # SAVE THE PASS WORDS                  #
          PROCPWK             ; # SAVE THE PASS WORD  NOS              #
          PROCR               ; # SAVE THE *R* PARAMETER STUFF         #
          PROCRW              ; # SAVE THE *RW* PARAMETER              #
          PROCSN              ; # SAVE THE SET NAME                    #
          PROCUN              ; # SAVE THE USER NUMBER                 #
          SAVEAREA            ; # SAVE THE AREA PERMANENT FILE NAME    #
          SAVEINDX            ; # SAVE THE INDEX FILE NAME             #
          SAVELIB             ; # SAVE LIBRARY FOUND FLAG              #
          SAVEMODF            ; # SET THE MODIFIED FOUND FLAG          #
          SAVENAM             ; # SAVE THE REL OR PF NAME              #
          SAVEREL             ; # SAVE THE RELATION NAME IN A STRING   #
          SAVESBLB            ; # SAVE SUB-SCHEMA LIBRARY NAME         # SUB05
          SAVESUB             ; # SAVE SUB-SCHEMA FILE NAME            #
          STEMPAR             ; # SET THE AREA AS TEMPORARY            #
          SUBONLY             ; # SUB-SCHEMA GIVEN ONLY                #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#006700
                                #                                      #006800
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #006900
                                #                                      #007000
                                #   M O D P F P                        #007100
                                #                                      #007200
          MODPFP              ; # ACCEPT PF PARAMETER MODIFICATIONS    #007300
                                #                                      #007400
                                #--------------------------------------#007500
                                                                        007600
                                                                        007700
                                                                        007800
                                                                        007900
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S E M I N V                        #
                                #                                      #
          CHKIMF              ; # *NO* IF ILLEGAL IMF SYNTAX ACCEPTED  #
          CHKINFR             ; # *YES* IF *IN* OR *FROM* WAS SEEN     #
          CHKREPM             ; # *YES* IF -INVOKE FOR REPAIR- SPEC.   #
          INV$EXE             ; # EXECUTE INVOKE DIRECTIVE             #
          INV$INI             ; # INITIALIZE INVOKE DIRECTIVE          #
          INV$TER             ; # TERMINATE ANY PREVIOUS IMF INVOKE    #
          SAVDBN              ; # SAVE METADATABASE ID                 #
          SAVEXTS             ; # SAVE SCHEMA NAME                     #
          SAVKEY              ; # SAVE EXTERNAL SCHEMA PRIVACY KEY     #
          SAVPW               ; # SAVE PASSWORD                        #
          SAVS                ; # SAVE METADATABASE NAME               #
          SAVSCH              ; # SAVE CONCEPTUAL SCHEMA NAME          #
          SETINFR             ; # SET INFROMSEEN TRUE IF *IN* OR *FROM*#
                                # ENCOUNTERED                          #
          STINVRP             ; # SET -INVOKE FOR REPAIR- FLAG         #
                                #                                      #
                                #--------------------------------------#
