PH65963: THE COMPILER INCORRECTLY FLAGS THE SIGN PARAMETER IN A PICTURE CLAUSE WITH AN IGYDS1089-S SEVERE ERROR MESSAGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• During the development time frame of the LSACHECK compiler
  option, it was discovered that the value of the index for the
  SIGN reserved word in the sample reserved word tables did not
  agree with the correct value in the compiler ADATA, as
  documented in the Enterprise COBOL Programming Guide.
  The compiler incorrectly flags the SIGN parameter in a picture
  clause with an IGYDS1089-S severe error message.
  

Local fix

• If the use of an alternate reserved word table for the compiler
  is required, update the entry for SIGN in the alternate reserved
  word table source and change the index from 02180001B20 to
  03180001B20, then build the alternate reserved word table.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All users of the Enterprise COBOL V6.3       *
  *                 compiler who try to run a compile using an   *
  *                 alternate reserved word table, based on the  *
  *                 provided samples IGY8CICS or IGY8RWRD.       *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output: the compiler          *
  *                      incorrectly flags the SIGN parameter    *
  *                      in a picture clause with an             *
  *                      IGYDS1089-S severe error message .      *
  ****************************************************************
  * RECOMMENDATION: Apply the IBM provided PTF and then          *
  *                 add your custom reserved word table changes  *
  *                 on top of the newly provided                 *
  *                 IGY8RWRD or IGY8CICS sample word table , as  *
  *                 appropriate.  Then rebuild your              *
  *                 custom reserved word table and recompile     *
  *                 any related COBOL source                     *
  *                 programs.                                    *
  ****************************************************************
   During the development time frame of the LSACHECK
  compiler option, it was discovered that the value of the index
  for the SIGN reserved word in the sample reserved word tables
  did not agree with the correct value in the compiler ADATA, as
  documented in the Enterprise COBOL Programming Guide.
  

Problem conclusion

• The index for the SIGN reserved word in the  sample
  alternate, reserved word tables IGY8CICS and
  IGY8RWRD, has been updated to the correct value of "03180001B20"
  to match the default reserved word table used internally by the
  compiler, well as the value documented in "Appendix G: COBOL
  SYSADATA file contents", "Table 135. SYSADATA token
  record (continued)" of the Enterprise COBOL Programming Guide.
  

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:

  PH66209

Modules/Macros

• IGY8CICS IGY8RWRD 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 IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL 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  IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R630 PSY UO03203

     UP25/05/17 I 1000

• R631 PSY UO03204

     UP25/05/17 I 1000

• R632 PSY UO03205

     UP25/05/17 I 1000

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.