APAR status
Closed as duplicate of another APAR.
Error description
User is debugging an Enterprise COBOL program. There is a Working Storage data item defined as: 05 WS-DATA-ITEM PIC S9(05)V9(03) COMP-3 VALUE +0.00. and something like this in their Procedure Division: 048400 COMPUTE WS-ROUNDED-ITEM ROUNDED 048500 EQUAL (WS-DATA-01 048600 * WS-DATA-02 048700 * WS-DATA-03 ETC.... (note: this only fails with ROUNDED items) User stops on the COMPUTE...ROUNDED statement, and the cursor is moved to the Monitor window, where this is seen: 0001 EQA1252I ********** AUTOMONITOR ********** 0002 02 WS-ROUNDED-ITEM +00000.252 0003 02 WS-DATA-01 +001.0000 0004 02 WS-DATA-02 +001.0000 The user scrolls down in the Monitor window with PF8, and then scrolls up with PF7, and this incorrect info is now seen in the Monitor window: 0001 EQA1252I ********** AUTOMONITOR ********** 0002 02 WS-ROUNDED-ITEM +00000.252 0003 +00000.25 0004 02 WS-DATA-02 +001.0000
Local fix
Problem summary
Problem conclusion
Temporary fix
Comments
Please install UK64610 to receive the solution for this APAR. This APAR is a duplicate of PM27232
APAR Information
APAR number
PM30904
Reported component name
DEBUG TOOL Z/OS
Reported component ID
5655V5000
Reported release
A10
Status
CLOSED DUB
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2011-01-20
Closed date
2011-02-09
Last modified date
2011-02-09
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Applicable component levels
[{"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":"A10","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSTQWA","label":"IBM Debug for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"A10","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
15 October 2020