PK59344: COBOL COMPILE OF SEYUCOB RESULTS IN NAME 'FEEDBACK' DEFINED AS LEVEL 01 AND LEVEL 88. THIS CAUSES ERROR MESSAGE IGYPS0037-S

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• There are two definitions for the name 'FEEDBACK' in member
  SEYUCOB.  The name 'FEEDBACK' is defined as level 01 and
  'FEEDBACK' is defined as level 88. This results in message
  IGYPS0037-S "FEEDBACK " was not has uniquelydefined name in the
  COBOL compilation.
   Additional Symptom(s) Search Keyword(s):
  KIXREVRBD
  msgiyp0037S IGYPS0037 duplicate duplicate-name non-unique
  EXEC CPSM FEEDBACK INTO(FEEDBACK)
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICSPlex SM V3R2M0 Users.                *
  ****************************************************************
  * PROBLEM DESCRIPTION: - When you compile a CICSPlex SM API    *
  *                        program, that is written in COBOL and *
  *                        uses the IBM supplied FEEDBACK        *
  *                        copybook you receive message:         *
  *                                                              *
  *                        IGYPS0037-S "FEEDBACK" was not a      *
  *                                    uniquely defined name.    *
  *                                                              *
  *                        The statement flagged with this       *
  *                        message will be one that references   *
  *                        the FEEDBACK data item.               *
  *                                                              *
  *                      - When you compile the CICSPlex SM API  *
  *                        sample program EYULAPI4 you receive   *
  *                        the IGYPS0037 message above along     *
  *                        with:                                 *
  *                                                              *
  *                        IGYPS2121-S "RECOVERY OF TSMDEF" was  *
  *                                    not defined as a data-    *
  *                                    name.                     *
  *                        IGYPS2015-I The paragraph or section  *
  *                                    prior to paragraph or     *
  *                                    section "EGETFB" did not  *
  *                                    contain any statements.   *
  ****************************************************************
  * RECOMMENDATION: After applying the PTF that resolves this    *
  *                 APAR, make sure that the JCL used for        *
  *                 compiling COBOL CICSPlex SM API programs     *
  *                 uses the updated SEYUCOB dataset.            *
  ****************************************************************
  - The COMMAND attribute in the FEEDBACK resource table includes
    an attribute value called 'FEEDBACK'. As this attribute
    name is the same name as the resource table, it causes a
    duplicate definition which cannot be uniquely identified.
  - Sample CICSPlex SM API program EYULAPI4 incorrectly references
    the TSMDEF RECOVERY attribute and has an empty paragraph.
  

Problem conclusion

• - The value 'FEEDBACK' has been added to the CICSPlex SM
    reserved attribute table. This causes the FEEDBACK attribute
    value to be named FEEDBACK-A according to the documented
    CICSPlex SM rules for COBOL attribute naming.
  - Sample program EYULAPI4 has been updated to correct the
    reference to the RECOVERY item, and the empty paragraph has
    been removed.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

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

  UK33291

Modules/Macros

•    EYULAPI4 EYUL2601 EYUTAB2L FEEDBACK
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R50M PSY UK33291

     UP08/01/30 P F801

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.