PI54095: CORRECT ZONECHECK(ABD) TO IDENTIFY DATA-ITEM AS SENDER IN THE "ADD 1 TO DATA-ITEM" STATEMENT NUMERIC CLASS TEST

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• ZONECHECK is not generating a NUMERIC class test in the "ADD 1
  TO data-item" statement (i.e. the data item is a sender and
  also a receiver).  In this case the ZONECHECK(ABD) option does
  not abend when it should.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5.2 compiling     *
  *                 and running programs using the ZONECHECK     *
  *                 compiler option to perform numeric class     *
  *                 test checking on numeric DISPLAY data        *
  *                 items, and who have statements such as ADD   *
  *                 1 to NUM in their source, where NUM is both  *
  *                 a sender and a receiver. If NUM has invalid  *
  *                 data ADD 1 TO NUM should fail the numeric    *
  *                 class test generated by ZONECHECK.           *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output: NUMX is a sender in   *
  *                      ADD 1 To NUMX, but it does not get a    *
  *                      numeric class test generated when       *
  *                      ZONECHECK is used.                      *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  NUMX is a sender in ADD 1 To NUMX, but it was not getting a
  numeric class test generated when ZONECHECK was used.
  
  Example:
  
    01   NUMXX    PIC X VALUE SPACE
    01   NUMX  REDEFINES NUMXX PIC 9
  
   PROCEDURE DIVISION.
  
       ADD 1 TO NUMX            *> Should get a ZONECHECK
                                *> message, but doesn't
  
       COMPUTE NUMX = NUMX + 1  *> Should get a ZONECHECK
                                *> message, and does
  

Problem conclusion

• The compiler is changed to recognize NUMX as a sender in the
  case of statements like ADD 1 TO NUMX, SUBTRACT y from NUMX,
  etc.
  

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:

  PI56873 PI60523

Modules/Macros

•    IGYCCBE
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R520 PSY UI36448

     UP16/03/30 P F603

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.