IBM Support

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

A fix is available

Subscribe

You can track all active APARs for this component.

 

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

    PI64954

  • Reported component name

    RATL COBOL RT Z

  • Reported component ID

    5655R2900

  • Reported release

    601

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2016-06-27

  • Closed date

    2016-08-26

  • Last modified date

    2016-10-03

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

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

    PI65729 UI40406

Modules/Macros

  •    ELASMDES ELASMMAN ELASMRES ELASMSAV ELASMSER
    

Fix information

  • Fixed component name

    RATL COBOL RT Z

  • Fixed component ID

    5655R2900

Applicable component levels

  • R601 PSY UI40406

       UP16/09/09 P F609

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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSN27B","label":"Rational COBOL Runtime for zSeries"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.1","Edition":"","Line of Business":{"code":"","label":""}}]

Document Information

Modified date:
03 October 2016