PK68014: CICS TRANSLATOR DOES NOT PROPER HANDLE A COBOL COPY STATEMENT.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• CICS translator doesn not proper handle a COBOL COPY statement,
  when the statement follows immediately the Prodecure Division
  Using clause and the COPY is coded on column 8, 9, 10 or 11. The
  word COPY is corrupted in a way, depending on which column the
  word COPY is coded. When it starts on column 11 it is truncated
  to OPY. Starting on column 10 the result is PY. When the output
  is passed to the compiler, the compiler issues message
  IGYPS2121-S saying that'OPY' or 'PY' was not defined as
  a data-name.
  

Local fix

• Write a Cobol COPY statement on column 12 and the following.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: CICS translator causes subsequent       *
  *                      cards on a PROCEDURE DIVISION header    *
  *                      to be truncated if they begin in        *
  *                      columns 8 to 11.                        *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  A COBOL program that contains no CICS statements is being
  translated using the CICS translator DFHECP1$ without the
  'CICS' parameter specified, or defaulted to. In the customer's
  example, a PROCEDURE DIVISION header of a program is spread over
  more than one card, with the second card starting in column 10.
  When translated output is built, the translator truncates the
  first two characters of the subsequent card. As a result,
  when the translated file is compiled, message ' IGYPS2121-S
  "XXX" was not defined as a data-name.' is issued.
  This is because the translator is not recognising the
  subsequent card and is treating it as though it should
  start in column 12 instead of column 8 onwards.
  The same error will occur if the subsequent card is started in
  columns 8, 9, or 11.
  
  Additional Keywords : PDENDREC PDPRCESS
  

Problem conclusion

• DFHEIM10 and DFHEIM14 have been changed to recognise
  continuation cards on PROCEDURE DIVISION headers and
  process them correctly.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

  PK62587

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

  UK39657 UK39658

Modules/Macros

•    DFHECM10 DFHECM14 DFHEDM10 DFHEDM14 DFHEIM10
  DFHEIM14 DFHEPM10 DFHEPM14 DFHIDM14
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R400 PSY UK39657

     UP08/09/13 P F809

• R500 PSY UK39658

     UP08/09/13 P F809

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.