PI14403: "Error in generated COBOL when stand-alone functions make DL/I path calls"

Rational Business Developer Fix Pack 2 (8.5.1.2) for 8.5.1
Rational Business Developer Fix Pack 1 (9.0.1.1) for 9.0.1
Rational Business Developer Fix Pack 1 (9.1.1.1) for 9.1.1
Rational Business Developer Fix Pack 2 (9.0.1.2) for 9.0.1

APAR status

• Closed as program error.

Error description

• "Error in generated COBOL when stand-alone functions make DL/I
  path calls"
  
  This error appears with VAGen migrated egl-programs using
  certain dli functions. As an example, we created simple test
  program (cobtpgm) which refers to two dli functions (cainq and
  cvinq).
  

Local fix

• We have also noticed that it is possible to avoid this problem
  by keeping all source code of a package in a single file, and in
  some cases, by combining several packages together (to a single
  source file).
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * If a function makes a DL/I path call, and the statement      *
  * number of that call is the same as another DL/I path call    *
  * elsewhere, then the generated COBOL contains duplicate       *
  * declarations in the working storage section.                 *
  * This can happen if stand-alone functions in two different    *
  * source files make DL/I path calls on the same statement      *
  * number in their respective source files.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * If a function makes a DL/I path call, and the statement      *
  * number of that call is the same as another DL/I path call    *
  * elsewhere, then the generated COBOL contains duplicate       *
  * declarations in the working storage section.                 *
  * This can happen if stand-alone functions in two different    *
  * source files make DL/I path calls on the same statement      *
  * number in their respective source files.                     *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• The software was updated to correct this.
  

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 PSY

     UP

• R851 PSY

     UP

• R901 PSY

     UP

• R910 PSY

     UP