A fix is available
APAR status
Closed as program error.
Error description
Change the COBOL procs IGYWCL and IGYWCLG to modify the bind step (LKED) to reverse the order of library concatenation from: //SYSLIB DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR // DD DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR to: //SYSLIB DD DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR // DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR For binds of programs that use unmapped names and require CSECT resolution from *.SCEELKEX, having * SCEELKED concatenated ahead of *.SCEELKEX in the SYSLIB concatenation in the bind step may result in binder warning messages such as: IEW2480W A711 EXTERNAL SYMBOL @@GMTM@R OF TYPE LD WAS ALREADY DEFINED AS A SYMBOL OF TYPE LD IN SECTION @@GMTM@R. IEW2482W A712 THE ORIGINAL DEFINITION WAS IN A MODULE IDENTIFIED BY DDNAME SYSLIB. THE DUPLICATE DEFINITION IS IN SECTION gmtime_r IN A MODULE IDENTIFIED BY DDNAME SYSLIB. The Binder documentation documents the following: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com. ibm.zos.v2r1.ceea500/dsdesc.htm says: SCEELKED - Contains the link-edit stubs for non-XPLINK C/C++, PL/I, COBOL and Fortran languages and Language Environment-provided routines. SCEELKEX - Contains non-XPLINK C/C++ stubs that are not in uppercase, truncated or mapped to another symbol. In link-edit steps this library must precede SCEELKED if unmapped names are used.
Local fix
Manually change the LE *.SCEELK* dataset order in the bind step SYSLIB as needed.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.2 compiling and * * binding programs using JCL procs based on * * the IBM-provided procs IGYWCL or IGYCLG, * * when the COBOL program calls a C program * * with a long name. * **************************************************************** * PROBLEM DESCRIPTION: The BINDER issues warning messages: * * * * IEW2480W A711 EXTERNAL SYMBOL @@GMTM@R * * OF TYPE LD WAS ALREADY DEFINED AS A * * SYMBOL OF TYPE LD IN SECTION @@GMTM@R. * * * * IEW2482W A712 THE ORIGINAL DEFINITION * * WAS IN A MODULE IDENTIFIED BY DDNAME * * SYSLIB. THE DUPLICATE DEFINITION IS * * IN SECTION gmtime_r IN A MODULE * * IDENTIFIED BY DDNAME SYSLIB. * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** The order of the SCEELKED and SCEELKEX datasets in the SYSLIB concatenation in the binder step is backwards and affects users who have a COBOL program calling a C program with a long name.
Problem conclusion
The order of the SCEELKED and SCEELKEX datasets in the SYSLIB concatenation in the binder step was reversed in procs IGYWCL and IGYWCLG.
Temporary fix
Comments
APAR Information
APAR number
PI93438
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
620
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2018-02-06
Closed date
2018-03-15
Last modified date
2018-04-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGY8RWTU IGYCASMB IGYCCBE IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4 IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8 IGYCJA$D IGYCJA$R IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOPI IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF IGYDRV IGYEQCWI IGYMSGE IGYMSGK IGYMSGT IGYQCBE IGYWCL IGYWCLG IGYZQDRV IGYZQENU IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R620 PSY UI54510
UP18/03/28 P F803
R621 PSY UI54511
UP18/03/28 P F803
R622 PSY UI54512
UP18/03/28 P F803
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":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"620","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
12 December 2023