PH00613: COBOL v5.2 to v6.2 fail to produce diagnostic IGYPG3173-W for compares whose results are known at compile time

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• COBOL v4.2 produced the diagnostic
  
      IGYPG3173-W The result of the comparison of operands
          {operand-1} and {operand-2}  is known at compile time,
          based on the attributes of the  operands. Unconditional
          code was generated.
  
  when it was known that {operand-1} and {operand-2} could not
  possibly be (not) equal, a situation that indicates a
  programming error.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.2 compiling     *
  *                 programs containing alphanumeric or          *
  *                 national EQUAL or NOT EQUAL comparisons      *
  *                 where one of the operands is an              *
  *                 alphanumeric or national literal, where the  *
  *                 length of the literal is longer than the     *
  *                 other operand and at least one of the        *
  *                 extraneous characters of the                 *
  *                 literal are non-blank (non-padding).         *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output: The Enterprise COBOL  *
  *                      V6.2 compiler would fail to emit a      *
  *                      warning message when the result of the  *
  *                      comparison described above is known at  *
  *                      compile time.                           *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  COBOL V6.2 users would like to be warned by the compiler if the
  result of an EQUAL or NOT EQUAL comparison between an
  expression and an alphanumeric or national literal can be
  determined at compile time, specifically when the literal is
  longer than the other operand and the extraneous characters
  contain non-blanks (no padding) characters.  These warnings are
  emitted by the Enterprise COBOL V4 compiler, but not previously
  by the V6.2 compiler.
  

Problem conclusion

• The compiler is changed to issue a new compile time warning
  message for the situation described above.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  PI98771

• APAR is sysrouted TO one or more of the following:

Modules/Macros

• 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 IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOB2E IGYCOPI
  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  IGYWIVP1 IGYWIVP2 IGYZQDRV
  IGYZQENU IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UI58270

     UP18/09/06 P F809

• R621 PSY UI58271

     UP18/10/02 P F809

• R622 PSY UI57344

     UP18/07/31 P F807

• R62H PSY UI58273

     UP18/09/06 P F809

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.