          PROCEDURE  MGRB2160                                                   
                                                                                
***********************************************************************         
* PROCEDURE:        MGRB2160                                          *         
* AUTHOR:           JMC                                               *         
* DATE CREATED:     June 24, 1993                                     *         
* PURPOSE:          Multiple Reorg Utility                            *         
*                   Will reorganize all files on file MG21621I.       *         
*---------------------------------------------------------------------*         
*                            MODIFICATIONS                            *         
*                           ===============                           *         
* Version  Date     Who Why                                           *         
* -------- -------- --- --------------------------------------------- *         
* 00.00.00 06/24/93 JMC Original Version                              *         
*                                                                     *         
***********************************************************************         
                                                                                
          DECLARE &JOB_CLASS_CAT as String (16) Initial                         
                  "FPSUJOBCLASS   "                                             
          DECLARE &MSG_PORT_CAT  as String (16) Initial                         
                  "FPSUREORGPORT  "                                             
                                                                                
***********************************************************************         
* STEP01 -- get Log File Location                                     *         
***********************************************************************         
STEP01:   RUN MU5350                                                            
               ENTER CATGET     CATNAME = FPSUJOBCLASS                          
        CLASS: ENTER LOCATION                                                   
               ENTER CATGET     CATNAME = FPSUREORGPORT                         
         PORT: ENTER LOCATION                                                   
               ENTER CATGET     CATNAME = FPSUPROC                              
     FPSUPROC: ENTER LOCATION                                                   
               ENTER CATGET     CATNAME = FPSULOAD                              
     FPSULOAD: ENTER LOCATION                                                   
               ENTER CATGET     CATNAME = MG21621I                              
     MG21621I: ENTER LOCATION                                                   
               ENTER CATGET                                                     
                                                                                
          IF STEP01 ne 0 RETURN CODE = STEP01 + 1000                            
                                                                                
***********************************************************************         
* STEP05 -- Execute MG2160                                            *         
***********************************************************************         
STEP05:   RUN MG2160 in (FPSULOAD.LIBRARY) on (FPSULOAD.VOLUME)                 
               ENTER ACCEPT     WSPROC   = MGRB2169,                            
                                WSCATJOB = &JOB_CLASS_CAT,                      
                                WSCATPOR = &MSG_PORT_CAT                        
     MG21601C: ENTER MG21601C   FILE     = ##21601C,                            
                                RECORDS  = 10000,                               
                                RELEASE  = YES                                  
               ENTER MG21621I   (MG21621I)                                      
                                                                                
          IF STEP05 ne 0 RETURN CODE = STEP05 + 10000                           
                                                                                
***********************************************************************         
* STEP10 -- Execute MG2161                                            *         
***********************************************************************         
STEP10:   RUN MG2161 in (FPSULOAD.LIBRARY) on (FPSULOAD.VOLUME)                 
               ENTER ACCEPT     WSPROC   = MGRB2169,                            
                                WSCATJOB = &JOB_CLASS_CAT,                      
                                WSCATPOR = &MSG_PORT_CAT                        
               ENTER MG21601C   (MG21601C)                                      
               ENTER MG21621I   (MG21621I)                                      
                                                                                
          IF STEP10 ne 0 RETURN CODE = STEP10 + 10000                           
                                                                                
**************########## End Procedure MGRB2160 ##########*************         
