          PROCEDURE  MGRB2169                                                   
                                                                                
***********************************************************************         
* PROCEDURE:        MGRB2169                                          *         
* AUTHOR:           JMC                                               *         
* DATE CREATED:     June 23, 1993                                     *         
* PURPOSE:          Multiple Reorg Utility                            *         
*                   Will submit 8 procedures to background            *         
***********************************************************************         
*                                                                     *         
*                    How to CLONE for your own use                    *         
*                                                                     *         
* PLEASE DO NOT MODIFY THIS PROCEDURE, it is used by MGRB2160.        *         
* YOU MAY CLONE IT FOR YOUR OWN PERSONAL USE.                         *         
*                                                                     *         
* To Clone for your own Application:                                  *         
*     1. Copy MGRB2169 to the Name of the Procedure passed into       *         
*        MG2163.                                                      *         
*     1. Change "FPSUJOBCLASS" to your Application Specific Catalog   *         
*        Entry used for Background Job Class.                         *         
*     2. Change "FPSUREORGPORT" to your Application Specific Catalog  *         
*        Entry used for the Message Ports created by MG2161           *         
*     3. Change "MG?B2169" (? is equal to a digits 1 -- 8)            *         
*        to the name of the procedure passed into MG2163,             *         
*        replacing position 3 in the name with a digit.  The digits   *         
*        MUST be a numbers 1, 2, 3, 4, 5, 6, 7 and 8.                 *         
*                                                                     *         
*---------------------------------------------------------------------*         
*                            MODIFICATIONS                            *         
*                           ===============                           *         
* Version  Date     Who Why                                           *         
* -------- -------- --- --------------------------------------------- *         
* 00.00.00 06/23/93 JMC Original Version                              *         
*                                                                     *         
***********************************************************************         
                                                                                
          DECLARE &JOB_CLASS     as String (01) Initial " "                     
          DECLARE &PORT_0,                                                      
                  &PORT_1,                                                      
                  &PORT_2,                                                      
                  &PORT_3,                                                      
                  &PORT_4,                                                      
                  &PORT_5,                                                      
                  &PORT_6,                                                      
                  &PORT_7,                                                      
                  &PORT_8       as String (04) Initial " "                      
                                                                                
***********************************************************************         
* 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                                                     
                                                                                
          IF STEP01 ne 0 RETURN CODE = STEP01 + 1000                            
                                                                                
          ASSIGN &JOB_CLASS  = (CLASS.FILE)                                     
          ASSIGN &PORT_0 = (PORT.FILE)                                          
          ASSIGN &PORT_1 = &PORT_0(1,3) !! "1"                                  
          ASSIGN &PORT_2 = &PORT_0(1,3) !! "2"                                  
          ASSIGN &PORT_3 = &PORT_0(1,3) !! "3"                                  
          ASSIGN &PORT_4 = &PORT_0(1,3) !! "4"                                  
          ASSIGN &PORT_5 = &PORT_0(1,3) !! "5"                                  
          ASSIGN &PORT_6 = &PORT_0(1,3) !! "6"                                  
          ASSIGN &PORT_7 = &PORT_0(1,3) !! "7"                                  
          ASSIGN &PORT_8 = &PORT_0(1,3) !! "8"                                  
                                                                                
***********************************************************************         
* STEP05 -- Execute MG2163                                            *         
***********************************************************************         
STEP05:   RUN MG2163 in (FPSULOAD.LIBRARY) on (FPSULOAD.VOLUME)                 
               ENTER SUBMIT     FILE     = MG1B2169,                            
                                LIBRARY  = (FPSUPROC.LIBRARY),                  
                                VOLUME   = (FPSUPROC.VOLUME),                   
                                PORTNAME = &PORT_1,                             
                                JOBID    = MG1B2169,                            
                                JOBCLASS = &JOB_CLASS                           
               ENTER SUBMIT     FILE     = MG2B2169,                            
                                LIBRARY  = (FPSUPROC.LIBRARY),                  
                                VOLUME   = (FPSUPROC.VOLUME),                   
                                PORTNAME = &PORT_2,                             
                                JOBID    = MG2B2169,                            
                                JOBCLASS = &JOB_CLASS                           
               ENTER SUBMIT     FILE     = MG3B2169,                            
                                LIBRARY  = (FPSUPROC.LIBRARY),                  
                                VOLUME   = (FPSUPROC.VOLUME),                   
                                PORTNAME = &PORT_3,                             
                                JOBID    = MG3B2169,                            
                                JOBCLASS = &JOB_CLASS                           
               ENTER SUBMIT     FILE     = MG4B2169,                            
                                LIBRARY  = (FPSUPROC.LIBRARY),                  
                                VOLUME   = (FPSUPROC.VOLUME),                   
                                PORTNAME = &PORT_4,                             
                                JOBID    = MG4B2169,                            
                                JOBCLASS = &JOB_CLASS                           
               ENTER SUBMIT     FILE     = MG5B2169,                            
                                LIBRARY  = (FPSUPROC.LIBRARY),                  
                                VOLUME   = (FPSUPROC.VOLUME),                   
                                PORTNAME = &PORT_5,                             
                                JOBID    = MG5B2169,                            
                                JOBCLASS = &JOB_CLASS                           
               ENTER SUBMIT     FILE     = MG6B2169,                            
                                LIBRARY  = (FPSUPROC.LIBRARY),                  
                                VOLUME   = (FPSUPROC.VOLUME),                   
                                PORTNAME = &PORT_6,                             
                                JOBID    = MG6B2169,                            
                                JOBCLASS = &JOB_CLASS                           
               ENTER SUBMIT     FILE     = MG7B2169,                            
                                LIBRARY  = (FPSUPROC.LIBRARY),                  
                                VOLUME   = (FPSUPROC.VOLUME),                   
                                PORTNAME = &PORT_7,                             
                                JOBID    = MG7B2169,                            
                                JOBCLASS = &JOB_CLASS                           
               ENTER SUBMIT     FILE     = MG8B2169,                            
                                LIBRARY  = (FPSUPROC.LIBRARY),                  
                                VOLUME   = (FPSUPROC.VOLUME),                   
                                PORTNAME = &PORT_8,                             
                                JOBID    = MG8B2169,                            
                                JOBCLASS = &JOB_CLASS                           
               ENTER SUBMIT                                                     
               ENTER ACCEPT     SCRN-MSG =                                      
                                "MGRB2169, Multiple File REORG"                 
                                                                                
                                                                                
          IF STEP05 ne 0 RETURN CODE = STEP05 + 5000                            
