PI99008: NUMCHECK DOES NOT HONOR NUMCLS=ALT FROM IGYCDOPT WHEN DOING AN IS NUMERIC CLASS TEST

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• NUMCHECK does not honor NUMCLS=ALT from IGYCDOPT when doing an
  IS NUMERIC class test
  
  Simple Example:
  
  IDENTIFICATION DIVISION.
     PROGRAM-ID.  TESTCB6
  ENVIRONMENT DIVISION.
  DATA DIVISION.
  WORKING-STORAGE SECTION.
  01  TEST-VARIABLES.
      03 TRIGFETCH        PIC S9(9) COMP-3 VALUE 0.
      03 TRIEXEC          PIC S9(9) COMP-3.
      03 FMT1             PIC  ZZZBZZZBZZ9.
  PROCEDURE DIVISION.
      ADD +1 TO TRIGFETCH.
      MOVE TRIGFETCH TO TRIEXEC.
      MOVE TRIEXEC TO FMT1.
      GOBACK.
  END PROGRAM TESTCB6.
  
  Messages produced with NUMCLS=ALT in effect
  IGZ0279W The value X'000000000C' of data item TRIGFETCH at the
  time of reference by statement number 1 on line 11
           in program TESTCB6 failed the NUMERIC class test
  generated by the NUMCHECK compiler option.
  IGZ0279W The value X'000000001C' of data item TRIGFETCH at the
  time of reference by statement number 1 on line 12
           in program TESTCB6 failed the NUMERIC class test
  generated by the NUMCHECK compiler option.
  IGZ0279W The value X'000000001C' of data item TRIEXEC at the
  time of reference by statement number 1 on line 13
           in program TESTCB6 failed the NUMERIC class test
  generated by the NUMCHECK compiler option.
  

Local fix

• NUMCLS=PRIM (the default) is in effect in
  IGYCDOPT, the IGZ0279W messages do not appear at runtime.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.1 compiling     *
  *                 programs with NUMCHECK(PAC or ZON) and the   *
  *                 NUMCLS=ALT installation option.              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Valid data is reported as invalid by    *
  *                      NUMCHECK.                               *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  Valid signs under NUMCLS=ALT would be flagged as invalid data.
  

Problem conclusion

• Compiler was updated to properly handle the signs with
  NUMCLS=ALT.
  

Temporary fix

Comments

APAR Information

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

  PI97685

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

Modules/Macros

• IGY8RWTU IGYCCBE  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

• R610 PSY UI56627

     UP18/06/21 P F806

• R611 PSY UI56628

     UP18/06/22 P F806

• R612 PSY UI56629

     UP18/06/22 P F806

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.