PM93583: COBOL 5.1.1 - UPDATE TO ADD AMODE 24 SUPPORT TO ENTERPRISE COBOL VERSION 5.1

Obtain the fix for this APAR.

APAR status

• Closed as unreproducible in next release.

Error description

• IGYDG5125-U   The compilation was terminated due to a compiler
  error in phase id:  "IGYCDGEN".
  
  Compiler failure in IGYCDGEN - compiler error code "WSYM-01"
  occurred.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All users of Enterprise COBOL for z/OS V5.1, *
  *                 especially those who:                        *
  *                 1) Want to run COBOL V5 programs w/AMODE 24  *
  *                 2) Have REDEFINES and get compiler abort     *
  *                 IGYDG5201-U   INTERNAL COMPILER ERROR        *
  *                 CODE "WSYM-01" OCCURRED.                     *
  *                 3) Use the MSGEXIT compiler option with      *
  *                 FLAGSTD(H) and get poor compiler performance *
  *                 4) Use sample job IGYWSMPE                   *
  *                 5) Use compiler option MAP and CICS          *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: This APAR addresses multiple items:     *
  *                      1) COBOL V5 programs were not allowed   *
  *                      to run with AMODE 24                    *
  *                      2) Users who have a data item that      *
  *                      REDEFINES a data item that is either a  *
  *                      level 66 RENAMES or that is a level 88  *
  *                      condition-name can get this compiler    *
  *                      ABORT: IGYDG5201-U   INTERNAL COMPILER  *
  *                      ERROR CODE "WSYM-01" OCCURRED.          *
  *                      3) Slow compilation with FLAGSTD(H)     *
  *                      and EXIT(MSGEXIT(xxx)) compiler options *
  *                      (This part is a SYSROUTE of Version 4.2 *
  *                      APAR PI08343)                           *
  *                      4) Users of sample job IGYWSMPE can get *
  *                      job failure with not enough storage     *
  *                      5) Missing MAP information for CICS     *
  *                      generated linkage structures            *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  1) Enterprise COBOL V5 was not originally designed to handle
  AMODE 24 execution
  2) The compiler was not diagnosing illegal data definitions
  and the result was a compiler ABORT
  3) The compiler was calling the MSGEXIT routine too many times
  in the case of FLAGSTD(H)
  4) Sample job IGYWSMPE was not allocating enough space for
  processing service items for Enterprise COBOL Version 5
  5) The compiler was not generating MAP information for CICS
  generated linkage structures when compiling with CICS option
  

Problem conclusion

Temporary fix

Comments

• 1) Change compiler and runtime to support AMODE 24 execution
  except in the following cases, which must run with AMODE 31:
  -Programs containing XML PARSE statements
  -Programs containing XML GENERATE statements
  -Application modules containing COBOL bound together with C,
     C++, or PL/I, communicating via static CALL.
  -Programs containing object-oriented language syntax, such as
     INVOKE statements, or object-oriented class definitions
  -Programs compiled with any of the following compiler options:
            DLL
            PGMNAME(LONGUPPER)
            PGMNAME(LONGMIXED)
  -Multithreaded applications
    Note: A program compiled with the THREAD option can run in
      AMODE 24, but only in an application that does not have
      multiple threads or PL/I tasks.
  -Programs run from the z/OS UNIX file system
    Note: An AMODE 31 driver program resident in the z/OS UNIX
     file system can contain a dynamic call to an AMODE 24
     program module resident in an MVS PDS or PDSE.
  -Programs used as COBOL compiler exit modules that are specified
     on the EXIT compiler option
  -Language Environment enclaves that use XPLINK, including either
     enclaves that contain non-COBOL programs compiled with the
     XPLINK compiler option, or run with the XPLINK runtime option
  2) The compiler was changed to diagnose the case of a data item
  with a REDEFINES object that is a defined with RENAMES (a level
  66 data item) or that is a condition-name (a level 88 data item)
  can get this compiler ABORT:  IGYDS1066-S  "REDEFINES" object
  "xxx" was not the immediately  preceding level-1 data item.
  The "REDEFINES" clause was discarded.
  3) The compiler was changed to only call the MSGEXIT routine
  for messages that would be issued in the case of FLAGSTD(H)
  4) Sample job IGYWSMPE was modified to have larger size
  value for temporary work data sets
  5) Generate MAP information for CICS generated linkage
  structures
  

APAR Information

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

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

  UI16133 UI16134 UI16135

Modules/Macros

• IGYADXIT IGYCDOPT IGYCLVL0 IGYCOPI  IGYCOPT  IGYCRWT  IGYDMETA
  IGYDPR03 IGYDPR04 IGYDPR06 IGYEEN$R IGYEEN$0 IGYEEN$4 IGYEJA$D
  IGYEJA$R IGYEJA$0 IGYEJA$1 IGYEJA$2 IGYEJA$3 IGYEJA$4 IGYFCNTL
  IGYFFCB  IGYFFIB  IGYFFIB1 IGYICNTL IGYKCNFL IGYKCNTL IGYKSTAT
  IGYLADAT IGYLBASI IGYLCNTL IGYLCOPY IGYLLIBH IGYLLIBO IGYLSRVE
  IGYPCTLS IGYPFALF IGYPLINK IGYPSRVE IGYPTEXT IGYQMETA IGYQPR03
  IGYQPR07 IGYQPR14 IGYSCNTL IGYSITEM IGYSSQL  IGYTALIA IGYTCNTL
  IGYTIMS  IGYTIMS1 IGYTIMS2 IGYTPUTE IGYTSQL  IGYTSQL1 IGYTSQL2
  IGYVCNTL IGYVSRVE IGYWDBG1 IGYWDBUG IGYWINIT IGYWSMPE IGYWSYM
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R510 PSY UI16133

     UP14/03/20 P F403

• R511 PSY UI16134

     UP14/03/20 P F403

• R512 PSY UI16135

     UP14/03/20 P F403

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.