IBM Support

PM05693: COBOL COMPILER IS FAILING FOR NON-INTEGER INDEX.

A fix is available

Obtain the fix for this APAR

 

APAR status

  • Closed as program error.

Error description

  • Per PMR 79511,999,000

    Date reported: 12\17\2009

    Severity: low

    Users Affected:
    All IMU users of MU V3.2

    Problem Description:
    COBOL compiler is failing for non-integer index.

    Problem Summation
    IMU generates decimal places for a field used as index when the
    field is used on SEQUENCE and CONTROL and report exits as well
    as an index for report fields.

    12/17/2009, REPORT exits. fqptr was eroneously used for
    subscript field queue pointer, causing subscript generation
    with the wrong picture. i.e. &REXFQUE was updated by &fqptr
    instead of &subptr. This is in .YGET4GSTE routine of EASYT007
    macro.

    Problem Conclusion:
    Problem was solved by replacing &FQPTR by &SUBPTR in
    &REXFQUE(&REXCTR).

Local fix

  • N/A

Problem summary

  • ****************************************************************
    * USERS AFFECTED: All IBM Migration Utility v320 users. *
    ****************************************************************
    * PROBLEM DESCRIPTION: COBOL compiler is failing for *
    * non-integer index. *
    ****************************************************************
    * RECOMMENDATION: *
    ****************************************************************
    IMU generates decimal places for a
    field used as index when the field is
    used on SEQUENCE and CONTROL and
    report exits as well as an index for
    report fields.

    REPORT exits fqptr was eroneously
    used for subscript field queue
    pointer, causing subscript generation
    with the wrong picture. i.e. &REXFQUE
    was updated by &fqptr instead of
    &subptr. This is in .YGET4GSTE
    routine of EASYT007 macro.

Problem conclusion

  • ****************************************************************
    * FIX DESCRIPTION: *
    * *
    * Problem was solved by replacing &FQPTR by &SUBPTR in *
    * &REXFQUE(&REXCTR). *
    * *
    ****************************************************************
    * PRODUCT ELEMENTS AFFECTED BY THIS FIX: *
    ****************************************************************
    * NEW ELEMENTS ADDED: *
    * None. *
    * *
    ****************************************************************
    * EXISTING ELEMENTS MODIFIED: *
    * FSYET007 *
    * *
    ****************************************************************
    * EXISTING ELEMENTS DELETED: *
    * None. *
    * *
    ****************************************************************

Temporary fix

Comments

APAR Information

  • APAR number

    PM05693

  • Reported component name

    MIGRATION UTILI

  • Reported component ID

    5697N4400

  • Reported release

    320

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2010-01-21

  • Closed date

    2010-03-04

  • Last modified date

    2010-06-03

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

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

Modules/Macros
FSYET007     

Fix information

  • Fixed component name

    MIGRATION UTILI

  • Fixed component ID

    5697N4400

Applicable component levels

  • R320 PSY UK56786

       UP10/05/12 P F005

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":"SSY4B9","label":"IBM Migration Utility for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"320","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
27 October 2020

Page Feedback