PROCEDURE MGRB2010                                                              
          USING &APPLICATION        AS STRING (06),                             
                &CAT_ENTRY          AS STRING (16)                              
                                                                                
*                                                                               
***********************************************************************         
*   M O D I F I C A T I O N S                                                   
*   =========================                                                   
***********************************************************************         
*                                                                               
*  VER  INIT  DATE      R E V I S I O N S                                       
*  ===  ====  ========  ===============================================         
*   01  JMC   09/23/92  Added FPSULOAD catalog                                  
*   00  GAW   06/19/87  Initial Creation                                        
*                                                                               
***********************************************************************         
                                                                                
 STEP01:   RUN MU5350                                                           
                                                                                
           ENTER CATGET CATNAME=MG10151S                                        
 MG10151S: ENTER LOCATION                                                       
           ENTER CATGET CATNAME=FPSULOAD                                        
 FPSULOAD: ENTER LOCATION                                                       
                                                                                
           ENTER CATGET                                                         
                                                                                
*                                                                               
***********************************************************************         
*                                                                               
*    RUN MG2010 - Lookup Application Return Code File Catname                   
*                                                                               
***********************************************************************         
*                                                                               
 STEP02:       RUN MG2010 in (FPSULOAD.LIBRARY) on (FPSULOAD.VOLUME)            
                   USING &APPLICATION, &CAT_ENTRY                               
                                                                                
               ENTER MG10151S  (MG10151S)                                       
                                                                                
***  END OF LISTING  **************************************************         
