A fix is available
APAR status
Closed as program error.
Error description
If PRF is loaded from APF authorized library and CHKPINT>0 is specified, job will abend after CHKPINT seconds have elapsed (instead of displaying IRT090I). IRT0317 CC 0000 JOB20827 TSMGM +IRT315I PRF LOADED FROM APF AUTHORIZED LIBRARY +DFS0540I *EXTENDED CHECKPOINT* PROGRAM=REXXDLT0,CKPTID=CHKPID1 ,REGID=0005 +DFS0542I *EXTENDED CHECKPOINT* DAY=064,TIME=082929414585-0500 IEA1 +IRT047I ENTERING IRTRCC00 ESTAE 2 DUE TO S0C4 ABEND IN APPLICATION ... SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004 TIME=03.29.32 SEQ=08994 CPU=0000 ASID=0050 PSW AT TIME OF ERROR 078D0000 A7415356 ILC 4 INTC 04 ACTIVE LOAD MODULE ADDRESS=27413F80 OFFSET=000013D6 NAME=IRTRCC00 ... IRT087I DFSRRC00 ESTAI ABEND=S13E IRT059I DETACH SUCCESSFUL Note that even though the job abended, and second checkpoint was skipped, the job still ended with RC=0.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All Users of Program Restart Facility V2R2 * * that run PRF from an APF-authorized * * concatenation and utilize CHKPINT * * processing. * **************************************************************** * PROBLEM DESCRIPTION: When PRF is loaded from an * * APF-authorized concatenation, it is * * loaded into a storage subpool which * * requires that a program be in key 0 * * before the storage can be modified. PRF * * operates in the user application key. * * The CHKPINT specification causes logic * * to execute which keeps track of the * * time between program checkpoints by * * setting a timer. When the time interval * * expires, a STCKCONV macro is issued to * * format the result of a TIME macro used * * to format the amount of time since the * * last checkpoint was taken. The STCKCONV * * macro was not coded in a re-entrant * * fashion, which causes the macro * * invocation to use an in-line parameter * * list. Because the module was loaded * * into a storage subpool which requires * * the program to be operating in key 0 * * before storage in that subpool can be * * modified, the S0C4 occurs. * **************************************************************** * RECOMMENDATION: Apply the PTF that corrects this APAR. * **************************************************************** The PRF module in question was not coded to be re-entrant, but was linked as re-entrant. This caused the module to be loaded into a storage subpool that is restricted for update to programs running in key 0, when the module is loaded from an APF-authorized concatenation.
Problem conclusion
The PRF module in question has been modified to be re-entrant.
Temporary fix
Comments
APAR Information
APAR number
PI58469
Reported component name
IMS PGM RESTART
Reported component ID
5655E1400
Reported release
220
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-03-04
Closed date
2016-07-13
Last modified date
2016-08-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI39348
Modules/Macros
IRTOPTA IRTOPTJ IRTPRE00 IRTPRE10 IRTRCC00
Fix information
Fixed component name
IMS PGM RESTART
Fixed component ID
5655E1400
Applicable component levels
R220 PSY UI39348
UP16/07/22 P F607
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.
[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"220","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSAVHR","label":"IMS Program Restart Facility for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"220","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
24 January 2022