PI54910: GENERATED COBOL HAS COMPILE ERROR FOR DELEGATE ARRAY

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

• For the delegate array like below:
  
  delegate SIQ_FPSUB_DelegatePart()
  
  end
  
  dictSIQ  SIQ_FPSUB_DelegatePart[3] = [OP_SIQ_FPSUB_19012L,
  
  OP_SIQ_FPSUB_19012M, OP_SIQ_FPSUB_19012N];
  
  
  
  It can be generated to COBOL, but the generated result has
  compile
  error. The problem has been confirmed as defect by developer
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * Users using dynamic arrays of delegates.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * The generated code for initializing a dynamic array of       *
  * delegates was using the initialize cobol verb, which caused  *
  * a cobol compiler error.                                      *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• The code was updated to use the move low-values statement
  instead of initialize.
  

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

• R950 PSY

     UP