A fix is available
APAR status
Closed as program error.
Error description
You are attempting to run the Discovery Library Adapter using the IBM Supplied samples. You immediately receive an 0C4 abend code with the following in your job log: . SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004 TIME=16.37.06 SEQ=05335 CPU=0000 ASID=00D1 PSW AT TIME OF ERROR 078D1000 800090FC ILC 4 INTC 04 ACTIVE LOAD MODULE ADDRESS=000079C8 OFFSET=00001734 NAME=EYU9XDDA DATA AT PSW 000090F6 - 00005081 0004928F 10001801 GR 0: FD000008 1: 800090F0 2: 00000000 3: 0000F480 4: 0001047F 5: 0001147E 6: 00000000 7: FD000000 8: 00026EDC 9: 00026EFE A: 00025EFF B: 00026950 C: 00002710 D: 00024F00 E: 80007B3A F: 800079C8 END OF SYMPTOM DUMP . The problem is with program reentrancy and APF authorization. The IBM-supplied sample JCL has the following datasets in the STEPLIB DD: . //STEPLIB DD DISP=SHR,DSN=&CPSMHLQ..SEYULOAD // DD DISP=SHR,DSN=&CPSMHLQ..SEYUAUTH // DD DISP=SHR,DSN=&CICSHLQ..SDFHAUTH // DD DISP=SHR,DSN=&CICSHLQ..SDFHLOAD . The EYU9XDDA load module is in the SEYULOAD dataset. Because the STEPLIB contains some APF authorized datasets as well as un-authorized datasets, MVS will consider the whole concatenation of datasets to be not APF authorized, and will load the EYU9XDDA load module into subpool 251 storage. . If you have made the SEYULOAD and SDFHLOAD datasets APF authorized on your system, then MVS will load the EYU9XDDA load module into subpool 252 storage, which is write-protected. . Load module EYU9XDDA is linkedited with the RENT parm, indicating it is REENTRANT. However, some sections of the code do not adhere to the restrictions of being a reentrant program, resulting in an S0C4 abend.
Local fix
Remove APF authorization from the SDFHLOAD and SEYULOAD datasets, or add an additional "dummy" load library that is not APF authorized to the STEPLIB concatenation. . Additional Symptoms and Keywords KIXREVSVR
Problem summary
**************************************************************** * USERS AFFECTED: All CICSPlex SM V4R1M0 and V4R2M0 Users * **************************************************************** * PROBLEM DESCRIPTION: A S0C4 abend will occur when running * * the CPSM CICS Discovery Library Adaptor * * (DLA) program EYU9XDDA, if the STEPLIB * * for the job contains all APF authorized * * libraries. * * * * The abend will occur in EYU9XDDA on a * * store instruction that is part of the * * generation of the OPEN macro * * instruction for file SYSPRINT. * **************************************************************** * RECOMMENDATION: After applying the PTF that resolves this * * APAR, EYU9XDDA should be rerun, pointing * * to the libraries updated by the PTF. * **************************************************************** When a reentrant (RENT) and reusable (REUS) module is executed from an APF authorized library concatenation, it is loaded into store protected storage. If the program attempts to modify itself, a S0C4 abend will occur. Program EYU9XDDA, which is neither reentrant nor reusable, has been invalidly distributed with the linkage editor RENT and REUS attributes. This results in the S0C4 abend documented above when it is executed from an APF authorized library concatenation.
Problem conclusion
The JCLIN for EYU9XDDA has been updated to remove the RENT and REUS attributes.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PM41301
Reported component name
CICS TS Z/OS V4
Reported component ID
5655S9700
Reported release
60M
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2011-06-10
Closed date
2011-07-13
Last modified date
2011-08-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK69713 UK69714
Modules/Macros
EYU9XDDA JCI660MJ JCI670MJ
Fix information
Fixed component name
CICS TS Z/OS V4
Fixed component ID
5655S9700
Applicable component levels
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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"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":"4.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
01 August 2011