A fix is available
APAR status
Closed as program error.
Error description
The Enterprise COBOL for z/OS V4.2 Language Reference (SC23-8528-01) says "The underscore cannot appear as the first character" of a user-defined word. This is on page 10 under "User-defined words with DBCS characters" in the "Contained characters" paragraphs. The DBCS dataname in question would begin with a shift-out (X'0E') character followed by X'426D' for the DBCS underscore. The COBOL 4.2 compiler does not flag the use of a DBCS underscore as 1st character with any error message. * NOTE: This message is produced for an EBCDIC user-defined word that begins with an underscore: IGYDS0197-E "_" was a name that started with an underscore. The name was processed as written.
Local fix
Modify DBCS datanames so that none begin with the underscore.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V4.2 who use * * DBCS user words. * * * **************************************************************** * PROBLEM DESCRIPTION: User-defined DBCS words that begin with * * a DBCS underscore (_) are not allowed * * but the Enterprise COBOL compiler does * * not diagnose the error. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The Enterprise COBOL compiler does not diagnose user-defined DBCS words that begin with the underscore character.
Problem conclusion
The Enterprise COBOL compiler is changed to correctly diagnose, as an error, User-defined DBCS words that begin with a DBCS underscore (_) character.
Temporary fix
Comments
APAR Information
APAR number
PM90417
Reported component name
ENT COBOL FOR Z
Reported component ID
5655S7100
Reported release
420
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2013-06-04
Closed date
2013-07-11
Last modified date
2013-08-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK95751
Modules/Macros
IGYSITEM
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655S7100
Applicable component levels
R420 PSY UK95751
UP13/07/13 P F307
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":"4.2","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]
Document Information
Modified date:
02 August 2013