PM53923: VSAM record with composite key gets corrupted

Rational Business Developer Fix Pack 3 (8.0.1.3) for 8.0.1
Rational Business Developer Fix Pack 8 (7.5.1.8) for 7.5.1

APAR status

• Closed as program error.

Error description

• User has a EGL VSAM record with a composite key, as follows:
  
  
      4 OFX-RECORD-KEY CHAR(11) ;
        5 OFX-BRANCH pacf(3) ;
        5 OFX-REFER pacf(17) ;
  
  
  
  In the egl program OFX-BRANCH and OFX-REFER are set to 0, and
  then a get is done on the record.
  
  The generated COBOL code performs the EZEOPENI-OFXOB SECTION
  overwriting  this values and initializes the level 4 parent
  structure OFX-RECORD-KEY with all BLANKS. Therefore the program
  fails when executing.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The indexed file key was being initialized with a COBOL
  "initialize" statement instead of moving low-values into it.
  The structure of the copied key did not include the sub
  field items, so the initialize would then move in spaces
  instead of the appropriate data for the sub fields. This
  caused any records with a key lower than spaces to be
  missed, when reading the file sequentially.
  

Problem conclusion

• The field key is now defaulted to low-values instead, and
  this was verified by both V6 and VAG source code. A fixtest
  is available.
  

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

• Fixed component ID

  5724S5000

Applicable component levels

• R801 PSN

     UP