PI19712: IF LITERAL-6 IS NATIONAL & IDENTIFIER-1 IS NOT NATIONAL IN AN XML GENERATE STATEMENT, A COMPILER ERROR SHOULD OCCUR

Obtain the fix for this APAR.

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 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.