A fix is available
APAR status
Closed as program error.
Error description
ZONECHECK is not generating a NUMERIC class test in the "ADD 1 TO data-item" statement (i.e. the data item is a sender and also a receiver). In this case the ZONECHECK(ABD) option does not abend when it should.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V4.2 compiling * * and running programs using the ZONECHECK * * compiler option to perform numeric class * * test checking on numeric DISPLAY data * * items, and who have statements such as ADD * * 1 to NUM in their source, where NUM is both * * a sender and a receiver. If NUM has invalid * * data ADD 1 TO NUM should fail the numeric * * class test generated by ZONECHECK. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output: NUMX is a sender in * * ADD 1 To NUMX, but it does not get a * * numeric class test generated when * * ZONECHECK is used. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** NUMX is a sender in ADD 1 To NUMX, but it was not getting a numeric class test generated when ZONECHECK was used. Example: 01 NUMXX PIC X VALUE SPACE 01 NUMX REDEFINES NUMXX PIC 9 PROCEDURE DIVISION. ADD 1 TO NUMX *> Should get a ZONECHECK *> message, but doesn't COMPUTE NUMX = NUMX + 1 *> Should get a ZONECHECK *> message, and does
Problem conclusion
The compiler is changed to recognize NUMX as a sender in the case of statements like ADD 1 TO NUMX, SUBTRACT y from NUMX, etc.
Temporary fix
Comments
APAR Information
APAR number
PI60523
Reported component name
ENT COBOL FOR Z
Reported component ID
5655S7100
Reported release
420
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-04-08
Closed date
2016-05-11
Last modified date
2016-06-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI37752
Modules/Macros
IGYPSRVE
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655S7100
Applicable component levels
R420 PSY UI37752
UP16/05/12 P F605
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":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.2","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]
Document Information
Modified date:
02 June 2016