A fix is available
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 number
PI65729
Reported component name
RATL COBOL RUNT
Reported component ID
5648F6600
Reported release
750
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-07-12
Closed date
2016-08-30
Last modified date
2016-09-30
APAR is sysrouted FROM one or more of the following:
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.
[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG32M","label":"APARs - VSE\/ESA environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"750","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
30 September 2016