PI56873: 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.1 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:

  PI54095

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

Modules/Macros

•    IGYPCNTL
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R510 PSY UI35332

     UP16/02/19 P F602

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.