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