A fix is available
APAR status
Closed as program error.
Error description
Environment: - OS (name, language, version or SP): Microsoft Windows XP SP2 - Product name (Build ID or version/patch level): IBM Rational Application developer 6.0.1.2 Reproducible Y/N: Y Description of problem: A Cobol field initialized with a VALUE clause and then redefine d with , among the other FIELDS, a PIC X , is wrongly reinitial ized and is not compliant with the Cobol Manual: Redefining B does not change the bit configuration of the data i n the storage area. Steps to reproduce: 1) Create a COBOL CPY file with the following declaration: 01 TEST-AREA. 03 FIELDX PIC X(30) VALUE ZERO. * 03 REDEF-AREA REDEFINES FIELDX. 05 FIELD1 PIC 9(10). 05 FIELD2 PIC X(10). 05 FIELD3 PIC 9(10). 2) Create a J2C Java bean by importing the above COBOL file, the following code is generated: String fieldxInitialValue = 000000000000000000000000000000; MarshallStringUtils.marshallFixedLengthStringIntoBuffer( fieldxInitialValue, initializedBuffer_, 0, ISO-8859-1, 30, MarshallStringUtils.STRING_JUSTIFICATION_LEFT,
Local fix
Problem summary
A Cobol field initialized with a VALUE clause and then redefined with , among the other FIELDS, a PIC X , is wrongly reinitialized and is not compliant with the Cobol Manual: Redefining B does not change the bit configuration of the data in the storage area.
Problem conclusion
Fixed in Rational Application Developer V7005.
Temporary fix
Comments
APAR Information
APAR number
PK53734
Reported component name
RATL APP DEV WI
Reported component ID
5724J1901
Reported release
600
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2007-09-28
Closed date
2007-12-12
Last modified date
2007-12-12
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Fixed component name
RATL APP DEV WI
Fixed component ID
5724J1901
Applicable component levels
R600 PSN
UP
[{"Business Unit":{"code":"BU053","label":"Cloud & Data Platform"},"Product":{"code":"SSRTLW","label":"Rational Application Developer for WebSphere Software"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0","Line of Business":{"code":"LOB45","label":"Automation"}}]
Document Information
Modified date:
19 October 2021