PI55959: IN RBD 9.1.1 RESPONSE ARRAY NOT CORRECTLY POPULATED BY INVOKED WEB SERVICE

Rational Business Developer Fix Pack 1 (9.1.1.1) for 9.1.1
Rational Business Developer 9.5.1
Rational Business Developer Fix Pack 2 (9.0.1.2) for 9.0.1

APAR status

• Closed as program error.

Error description

• When invoking 3rd party web service from generated COBOL in
  CICS, sometimes the response array is not correctly populated.
  Some items are missing.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * Users that are using cobolGen services that use dynamic      *
  * arrays of records containing elements that are nullable.     *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * The calculation for the control block size for records that  *
  * contain nullable items was incorrect. This length was too    *
  * short and caused the last nullable item in the record to be  *
  * null, even though it was not. This length was also too       *
  * short, so when the length was added to point at the next     *
  * block of container IDs, used to fill the next records, it    *
  * was not pointing at the proper location, causing the 2nd     *
  * through nth records to be ignored.                           *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• The logic has been updated to use the COBOL LENGTH OF construct
  instead of calculating the value length. This would make it work
  in all cases.
  

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

• R901 PSY

     UP

• R911 PSY

     UP

• R950 PSY

     UP