A fix is available
APAR status
Closed as program error.
Error description
Users get 0C4 abend in ELACOMC in our production cics and then get a lot of other cics abends. This happens when the storage being used is above the 1GB mark in CICS.
Local fix
Use the COBOL compiler option trunc(bin)
Problem summary
**************************************************************** * USERS AFFECTED: EGL CICS users that have region sizes above * * the 1GB memory range * **************************************************************** * PROBLEM DESCRIPTION: THE MODULE ELACOMC IS DOING POINTER * * ARITHMETIC FOR PERFORMANCE REASONS. THE * * MODULE WAS ERRONEOUSLY COMPILED * * WITH TRUNC(STD) INSTEAD OF TRUNC(BIN). * * THIS CAUSES THE PIC S9(9) COMP-4 FIELD * * to BE TRUNCATED PRODUCING AN INVALID * * ADRESS. THE ABEND OCCURS BECAUSE OF THI * * BAD ADDRESS. * **************************************************************** * RECOMMENDATION: APPLY THIS MAINTENANCE. * **************************************************************** The module ELACOMC is doing pointer arithmetic for performance reasons. The module was erroneously compiled with trunc(std) instead of trunc(bin). This causes the pic s9(9) comp-4 field to be truncated producing an invalid address. The abend occurs because of this bad address.
Problem conclusion
The module ELACOMC was recompiled with trunc(bin)
Temporary fix
Comments
APAR Information
APAR number
PI51286
Reported component name
RATL COBOL RT Z
Reported component ID
5655R2900
Reported release
601
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2015-10-27
Closed date
2015-12-09
Last modified date
2016-01-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
ELACOMC
Fix information
Fixed component name
RATL COBOL RT Z
Fixed component ID
5655R2900
Applicable component levels
R601 PSY UI33732
UP15/12/15 P F512
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":"SSN27B","label":"Rational COBOL Runtime for zSeries"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.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":"6.0.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
04 January 2016