PH31972: DISALLOW AN EXEC CICS STATEMENT IN THE MIDDLE OF A MULTI-RECEIVER MOVE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Disallow an EXEC CICS statement in the middle of a
  multi-receiver MOVE
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.3 who           *
  *                 accidentally code an EXEC CICS statement     *
  *                 between receivers of a MOVE statement.       *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output will result, the MOVE  *
  *                      receivers that follow the EXEC CICS     *
  *                      statement will not be set BEFORE the    *
  *                      EXEC CICS statement, and will have the  *
  *                      value of EIBRESP moved into them!       *
  *                      This is the example error code:         *
  *                       MOVE SPACES TO PICX20                  *
  *                       EXEC CICS                              *
  *                       READQ TS QNAME(WK-MTR-QNAME)           *
  *                       INTO (YCINFDHD-CA)                     *
  *                       ITEM (WK-ITEM)                         *
  *                       RESP (WK-RESP)                         *
  *                       END-EXEC                               *
  *                       PICX10 *> part of MOVE                 *
  *                                                              *
  *                                                              *
  *                      The user expected SPACES to be moved    *
  *                      into PICX10 before the CICS statement,  *
  *                      but they got EIBRESP moved into PICX10  *
  *                      after the CICS statement. The           *
  *                      oompiler should put out an error        *
  *                      message in this case.                   *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The COBOL that gets generated for the EXEC CICS statement ended
  in a MOVE eibresp to WK-RESP so that the customer's subsequent
  MOVE receivers got eibresp moved into them! There was no error
  diagnostic for the misplaced MOVE receiver.
  

Problem conclusion

• The compiler was changed to generate a CONTINUE statement after
  the end of the generated COBOL statements for the EXEC CICS
  statement. The 'dangling MOVE receivers' will now get error
  messages as expected by the customer.
  

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:

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 IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2
  IGYCLVL3 IGYCLVL8 IGYCMALL 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
  IGYMSGXT IGYQCBE  IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R630 PSY UI73593

     UP21/01/28 P F101

• R631 PSY UI73594

     UP21/01/28 P F101

• R632 PSY UI73595

     UP21/01/28 P F101

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.