At our site we are planning on installing the fix for APAR PH09682.

The APAR states:
We have programs that were compiled using COBOL V6.2 with ZONEDATA(NOPFD) before this fix was applied.
I want to know if we are at risk but I don't know what to look for.
Can someone give me an example of a statement that produces these "different results"?

------------------------------
René Beurskens
------------------------------

Hi René,

The APAR states that the problem occurs when moving non-numeric data from an alphanumeric sender to a numeric-edited receiver. Here's an example:

01 ALNUM-SENDER PIC X(5).
01 NUM-EDIT-RECEIVER PIC -9(4).

MOVE '    -1' TO ALNUM-SENDER.
MOVE ALNUM-SENDER TO NUM-EDIT-RECEIVER.

DISPLAY "SENDER=" ALNUM-SENDER.
DISPLAY "RECEIVER=" NUM-EDIT-RECEIVER.



Before the fix to V6.2, this would display:
SENDER=   -1
RECEIVER=   -1

After the fix, this would display:
SENDER=   -1
RECEIVER= 0001
​

------------------------------
Mike Chase
------------------------------

Original Message:
Sent: Wed February 12, 2020 08:23 AM
From: René Beurskens
Subject: COBOL - PH09682: ZONEDATA(NOPFD) DIFFERING RESULTS ON A MOVE WITH INVALID DATA - example?

At our site we are planning on installing the fix for APAR PH09682.

The APAR states:

<main role="main" aria-label="">

• the compiler doesn't guarantee the same behaviour as olderversions for invalid data, the new instructions produceddifferent results when non-numeric data was used

</main>

We have programs that were compiled using COBOL V6.2 with ZONEDATA(NOPFD) before this fix was applied.
I want to know if we are at risk but I don't know what to look for.
Can someone give me an example of a statement that produces these "different results"?

------------------------------
René Beurskens
------------------------------