PH04555: 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 Vx.x 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:

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

  PH06047 PH06061

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT 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 IGYCOB2E IGYCOPI
  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

• R620 PSY UI59885

     UP18/11/29 P F811

• R621 PSY UI59886

     UP18/11/29 P F811

• R622 PSY UI59887

     UP18/11/29 P F811

• R62H PSY UI59888

     UP18/11/29 P F811

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.