Method 2. Customizing LIU load modules by merging into the IMS SDFSRESL library

Back up the IMS™ SDFSRESL library, and then merge the LIU load modules into the IMS SDFSRESL library.

Procedure

  1. Back up the IMS SDFSRESL library.

    When program temporary fixes (PTFs) are released for the DSPCRTR0 module, you must restore the DSPCRTR0 module from the backup to apply the PTFs. Therefore, before merging LIU load modules, you must create a backup of the IMS SDFSRESL library. The backup is also required to deactivate Integrity Checker.

  2. Use SMP/E to apply and accept IMS and IMS Library Integrity Utilities maintenance, and ensure that both are at the latest maintenance level.
  3. Run the FABLUMD1 job that is in the SHPSJCL0 JCL library.

    This job updates the SMP/E CSI of IMS. It runs SMP/E RECEIVE/APPLY of USERMOD to install the FABLRTR0 module into the IMS SDFSRESL library. The FABLUMD1 job is shown in JCL example to install the FABLRTR0 module into the IMS SDFSRESL library.

  4. Merge the LIU load modules (FABL* members) in the target library SHPSLMD0 into the IMS SDFSRESL library.

    If this step is not done, when Integrity Checker is activated, an ABENDU0109 load failure occurs for the required LIU load modules.

JCL example to install the FABLRTR0 module into the IMS SDFSRESL library

//FABLUMD1 JOB            
//*--------------------------------------------------------------------
//*   STEP1: SMP/E RECEIVE/APPLY usermod ZZLIU01 to IMS CSI            
//*--------------------------------------------------------------------
//STEP1   EXEC procedure name of IMS SMP/E job
//*                                                                    
//*                                                                    
//AHPSMOD0 DD DISP=SHR,DSN=LIU.AHPSMOD0                            
//*                                                                    
//SMPPTFIN DD DATA,DLM=@@                                              
++USERMOD(ZZLIU01)                     /*  LIU R2 USERMOD           */ 
      REWORK(2004058)                  /*                           */ 
 /*                                                                 */ 
 /* OPTIONAL LIU USERMOD FOR IMS-DBRC FMIDS.                        */ 
 /* APPLY THIS USERMOD TO IMS-DBRC SMP/E CSI ONLY IF YOU WANT TO    */ 
 /* INSTALL LIU-MODIFIED VERSION OF DSPCRTR0 INTO YOUR IMS SMP/E    */ 
 /* CSI.                                                            */ 
 /*                                                                 */ 
 /* BEFORE APPLYING THIS USERMOD, ALL MAINTENANCE FOR IMS-DBRC      */ 
 /* DSPCRTR0 MUST BE ACCEPTED OR RESTORED.                          */ 
 /*                                                                 */.
++VER(P115)                            /*  IMS SYSTEM ID/FMID       */ 
      FMID(FMID of IMS)                                                   
                                       /*                           */.
++JCLIN CALLLIBS                       /*  JCLIN FOR LIU MODULES    */ 
                                       /*                           */.
//LINK   EXEC PGM=IEWL,REGION=0M,                                      
//   PARM='SIZE=(880K,64K),LET,LIST,NCAL,RENT,REFR,XREF'               
//SYSPRINT DD  SYSOUT=A                                                
//AHPSMOD0 DD  DISP=OLD,DSN=LIU.AHPSMOD0                           
//ADFSLOAD DD  DISP=OLD,DSN=IMS.ADFSLOAD                           
//SYSLMOD  DD  DISP=OLD,DSN=IMS.SDFSRESL                           
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,1))                           
//SYSLIN   DD  *                                                       
  INCLUDE AHPSMOD0(FABLRTR0)                                           
  INCLUDE ADFSLOAD(DSPCRTR0)                                           
  ENTRY   FABLRTR0                                                     
  NAME    DSPCRTR0(R)                                                  
/*                                                                     
++MOD (FABLRTR0) LKLIB(AHPSMOD0)     /*  LIU MODULE MOD ENTRY     */.
@@                                                                   
//SMPCNTL  DD *                                                      
  SET     BDY (GLOBAL).                                              
  RECEIVE S   (ZZLIU01) SYSMODS.                                     
  SET     BDY (TZONE name of IMS).                                           
  APPLY   S   (ZZLIU01).                                             
/*