PH34560: PROGRAM EXCEPTION WHEN CALLING COBOL NESTED PROGRAM FROM COBOL PROGRAM THAT USES AN ALTERNATE ENTRY

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A COBOL program that is using an Alternate Entry point
  attempts to call a nested program  But an exception occurs, as
  the address for the nested program has not been properly set.
  The exception can vary (could be s0c1, s0c4, or other s0cx),
  depending on what is in storage.
  

Local fix

• Don't call a nested program from a program that uses an
  alternate entry point.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.2 compiling and  *
  *                 running a program that calls another         *
  *                 program through an alternate entry point     *
  *                 and where the code in that alternate entry   *
  *                 calls a nested program by identifier.        *
  ****************************************************************
  * PROBLEM DESCRIPTION: Runtime abend (0C1, 0C4, or 0C6)        *
  *                                                              *
  *                      For example:                            *
  *                      CEE3201S The system detected an         *
  *                      operation exception (System Completion  *
  *                      Code=0C1).                              *
  *                                                              *
  *                      From compile unit COBSUB1 at entry      *
  *                      point ALTENTR at compile unit offset    *
  *                      +004D3D08 at entry offset +004D3AF4 at  *
  *                      address 26DE0670.                       *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  A list of information needed by COBOL runtime routine IGZXSCC1
  was only being initialized at runtime when called through the
  main entry point of a program, but that list is also needed in
  alternate entry points when calling nested programs.
  

Problem conclusion

• The compiler was updated to ensure that the list of information
  needed by COBOL runtime routine IGZXSCC1 is initialized upon
  entry to an alternate entry that calls a nested program.
  

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:

  PH39253

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 IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOPT  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  IGYZQDRV IGYZQENU IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UI75921

     UP21/06/24 P F106

• R621 PSY UI75922

     UP21/06/24 P F106

• R622 PSY UI75923

     UP21/06/24 P F106

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.