search cancel

Applying IDMS maintenance failing with GIM38601E and GIM50202E

book

Article ID: 241609

calendar_today

Updated On:

Products

IDMS

Issue/Introduction

SMP/E RECEIVE and APPLy are failing with  GIM38601E and GIM50202E:

RECEIVE SELECT(LU00020).                                              
                                                                        
GIM38601E ** SYSMOD LU00020 WAS NOT RECEIVED BECAUSE IT HAS ALREADY BEEN RECEIVED
GIM39001E ** SYSMOD LU00020 WAS NOT RECEIVED EVEN THOUGH IT WAS SPECIFIED
GIM24801W    NO SYSMODS SATISFIED THE OPERANDS SPECIFIED ON THE RECEIVE COMMAND
GIM20501I    RECEIVE PROCESSING IS COMPLETE. THE HIGHEST RETURN CODE WAS 04
                                                                        
  APPLY CHECK SELECT(LU00020)                                           
  BYPASS(HOLDSYS HOLDERROR).                                            
                                                                        
GIM50202E ** APPLY PROCESSING FAILED FOR SYSMOD LU00020 BECAUSE IT HAS ALREADY BEEN APPLIED
GIM24801S ** NO SYSMODS SATISFIED THE OPERANDS SPECIFIED ON THE APPLY COM
GIM20501I    APPLY PROCESSING IS COMPLETE. THE HIGHEST RETURN CODE WAS 12

How to identify PTF's that were previously received and applied in order to remove them from the RECEIVE and APPLY SELECT?

Environment

Release : 19.0

Component : IDMS/DC

Resolution

 

Using the SELECT syntax tells SMP/E explicitly what PTFS to RECEIVE and APPLY:

                                 
                                                                        
GIM38601E ** SYSMOD LU00020 WAS NOT RECEIVED BECAUSE IT HAS ALREADY BEEN RECEIVED
GIM50202E ** APPLY PROCESSING FAILED FOR SYSMOD LU00020 BECAUSE IT HAS ALREADY BEEN APPLIED

Using the following JCL will not fail with these errors because SELECT is not being used:

//RECEIVE  EXEC PGM=GIMSMP,REGION=0M                            
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=((6400,6400)),      
//            DISP=(NEW,DELETE)                                 
//SMPPTFIN DD DISP=SHR,DSN=HLQ.SMPPTFIN          
//SMPHOLD  DD DISP=SHR,DSN=HLQ.SMPPTFIN.HOLD     
//SMPCSI   DD DISP=SHR,DSN=HLQ.CSI              
//SMPCNTL  DD *                                                 
  SET BOUNDARY(GLOBAL) .                                        
  RECEIVE SYSMODS HOLDDATA                                      
   FORFMID (                                                    
      CAGJJ00                                                   
      CAGJJ01                                                   
          ).                                                    
/*                                                              
//APPLY    EXEC PGM=GIMSMP,REGION=0M,PARM='DATE=U'              
//SMPLOGA  DD SYSOUT=*                                          
//SMPCSI   DD DISP=SHR,DSN=HLQ.CSI              
//SMPCNTL  DD *                                                 
  SET BOUNDARY(CAIT18).                                         
  APPLY CHECK PTFS                                              
   FORFMID (                                                    
      CAGJJ00                                                   
      CAGJJ01                                                   
          )                                                     
  BYPASS(HOLDSYS HOLDERROR).                                    
/*                                                              
             

 

PTF's that were previously received and applied will be listed in the output as followed:

 LU00020  NOT RECEIVED  PTF                           ALREADY RECEIVED
 LU00022  NOT RECEIVED  PTF                           ALREADY RECEIVED
 LU00024  NOT RECEIVED  PTF                           ALREADY RECEIVED
 LU00027  NOT RECEIVED  PTF                           ALREADY RECEIVED
 LU00037  NOT RECEIVED  PTF                           ALREADY RECEIVED
 LU00042  NOT RECEIVED  PTF                           ALREADY RECEIVED
 LU00045  NOT RECEIVED  PTF                           ALREADY RECEIVED

 PRODXML  LU00020  APPLIED  CAGJJ00 LU03871 AAGJXML  CAGJXML                                      LU03871 APPLIED

 PRODXML  LU00022  APPLIED  CAGJJ00 LU03871 AAGJXML  CAGJXML                                      LU03871 APPLIED

 PRODXML  LU00024  APPLIED  CAGJJ00 LU03871 AAGJXML  CAGJXML                                      LU03871 APPLIED

 PRODXML  LU00027  APPLIED  CAGJJ00 LU03871 AAGJXML  CAGJXML                                      LU03871 APPLIED

 PRODXML  LU00037  APPLIED  CAGJJ00 LU03871 AAGJXML  CAGJXML                                      LU03871 APPLIED

 PRODXML  LU00042  APPLIED  CAGJJ00 LU03871 AAGJXML  CAGJXML                                      LU03871 APPLIED

PRODXML  LU00045  APPLIED  CAGJJ00 LU03871 AAGJXML  CAGJXML                                      LU03871 APPLIED