A fix is available
APAR status
Closed as new function.
Error description
ZONEDATA(NOPFD) and ZONEDATA(MIG) effects are expanded to MOVE statements, comparisons, and computations for USAGE DISPLAY or PACKED-DECIMAL data items that could contain invalid data (digits, sign code, or zone bits), with actions more compatible with earlier compilers.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V6.1 compiling * * and running programs with NUMPROC(NOPFD) * * that compare a PACKED-DECIMAL and USAGE * * DISPLAY data item to each other, where the * * USAGE DISPLAY data item contains an invalid * * sign code or invalid digits. * * * **************************************************************** * PROBLEM DESCRIPTION: The compiled program terminates with a * * runtime abend (S0C7). * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The compiler was generating an instruction that forced a subsequent compare to be a numeric compare, despite ZONEDATA(NOPFD) or ZONEDATA(MIG) being specified, while Enterprise COBOL V4.2 generated an alphanumeric compare. When used with invalid data, the numeric compare caused a runtime abend, while the alphanumeric compare used by V4.2 did not.
Problem conclusion
Temporary fix
Comments
The compiler was fixed to generate an alphanumeric compare when comparing a PACKED-DECIMAL and USAGE DISPLAY data item when compiling with ZONEDATA(NOPFD) or ZONEDATA(MIG). Customers whose programs may use invalid USAGE DISPLAY and PACKED-DECIMAL data can compile with ZONEDATA(NOPFD) or ZONEDATA(MIG), causing the compiler to avoid generating the instruction that causes the runtime abend in this scenario. Customers with valid data can use ZONEDATA(PFD) in order to get the best performance.
APAR Information
APAR number
PI88271
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
610
Status
CLOSED UR1
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2017-10-03
Closed date
2017-10-23
Last modified date
2018-08-21
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYQCBE
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R610 PSY UI51349
UP17/10/30 P F710
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":"BU048","label":"IBM Software"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.1","Edition":"","Line of Business":{"code":"LOB70","label":"Z TPS"}}]
Document Information
Modified date:
05 September 2024