A fix is available
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
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