Troubleshooting
Problem
An Enterprise COBOL compilation failed while trying to process an INITIALIZE...REPLACING statement.
Symptom
The compilation terminated with the following messages:
IGYRC5108-U COBOL COMPILER TERMINATING: UNCORRECTABLE PROGRAM INTERRUPT CONDITION.
_________CURRENT COBOL COMPILER PHASE: IGYCPSCN
_________LAST MODULE RECORDING CONTROL: IGYSERR
.......
CURRENT LINE NUMBER: nnnnnn
and RC16
The listing showed that the statement being processed was
INITIALIZE MY-COMMAREA
REPLACING ALPHANUMERIC DATA BY SPACES
NUMERIC DATA BY ZEROES.
In some cases, most of the compiler modules were loaded into the zOS linkpack area.
In a reported case, all the compiler modules were in the link-pack area (LPA) except these: IGYCRDPR, IGYCRDSC, IGY8RWTU.
In other cases, non-IBM products were involved in the compilation process.
Sometimes the problem even occurred with a batch compilation and steplib.
Cause
Intermittent Enterprise COBOL Compiler error.
Diagnosing The Problem
The dump shows the compiler was trying to format this message:
IGYxx2043-S "?" was an invalid type for an "INITIALIZE" sender
or was incompatible with the "REPLACING" category.
The statement was discarded.
Note: This message does not occur when the program compiles successfully.
Resolving The Problem
Install the PTF for one of these APARs:
PM15686 for Enterprise COBOL 4.1 and 4.2
Release 4.1 : UK58857
Release 4.2 : UK58858
PM19257 for Enterprise COBOL 3.4
Release 3.4 : UK59649
WORKAROUND:
- In some cases, the problem is intermittent and the program will compile correctly if resubmitted.
- Put the whole compiler into a data set rather than LPA and access it by STEPLIB or LINKLIST.
- In the statement:
INITIALIZE MY-COMMAREA
REPLACING ALPHANUMERIC DATA BY SPACES
NUMERIC DATA BY ZEROES.
both REPLACING phrases are defaults. If the NUMERIC DATA BY ZEROES is removed, the program will compile without problem.
- In one report, a user was able to bypass the problem and get a successful compilation by setting the region for the compile job to 0M.
Was this topic helpful?
Document Information
Modified date:
08 August 2018
UID
swg21314186