          PROCEDURE  MGUI2162                                                   
                                                                                
***********************************************************************         
* PROCEDURE:  MGUI2162                                                *         
* TITLE:      Reorganize Parameter Maintenance                        *         
* REMARKS:    Maintains file MG21621I                                 *         
*                                                                     *         
*=====================================================================*         
*                                                                     *         
* Version    Date   Who Why                                           *         
* -------- -------- --- --------------------------------------------- *         
* 00.00.00 06/23/93 JMC Original Version                              *         
*                                                                     *         
***********************************************************************         
          DECLARE &CREATE_SW    as String (01) Initial "N"                      
                                                                                
***********************************************************************         
* STEP01 -- MU5350, Gets file locations                               *         
***********************************************************************         
STEP01:   RUN MU5350                                                            
               ENTER CATGET     CATNAME=MG21621I                                
     MG21621I: ENTER LOCATION                                                   
               ENTER CATGET     CATNAME=FPSULOAD                                
     FPSULOAD: ENTER LOCATION                                                   
               ENTER CATGET     CATNAME=FPSURPTS                                
     FPSURPTS: ENTER LOCATION                                                   
               ENTER CATGET                                                     
                                                                                
          IF STEP01 ne 0  RETURN CODE = 1000 + STEP01                           
                                                                                
***********************************************************************         
* STEP02 -- Check for File existance                                  *         
***********************************************************************         
STEP02:   IF EXISTS FILE (MG21621I) GOTO STEP02z                                
                                                                                
STEP02a:  PROMPT                                                                
               CENTER "MG21621I NOT Found, Create it ?",                        
                      BRIGHT UPPER &CREATE_SW;                                  
               CENTER "'Y' = yes, 'N' = no";;;                                  
               CENTER BRIGHT LINE "ENTER to Continue"                           
                                                                                
          IF &CREATE_SW = "Y" GOTO STEP02z                                      
          IF &CREATE_SW = "N" RETURN CODE = 2001                                
          GOTO STEP02a                                                          
                                                                                
STEP02z:  MESSAGE CENTER "Procedure MGUI2162 in progress"                       
                                                                                
***********************************************************************         
* STEP05 -- MG2162                                                    *         
***********************************************************************         
STEP05:   RUN MG2162 in (FPSULOAD.LIBRARY) on (FPSULOAD.VOLUME)                 
               ENTER ACCEPT     WSCREATE = &CREATE_SW                           
               ENTER MG21621I   (MG21621I)                                      
                                                                                
          IF STEP05 ne 0  RETURN CODE = 5000 + STEP05                           
                                                                                
***********************************************************************         
* EOJ -- End of Job                                                   *         
***********************************************************************         
EOJ:      RETURN                                                                
                                                                                
***********########### End of Procedure MGUI2162 ##########************         
