PH13381: PROGRAM ABENDS WITH S0C7 ON COMPARE INSTRUCTION

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When comparing two unsigned USAGE DISPLAY data items, both
  ZONEDATA(NOPFD) and ZONEDATA(MIG) will convert the senders to
  packed decimal to eliminate invalid zone bits. After doing so,
  the comparison would sometimes be done as a numeric comparison,
  which would abend when digits or sign code were invalid, rather
  than doing a bitwise compare as V4 did, which would not abend.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.2 compiling     *
  *                 programs with ZONEDATA(NOPFD|MIG) that       *
  *                 compare two unsigned USAGE DISPLAY data      *
  *                 items where one or both have invalid digits  *
  *                 or an invalid sign code.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: Program abends with 0C7 code.           *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  When comparing two unsigned USAGE DISPLAY data items, both
  ZONEDATA(NOPFD) and ZONEDATA(MIG) will convert the senders to
  packed decimal to eliminate invalid zone bits. After doing so,
  the comparison would sometimes be done as a numeric comparison,
  which would abend when digits or sign code were invalid, rather
  than doing a bitwise compare as V4 did, which would not abend.
  

Problem conclusion

• The compiler was fixed to ensure a comparison of two unsigned
  USAGE DISPLAY data items was done using a bitwise compare after
  converting to packed, when ZONEDATA(NOPFD) or ZONEDATA(MIG)
  were specified.
  

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:

  PH16562

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 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  IGYZQDRV IGYZQENU IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UI64199

     UP19/07/19 P F907

• R621 PSY UI64200

     UP19/07/19 P F907

• R622 PSY UI64201

     UP19/07/19 P F907

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.