A fix is available
APAR status
Closed as program error.
Error description
Given this code: 01 bert. 02 z1 pic xx value 'zz'. 01 numChars pic 999 comp. 01 fred pic x(999). xml generate fred from bert count in numChars name of z1 is n'e1' end-xml And the compiler option CODEPAGE(1140), And the information from the Language Reference at: http://www-01.ibm.com/support/knowledgecenter/SS6SG3_5.1.0/com.i bm.cobol511.ent.doc/PGandLR/ref/rlpsxmlg.html?lang=en NAME phrase - Allows you to supply element and attribute names. - If literal-6 is a national literal (it is n'e1'), identifier-1 (it is fred) must reference a data item of category national or the encoding phrase must specify 1208. A compiler error should be generated because "fred" is not defined as national. A compiler error should occur when literal-6 is a national literal and identifier-1 is not a data item of category national in an XML GENERATE statement. However, the program will compile without error.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5.1 using XML * * GENERATE NAME clause with name literal * * being a NATIONAL literal and identifier-1 * * is not a NATIONAL data item or the * * ENCODING is not 1208. * * * **************************************************************** * PROBLEM DESCRIPTION: When compiling an XML GENERATE with * * the NAME clause that specifies a * * NATIONAL literal, the compiler is not * * issuing an error message when XML * * GENERATE identifier-1 is not a NATIONAL * * data item or the ENCODING is not 1208. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** Although it is illegal according to the Language Reference Manual to have a non-NATIONAL identifier combined with a NATIONAL literal in the NAME clause (or ENCODING not set to 1208), the compiler was not diagnosing this case with an error message.
Problem conclusion
The compiler was modified to issue message IGYPA3300-E indicating that XML GENERATE identifier-1 is not a national data item or the encoding is not 1208 but XML GENERATE NAME literal is a NATIONAL literal.
Temporary fix
Comments
APAR Information
APAR number
PI19712
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
510
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2014-06-10
Closed date
2014-07-21
Last modified date
2014-08-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI19850 UI19851
Modules/Macros
IGYCLVL3 IGYEEN$3 IGYEJA$3 IGYEUE$3 IGYNCNTL IGYNXML
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R510 PSY UI19849
UP14/07/25 P F407
R511 PSY UI19850
UP14/07/25 P F407
R512 PSY UI19851
UP14/07/25 P F407
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":"5.1","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
04 August 2014