PH24340: SUPPORT FOR NEW NUMCHECK(ZON) SUBOPTIONS LAXREDEF AND STRICTREDEF

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• Support is added for new options
  NUMCHECK(ZON(LAXREDEF|STRICTREDEF)).  When
  NUMCHECK(ZON(LAXREDEF)) is in effect, the check for valid data
  in zoned decimal data items will take into account certain
  properties of numeric data items redefined by zoned items,
  including sign properties and the presence of leading spaces.
  When NUMCHECK(ZON(STRICTREDEF)) is in effect, the properties of
  redefined items will not be taken into account and the standard
  numeric class test for zoned decimal data will be performed.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.2 compiling      *
  *                 and running programs compiled with the       *
  *                 NUMCHECK(ZON) option in effect, where the    *
  *                 program contains:                            *
  *                                                              *
  *                 1. an unsigned zoned decimal data item       *
  *                 that redefines a signed trailing             *
  *                 overpunch zoned decimal data item such       *
  *                 that the last byte of the two items          *
  *                 overlap in memory; or                        *
  *                                                              *
  *                 2. a zoned decimal data item that            *
  *                 redefines the leading portion of a           *
  *                 numeric-edited data item and the             *
  *                 leading portion consists entirely of         *
  *                 a number of leading spaces followed          *
  *                 by a number of zoned decimal digits.         *
  ****************************************************************
  * PROBLEM DESCRIPTION: New function:                           *
  *                                                              *
  *                      A new option                            *
  *                      NUMCHECK(                               *
  *                        ZON(...,LAXREDEF|STRICTREDEF,...))    *
  *                      is provided.                            *
  *                                                              *
  *                      When NUMCHECK(ZON(LAXREDEF)) is in      *
  *                      effect, the NUMCHECK processing:        *
  *                                                              *
  *                      1. tolerates a valid sign nibble for    *
  *                      the high nibble of the last byte of     *
  *                      an unsigned zoned decimal data item     *
  *                      whose last byte overlaps the last       *
  *                      byte of a signed trailing overpunch     *
  *                      zoned decimal data item; and            *
  *                                                              *
  *                      2. tolerates leading spaces in a        *
  *                      zoned decimal data item when it         *
  *                      redefine the leading portion of a       *
  *                      numeric-edited data item and the        *
  *                      redefined portion consists entirely     *
  *                      of a number of leading spaces           *
  *                      followed by a number of zoned           *
  *                      decimal digits.                         *
  *                                                              *
  *                      Option                                  *
  *                      NUMCHECK(ZON(...,STRICTREDEF,...))      *
  *                      is the default and when it is in        *
  *                      effect, zoned decimal data items that   *
  *                      redefine other data items in various    *
  *                      ways are still strictly checked using   *
  *                      the NUMERIC class test.                 *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  Some users have a common pattern in their code where an
  unsigned zoned decimal data item overlaps a signed zoned
  decimal item due to a redefine, or a zoned decimal item
  overlaps the leading portion of a numeric-edited item and
  the leading portion consists entirely of a number of
  leading spaces followed by a number of zoned decimal
  digits.  For users who face one or both of these scenarios
  and are confident that they do not pose a problem within the
  context of their data processing, the extra warnings generated
  may prove to be unhelpful and distracting and so a way to
  avoid such errors/warnings is desirable.
  

Problem conclusion

Temporary fix

Comments

• The compiler was updated to provide support for new options
  NUMCHECK(ZON(...,LAXREDEF|STRICTREDEF,...)) to provided users
  with extra flexibility in controlling NUMCHECK errors/warnings
  for redefined items.
  
  For a description of changes related to the addition of these
  new options, please refer to the following sections in the
  Enterprise COBOL for z/OS 6.x Knowledge Center online:
  
  1) Programming Guide -> Compiling and debugging your program
       -> Compiler Options -> NUMCHECK.
  
  2) Customization Guide -> Enterprise COBOL compiler options
       -> NUMCHECK
  

APAR Information

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

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

  PH27536

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

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UI70081

     UP20/06/23 P F006

• R621 PSY UI70082

     UP20/06/23 P F006

• R622 PSY UI70083

     UP20/06/23 P F006

• R62H PSY UI70084

     UP20/06/23 P F006

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.