PI65729: CICS SEGMENTED CONVERSE FAILS WITH ERROR: INDEX FOR PROGRAM NOT FOUND

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• User is running RBD 7.5 genenerated CICS Cobol programs which do
  segmented converse. In some cases the display is erratic and
  message "ERROR: INDEX FOR PROGRAM NOT FOUND" is seen after some
  PTFs are applied to update the runtime to version 9.5.
  
  The problem does not happen if the same egl program is generated
  using RBD 8.5 or later
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: ALL USERS OF RATIONAL BUSINESS DEVELOPERZ/OS *
  *                 COBOL RUNTIME                                *
  ****************************************************************
  * PROBLEM DESCRIPTION: IT IS POSSIBLE, IF THE SEGMENTED        *
  *                      CONVERSE IS PERFORMED IN MORE           *
  *                      THAN 1 PLACE IN THE APPLICATION         *
  *                      PROGRAM, FOR IT TO DISPLAY ERROR        *
  *                      MESSAGES ON THE SYSLOG FILE INDICATING  *
  *                      ERROR: INDEX FOR PROGRAM NOTFOUND       *
  *                      THIS HAPPENS BECAUSETHE SEGMENTED       *
  *                      SAVE MODULE, ELASSM WASRELEASING        *
  *                      STORAGE TOO SOON. IT WASPOSSIBLE        *
  *                      THAT A 2ND SEGMENTED CONVERSE,          *
  *                      IN THE  SAME PROGRAM BUT FROM A         *
  *                      DIFFERENT LOCATION,COULD BE DONE.       *
  *                      IN THAT CASE, THE MEMORY FOR THE RETURN *
  *                      PATH WAS LOST, SO SUBSEQUENT            *
  *                      INVOCATIONS OF THE PROGRAM WOULD        *
  *                      RECEIVE THE ERRORS.                     *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: APPLY THIS MAINTENANCE                       *
  ****************************************************************
  IT IS POSSIBLE, IF THE SEGMENTED CONVERSE IS PERFORMED IN MORE
  THAN 1 PLACE IN THE APPLICATION PROGRAM, FOR IT TO DISPLAY ERROR
  MESSAGES ON THE SYSLOG FILE INDICATING  ERROR: INDEX FOR PROGRAM
  NOT FOUND. THIS HAPPENS BECAUSE THE SEGMENTED SAVE MODULE,
  ELASSM WAS RELEASING STORAGE TOO SOON. IT WAS POSSIBLE THAT A
  2ND SEGMENTED CONVERSE, IN THE SAME PROGRAM BUT FROM A DIFFERENT
  LOCATION, COULD BE DONE. IN THAT CASE, THE MEMORY FOR THE RETURN
  PATH WAS LOST, SO SUBSEQUENT INVOCATIONS OF THE PROGRAM WOULD
  RECEIVE THE ERRORS.
  

Problem conclusion

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  PI64954

• APAR is sysrouted TO one or more of the following:

Modules/Macros

• ELASMDES ELASMMAN ELASMRES ELASMSAV ELASMSER
  

Fix information

• Fixed component name

  RATL COBOL RUNT

• Fixed component ID

  5648F6600

Applicable component levels

• R750 PSY UI40795

     UP16/09/30 I 1000

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.