PH64736: WHEN EXIT(INEXIT(PROGRAMNAME)) IS USED TO RETRIEVE SOURCE CODE TO COMPILE, ERRORS IGYSC1082-E, IGYOS5125-U, IGYOS5006-U OCCUR

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When the EXIT(INEXIT(programname)) compiler option is used to
  retrieve source code from an external location to be compiled,
  and the source is compiled with the TEST compiler option, errors
  IGYSC1082-E, IGYOS5125-U, IGYOS5006-U occur.
  In this case, the source is not read in from the SYSIN dd or any
  alternate ddname.  Instead, the compiler option
  EXIT(INEXIT(programname)) is used to execute a program named
  "programname" at compile time.  This program will retrieve some
  source code from another location/platform and feed it back to
  the compiler to be compiled.
  
  When the TEST compiler option is used, the compiler ABENDs with
  the following errors:
  
  1PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.4.0 P231130
  CBLNAM01 Date 11/15/2024     <== Wrong program name.
  
  ==000001==> IGYSC1082-E A period was required.  A period was
  assumed before "END OF PROGRAM".
  
  
  IGYOS5125-U   The compilation was terminated due to a compiler
  error in phase id:  "IGYCOSCN".
  IGYOS5006-U   Device end-of-file was reached while reading from
  compiler work file, "SYSUT5  ".
  

Local fix

• There are 2 workarounds:
  1) Compile with NOTEST.
  2) Add the //SYSIN DD DUMMY line into the compile JCL.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of the Enterprise COBOL V6.4 compiler  *
  *                 who are compiling source programs from JCL   *
  *                 with the EXIT(INEXIT(programname)) and TEST  *
  *                 compile options specified, where the         *
  *                 //SYSIN DD statement is not included. The    *
  *                 input source program is being provided       *
  *                 solely                                       *
  *                 through the INEXIT(programname) option.      *
  ****************************************************************
  * PROBLEM DESCRIPTION: The compile ABENDs with error messages  *
  *                      similar to the following, since it is   *
  *                      not able to access the input source     *
  *                      program:                                *
  *                                                              *
  *                      1PP 5655-EC6 IBM Enterprise             *
  *                      COBOL for z/OS 6.4.0 P231130 CBLNAM01   *
  *                      Date 11/15/2024 <== Wrong program name. *
  *                      Should be MATTST. ==000001==>           *
  *                      IGYSC1082-E A period was required. A    *
  *                      period was assumed before "END OF       *
  *                      PROGRAM".                               *
  *                                                              *
  *                      IGYOS5125-U The compilation was         *
  *                      terminated due to a compiler error in   *
  *                      phase id: "IGYCOSCN". IGYOS5006-U       *
  *                      Device end-of-file was reached while    *
  *                      reading from compiler work file,        *
  *                      "SYSUT5 ".                              *
  ****************************************************************
  * RECOMMENDATION: Apply the IBM supplied PTF and resubmit your *
  *                 compile JCL.                                 *
  ****************************************************************
  When the compiler was invoked from JCL, it assumed that the
  input source file was provided either from a data set or data
  set and member, or from a ZFS file stored in z/OS UNIX,
  specified on the //SYSIN DD statement. It did not consider
  the case where EXIT(INEXIT(pgmname)) compiler option was
  specified and the input source was provided to the compiler by
  the INEXIT(pgmname).
  

Problem conclusion

• The compiler has been updated for the case where
  EXIT(INEXIT(pgmname)) was supplied in the compiler options and
  no //SYSIN DD statement was included in the compile JCL. This
  allows the compiler to properly access the input source file as
  it is provided to the compiler by the INEXIT(pgmname).
  

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:

  PH64911

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

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R640 PSY UO02221

     UP25/03/01 P F502

• R641 PSY UO02222

     UP25/02/28 P F502

• R642 PSY UO02223

     UP25/02/28 P F502

• R64H PSY UO02224

     UP25/02/28 P F502

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.