A fix is available
APAR status
Closed as program error.
Error description
Storage creep in ECDSA. The size of subpool PGPPTE increased when an user program issued an EXEC CICS DISCARD PROGRAM command. In this case, the customer had an admin trxn that issued hundreds of program Discards to reduce ERDSA. The ECDSA went up when the programs were re-installed, a new PPTE was created for each new definition, in subpool PGPPTE. The new PPTEs have an eyecatcher ">DFHPGPPTE". But quick cells for PGPPTE have multiple redundant entries for each program that has been discarded. These redundant PPTEs start with spaces (x'40') instead of the free cell chain pointer. In effect, the PPTEs were not being freemained and remained active. Eventually, the system went Short Of Storage.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS users * **************************************************************** * PROBLEM DESCRIPTION: Control blocks in ECDSA not being * * FREEMAINed, causing storage creep. * **************************************************************** PPTE control blocks are not getting FREEMAINed in certain scenarios following discard program commands.
Problem conclusion
DFHPGDD is changed so that PPTE storage is FREEMAINed within the delete_program procedure regardless of how it is invoked.
Temporary fix
Comments
APAR Information
APAR number
PI84438
Reported component name
CICS TS Z/OS V5
Reported component ID
5655Y0400
Reported release
100
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2017-07-13
Closed date
2017-07-21
Last modified date
2017-08-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI48990
Modules/Macros
DFHPGDD
Fix information
Fixed component name
CICS TS Z/OS V5
Fixed component ID
5655Y0400
Applicable component levels
R100 PSY UI48990
UP17/07/22 P F707
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":"5.4","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":"5.4","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
02 August 2017