MTI$CAT1 - Abend S0C4 - Batch job

Batch job MTI$CATx program may fail with an abend S0C4. Please link-edit the module RA4$CAT1 as shown below:




//LKED EXEC PGM=IEWL,
// PARM=('XREF,LIST,MAP,AMODE=31,RMODE=24'),
// REGION=2548K
//SYSLIB DD DSN=your.RA2.LINKLIB,
// DISP=SHR
//SYSUT1 DD DSN=&&SYSUT1,
// UNIT=VIO,
// SPACE=(CYL,(5,3))
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=1210)
//SYSLIN DD DDNAME=SYSIN
//SYSLMOD DD DSN=your.RA2.LINKLIB,
// DISP=SHR
//LKED.SYSIN DD *
INCLUDE SYSLMOD(MTI$CAT1)
SETCODE AC(1)
ENTRY MTI$CAT1
NAME MTI$CAT1(R)
/*
//TESTPGM1 EXEC PGM=MTI$CAT1
//STEPLIB DD DISP=SHR,DSN=your.RA2.LINKLIB
//RA2CATLG DD SYSOUT=*