PH06047: CBL CICS POSSIBLE ASRA/0C7 AT OPT(2); OK OPT(0)

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• COBOL with CICS gets ASRA/0C7 occurs at OPT(2).  The compiler
  is removing most of the redundant code for the MOVEs (including
  the part that sets up the pattern), but not the ED. Having an
  incorrect pattern causes the ED to fail.
  

Local fix

• compile at OPT(0)
  remove redundant move statements
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.1 compiling     *
  *                 programs at OPT(1|2) that contain multiple   *
  *                 MOVEs in close succession to the same        *
  *                 NUMERIC-EDITED receiver without the          *
  *                 receiver being read from in between.         *
  ****************************************************************
  * PROBLEM DESCRIPTION: The program may abend with an S0C7      *
  *                      exception.                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  When moving to a NUMERIC-EDITED receiver, the compiler moves
  pattern information to a compiler-generated temporary data item,
  then uses the ED hardware instruction to format the sender
  according to the pattern, overwriting the temporary, and then
  moves the temporary to the final receiver. At OPT(1|2), if
  another literal or sender is moved to the receiver shortly after
  the first one, the first MOVE is deemed to be redundant. The
  compiler was removing the code that moved the correct pattern
  into the temporary data item, without removing the code to
  generate the ED instruction. The ED was executing with an
  incorrect pattern, which caused data beyond the end of the
  sender to be examined. If any extra data is not numeric, the ED
  would fail at runtime.
  

Problem conclusion

• The compiler was fixed to not remove the MOVE of the pattern to
  the temporary data item.
  

Temporary fix

Comments

APAR Information

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

  PH04555

• 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 UI60241

     UP18/12/18 P F812

• R611 PSY UI60242

     UP18/12/19 P F812

• R612 PSY UI60243

     UP18/12/19 P F812

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.