PH06061: 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 V5.2 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 IGYCBE   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 IGYECWI  IGYMSGE  IGYMSGK  IGYMSGT
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R520 PSY UI60238

     UP18/12/18 P F812

• R521 PSY UI60239

     UP18/12/19 P F812

• R522 PSY UI60240

     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.