How To allow the U11RMS step to stop when HSM uncatalog errors occur?

Document ID : KB000053324
Last Modified Date : 14/02/2018
Show Technical Document Details

Description:

PTF RO02225 allows you to stop the U11RMS step when HSM uncatalog errors occur. In addition, you can now echo messages to the joblog that previously only printed in the U11RMS step. You also have the ability to add the IDCAMS message table to the U11OPT table to perform a certain action on the IDCAMS message: PRINT, NOPRINT (to suppress from the RMS report) and ABEND.

Solution:

Prior to PTF RO02225, the output of the U11RMS step only displays a message when the HSM uncatalog fails. This would later result in the job failing on the migrated dataset. With this PTF, you can optionally code a table entry in the CA 11 options module (U11OPT) that if the HSM uncatalog is unsuccessful, allows the U11RMS step to abend. The U11RMS step will abend with an U0999 abend. If there is an entry that matches for the ABEND action for the L7@TARCH and L7@TIDCM tables, you will see the following message along with the U0999 abend:

U11-UCS-01 USER TABLE SPECIFIED ABEND - ARCHDEL RC=xxxx

CA 11 uses the IBM ARCHDEL macro to uncatalog HSM migrated datasets. One reason for the bad ARCHDEL RC is that the HSM processing is on hold. An optional table now is added to the U11OPT options that will allow you to indicate what action to take if the ARCHDEL macro gets a specific RETURN code. The HSMVOL parm in the CA 11 configuration file must match the volume in the catalog, for example: HSMVOL=MIGRAT

Below is an example of the change to the installation U11OPT module:

             TITLE 'U11OPT - CA-11 OPTION TABLE'    
         U11OPTBL SVC=xxx,                      
               ...                              
               TARCH=YES, <- Add ARCHDEL table  
               TYPE=CSECT                       
*                                               
*                                                   
* TARCH TABLE HAS ACTIONS TO TAKE FOR ARCHDEL ERROR 
*                                                   
         L7@TARCH START                             
         L7@TARCH ENTRY,RC=74,CC=12,ACTION=ABEND    
         L7@TARCH ENTRY,RC=100,CC=4,ACTION=ABEND    
         L7@TARCH END                               
*                                                   
         L7@TARCH DSECT                             
         END,

In this example when ARCHDEL error RC=74,CC=12 or RC=100,CC=4 occurs the U11RMS step will abend.

PTF RO02225 now also gives you the ability to echo messages to the job log that before would only print in the U11RMS step. Below is an example of the change to echo message "U11-117":

         TITLE 'U11OPT - CA-11 OPTION TABLE'         
         U11OPTBL SVC=xxx,                           
               ...                                   
               TEMSG=YES,  <- Add Echo table         
               TYPE=CSECT                            
*                                                    
* TEMSG TABLE HAS RMSRPT MSGS TO ECHO TO JOB LOG     
*                                                    
         L7@TEMSG START                              
         L7@TEMSG ENTRY,MSGID='U11-117',ACTION=ECHO  
         L7@TEMSG END                                
*                                                    
         L7@TEMSG DSECT                              
         END, 

Another optional table that is now available to be added to the U11OPT table is the IDCAMS message table. This can be used to perform a certain action on IDCAMS message: PRINT, NOPRINT (to suppress from the RMS report) and ABEND. The current CA 11 logic only prints messages from IDCAMS that beginning with "IDC".

All other messages issued by the IDCAMs utility are suppressed. This logic is the same as specifying the following two entries below:

                TITLE 'U11OPT - CA-11 OPTION TABLE'         
                U11OPTBL SVC=xxx,                           
                      ...                                   
                      TIDCM=YES, <- Add IDCAMS table        
                      TYPE=CSECT                            
       *                                                    
       * TIDCM TABLE HAS ACTIONS TO TAKE FOR IDCAMS MSGS    
       *                                                    
                L7@TIDCM START                              
                L7@TIDCM ENTRY,MSGID='IDC',ACTION=PRINT,    
                      ENV=ANY                               
                L7@TIDCM ENTRY,MSGID=ANY,ACTION=NOPRINT,    
                      ENV=ANY                               
                L7@TIDCM END                                
       *                                                    
                L7@TIDCM DSECT                              
                END,

NOTE:

Once RO02225 has been applied, and U11OPT has been modified to add the desired entries for TARCH=YES and L7@TARCH, you will need to assemble and link U11OPT using L730UOPT job provided in SAMPJCL library for CA 11. After U11OPT has been successfully assembled and linked you will need to cycle DBAS to bring in the new U11OPT. If you have PTF QO92310 applied to your system, you may perform the REFRESH command to pick up the changes instead of having to cycle DBAS.