An S0C4 abend in module DLICLLGF can cause an IBM IMS control region U0113 abend to occur when the following conditions exist:

You have the MAXM Reorg/Online product (version 5.1.00) installed.
You are running IBM IMS Version 15.x.x or 14.1.0
You have MAXPST set to a value greater than 999.
You are using CHANGE RECORDING FACILITY (CRF) in your IMS environment. 

The following message is found in your IMS control region if CRF is active:

BMC90489I CHANGE RECORDING FACILITY INITIALIZATION COMPLETED

In the failing scenario, IMS assigns a PSTNUM greater than 999 to an application that could also potentially update a database currently in use by a utility using the CHANGE RECORDING FACILITY function active at the same time as the application. 

Additional abend messages that could be found in the IMS control and/or DLISAS regions:

DFS629I IMS CTL TCB ABEND - IMS 0113      
DFS629I IMS DLI TCB ABEND - IMS 0150      
DFS629I IMS STC TCB ABEND - IMS 4095-DLS  
DFS629I IMS RDS TCB ABEND - IMS 4095  
IEF450I DBCTL DBCTL - ABEND=S000 U4095 REASON=00000000
 

Apply BQQ5210 to resolve the issue.

The PTF will be available on eFix PTF Distribution Services, BMC Internet Service Retrieval, or SMP/E RECEIVE ORDER on 10/23/2020.

If you need the PTF sooner, use the following sample JCL to download the fix to your system.

<jobcard>
//* 1. TSO EDIT; CAPS OFF
//* 2. Add a JOBCARD
//* 3. Change the high level "HILVLQ" to your standards
//* 4. Change "email@company.com" to your email address in the FTPGET step.
//* 5. This is an SMP/E solution. Use the resulting file to RECEIVE & APPLY
//*
//*      BQQ5210.ZDLI510.PTF FMID(ZDLI510)
//*
//*    Assumes RSL1810 maintenance
//*
//DLET1    EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
  DELETE HILVLQ.BQQ5210.ZDLI510.PTF.TRS PURGE
  DELETE HILVLQ.BQQ5210.ZDLI510.PTF PURGE
  SET MAXCC = 0
/*
//*
//FTPGET   EXEC PGM=FTP
//SYSPRINT DD   SYSOUT=*
//OUTPUT   DD   SYSOUT=*
//* -----------------------------------------------------*
//*   Case-sensitive!                                    *
//* -----------------------------------------------------*
//INPUT    DD   *
 ftp.bmc.com
 anonymous
 email@company.com
 binary
 cd pub/imsutil
 locsite lr=1024 rec=fb blk=27648 pri=10 sec=10 unit=sysda cyl
 get BQQ5210.ZDLI510.PTF.TRS +
    'HILVLQ.BQQ5210.ZDLI510.PTF.TRS' (replace
 quit
/*
//*
//UNPACK1  EXEC PGM=AMATERSE,PARM=UNPACK
//SYSPRINT DD   SYSOUT=*
//SYSUT1   DD   DISP=SHR,DSN=HILVLQ.BQQ5210.ZDLI510.PTF.TRS
//SYSUT2   DD   DISP=(,CATLG,CATLG),UNIT=SYSDA,
//            SPACE=(CYL,(10,10),RLSE),
//            DSN=HILVLQ.BQQ5210.ZDLI510.PTF
//*
//DLET2    EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
  DELETE HILVLQ.BQQ5210.ZDLI510.PTF.TRS       PURGE
/*
//


Acceptable workarounds are to set MAXPST to 999 or lower, but this will require a COLD start of IMS.