PI61403: RATIONAL BUSINESS DEVELOPER (RBD) 9.1.0 - GENERATED COBOL COMPILES WITH ERROR IGYPS0023-E

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

APAR status

• Closed as program error.

Error description

• It is found that in a particular case, a generated Cobol
  identifier is 31 characters, and teh program fails compilation
  with
  IGYPS0023-E message.
  
  The generate code snippet is:
  ----
  
      EZECLOSE-MYRESPONSE-4997-HARD SECTION.
  
             PERFORM EZEMQ-MYRESPONSE-4997-INIT
  
             MOVE "ELACCLS" TO EZEPROGM
  
             CALL EZEPROGM USING BY VALUE EZEMQ-EZERTS-PTR
  
                  BY VALUE EZEMQ-CMMSGRCD-PTR
  
                  BY VALUE EZEMQ-CMPRGSTA-PTR
  
                  BY VALUE EZEMQ-CMCOMP-PTR
  
             CONTINUE.
  
         EZECLOSE-MYRESPONSE-4997-HARD-X.
  
             EXIT.
  
  -----
  
  EZECLOSE-MYRESPONSE-4997-HARD-X  is 31 characters
  

Local fix

• Redefine the variable with myresponse in EGL source to something
  smaller.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * Users that have MQSeries file names longer than 10           *
  * characters can get a cobol compiler error for a EZECLOSE     *
  * label.                                                       *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * The EZECLOSE label that is generated, which includes some of *
  * the MQSeries file name along with a unique numeric           *
  * identifier can produce a cobol label that is 31 characters   *
  * long, which causes a cobol compiler error.                   *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• The software has been updated to remove 2 characters from the
  static part of the label, which ensures that the name will be 30
  characters or less.
  

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