CA-EARL report failing with CALR819E PROGRAM CHECK IN USER EXIT with U3000 ABEND after LU05200 is applied; Also, +CALR805E EARL SYSTEM ABNORMAL TERMINATION
search cancel

CA-EARL report failing with CALR819E PROGRAM CHECK IN USER EXIT with U3000 ABEND after LU05200 is applied; Also, +CALR805E EARL SYSTEM ABNORMAL TERMINATION

book

Article ID: 252318

calendar_today

Updated On:

Products

CA 1 Flexible Storage

Issue/Introduction

When running a job that invokes CA Earl for CA1 reporting, the job may abend with the error "CALR819E PROGRAM CHECK IN USER EXIT" with U3000 ABEND.  This started happening after LU05200 was applied.  The following message is also generated for this error condition: 

+CALR805E EARL SYSTEM ABNORMAL TERMINATION

NOTE:  This error can also occur for CA1 15.0 (FLEX) as PTF LU05200 has been integrated into the base code 15.0 (and many other related PE/PRP/PTFs).  

 

Environment

Release : 14.0

Release: 15.0

Cause

The U3000 abend in EARL is caused because of bad residual data in an unused DSNB, or an active DSNB exists which was created prior to 2006.  Starting in 2006, CA1 maintenance was supplied (QO78113 / problem 114) which started clearing out residual data, so if a DSNB was created prior to 2006 and the tape had never been copied (Copycat, FATSCOPY, etc.), an active DSNB might still have bad residual data.   Also, if a DSNB was on the free-chain in 2006 (or prior) and has since remained on the free-chain, then it might still have residual data (and this would indicate that the size of the TMC has not increased much, or that the TMC had been over-allocated prior to 2006).

Resolution

The CA1 14.0 PTF LU06825 must be installed to allow proper reporting by the TMSCKDTM utility, which can be used to identify TMC records containing 'garbage' data in the MAXRETPD field.  Customer output of the TMSCKDTM utility can be provided to the Level One support team to assist with creating TMSUDSNB cards, which the customer can then use to clear out the 'garbage' data in the MAXRETPD field (via running the TMSUDSNB utility with the control cards supplied by L1).    

Additional Information

Sample JCL to run for the TMSCKDTM utility:

//stepname EXEC PGM=TMSCKDTM
//STEPLIB DD DSN=CAI.CTAPLINK,DISP=SHR
//TMSRPT DD SYSOUT=A

Sample JCL to run for the TMSUDSNB utility: 

//stepname EXEC PGM=TMSUDSNB
//STEPLIB DD DSN=CAI.CTAPLINK,DISP=SHR
//TMC DD DSN=CAI.CA1.TMC,DISP=SHR
//AUDIT DD DSN=CAI.CA1.AUDIT,DISP=SHR
//TMSRPT DD SYSOUT=A
//SYSIN DD *
(Level 1 supplied control statements here)
/*