IBM Support

PH29665: IGZXAPI FUNCTION CODE 11 (DLEI QUERY) RETURNS INCORRECT RESULT WHEN CALLBACK ROUTINE IS USED.

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • IGZXAPI Function Code 11 (DLEI query) returns incorrect result
    when callback routine is used.
    

Local fix

  • NA
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
    *                 releases using COBOL Library routine         *
    *                 IGZXAPI function code 11 to retrieve         *
    *                 information of Dynamic Length Elementary     *
    *                 Data Items.                                  *
    ****************************************************************
    * PROBLEM DESCRIPTION: 0C4 abend in IGZXAPI routine when the   *
    *                      callback function of function code 11   *
    *                      is used.                                *
    ****************************************************************
    * RECOMMENDATION: Apply the provided PTF.                      *
    ****************************************************************
    When the callback function in function code 11 is used, IGZXAPI
    makes a logic error when allocating the work area for
    subsequent processing, leading to an 0C4 abend.
    
    COB0603T/K
    

Problem conclusion

  • The error is fixed by using a modified parameter structure for
    function code 11. The information below is also provided in the
    technical note https://www.ibm.com/support/pages/node/6334817.
    
    This applies when the COBOL program to be queried is AMODE 31
    and the field XCB11X in the XINFO11 parameter structure is non-
    zero. XCB11X is used when the callback feature is used in the
    query.
    
    A new input field, XWKAREA, has been added to the XINFO11
    parameter structure at offset 4. (This field at offset 4 is a
    reserved field before this change.) The size of this field is 4
    bytes. On input this is the address of a 512 bytes work area
    provided by the caller of IGZXAPI, to be used by IGZXAPI. (For
    AMODE 64, set this field to zero.) Set the length field,
    XLEN11, to 140. Set all reserved fields in the XINFO11
    parameter structure to binary zero.
    
    If the caller of IGZXAPI is an LE conforming program, set R12
    to the CAA of the caller. (This is already the case if the
    caller is C/C++, PL/I or COBOL.)
    
    For existing program calling IGZXAPI function code 11, if
    XCB11X is zero, no change is needed. The existing XINFO11
    layout is continued to be supported. But if the new layout is
    used (i.e. XLEN11 is 140), a work area must be provided in
    XWKAREA regardless of whether the callback feature (XCB11X) is
    used.
    
    Refer to LE Vendor Interface, Chapter 17, the section on
    IGZXAPI for information about IGZXAPI routine.
    
    Refer to technical note
    https://www.ibm.com/support/pages/node/6334817 for the layout
    of XINFO11 parameter structure.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PH29665

  • Reported component name

    LE ENT COBOL LI

  • Reported component ID

    568819812

  • Reported release

    7C0

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2020-09-18

  • Closed date

    2020-10-07

  • Last modified date

    2020-11-02

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

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

Modules/Macros

  • IGZCEV4  IGZLLIBV IGZXAPI  IGZXCDA  IGZXD24  IGZXDMR  IGZXLPIO
    IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG
    IGZXPK2
    

Fix information

  • Fixed component name

    LE ENT COBOL LI

  • Fixed component ID

    568819812

Applicable component levels

  • R7B0 PSY UI71970

       UP20/10/10 P F010

  • R7C0 PSY UI71971

       UP20/10/10 P F010

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.

[{"Line of Business":{"code":"LOB17","label":"Mainframe TPS"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7C0"}]

Document Information

Modified date:
03 November 2020