A fix is available
APAR status
Closed as program error.
Error description
With PGMNAME(COMPAT), if the program name's first character IS NOT alphabetic, an extension character @, #, or $, or an underscore, an initial character of 1-9 should be translated to A-I, with anything else translated to J. This works as intended for the CALL {literal} format, but not for CALL {identifier}, where extension characters are incorrectly translated to J.
Local fix
If possible use CALL {literal} format
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL V5.1 or V5.2 users * * compiling and running programs that have * * CALL by identifier where the target MODULE * * name contains extension characters @, #, and * * $. * * * **************************************************************** * PROBLEM DESCRIPTION: During CALL by identifier processing, * * an erroneous transformation is done for * * the extension characters @, #, and $ * * for the MODULE name. For example, in * * the code below: * * 77 module pic x(8) value "#DATA" * * ... * * call module. * * * * the CALL statement results in an * * attempt to call JDATA instead of #DATA. * * * **************************************************************** * RECOMMENDATION: Apply provided service. * **************************************************************** The runtime routine that handles CALL by identifier incorrectly transformed the extension characters. FIXCAT keyword: COB0501T/K COB0502T/K
Problem conclusion
The runtime routine that performed the incorrect transformation of the MODULE name extension characters for CALL by identifier processing was fixed.
Temporary fix
Comments
APAR Information
APAR number
PI42528
Reported component name
LE COBOL LIB
Reported component ID
568819802
Reported release
780
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2015-06-08
Closed date
2015-07-24
Last modified date
2015-08-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI29731 UI29732
Modules/Macros
IGZCEV4 IGZLLIBV IGZXAPI IGZXDMR IGZXD24 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":"780"}]
Document Information
Modified date:
22 January 2021