PI96135: ENHANCE NUMCHECK(PAC) TO CHECK FOR LEFT-MOST NIBBLE NOT ZERO IN EVEN LENGTH PACKED DECIMAL FIELD

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• Enhance the NUMCHECK(PAC) compiler option to check for the
  left-most nibble not being a zero in an even length packed
  decimal field, which indicates that the data does not fit into
  its picture clause.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.2 compiling     *
  *                 programs with even length PACKED-DECIMAL     *
  *                 data items containing non zero values in     *
  *                 the leftmost four bits and using compiler    *
  *                 option NUMCHECK(PAC).                        *
  ****************************************************************
  * PROBLEM DESCRIPTION: An even length PACKED-DECIMAL data      *
  *                      item that has non zero values in the    *
  *                      leftmost four bits is not reported as   *
  *                      an invalid value.                       *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  An even length PACKED-DECIMAL data item must contain 0s in the
  leftmost four bits to be considered a valid PACKED-DECIMAL data
  item.
  

Problem conclusion

• NUMCHECK(PAC) check was updated to check the leftmost four bits
  for zeros.
  

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:

  PI97835 PI98996

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCDOPT 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 IGYCOB2
  IGYCOPI  IGYCOPT  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 UI56120

     UP18/06/01 P F805

• R621 PSY UI56121

     UP18/06/01 P F805

• R622 PSY UI56122

     UP18/06/01 P F805

• R62H PSY UI56123

     UP18/06/01 P F805

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.