PK53734: COBOL PIC X field are not correctly reinitialized

Rational Application Developer for WebSphere Software, Version 7.0.0.5

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 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