PI75345: ABENDU4088 REASON CODE X'63' IN MODULE CEEPLPKA WHEN USER EXIT IS WRITTEN IN COBOL V5

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• ABENDU4088 Reason Code X'63' in module CEEPLPKA when user exit
  is written in COBOL V5.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All users of IMS High Performance Unload for *
  *                 z/OS Version 1 Release 2 (FMID=H1IN120)      *
  ****************************************************************
  * PROBLEM DESCRIPTION: When the IGZERRE interface is used in   *
  *                      an user runtime environment exit        *
  *                      routine and an user exit for the        *
  *                      FABHURG1 unload utility is compiled     *
  *                      with IBM Enterprise COBOL V5, Language  *
  *                      Environment issues ABENDU4088           *
  *                      REASON=63.                              *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  When the IGZERRE interface is used in an user runtime
  environment exit routine and an user exit is compiled with IBM
  Enterprise COBOL V5, Language Environment issues ABENDU4088
  REASON=63. That's because IBM Enterprise COBOL V5 does not
  support the IGZERRE interface anymore.
  
  Instead, the FABHURG1 unload utility will invoke CEEPIPI
  provided by Language Environment. For that, this APAR provides
  a new option 'L' on the 17th column of the EXIT control
  statement for the FABHURG1 unload utility.
  
  The following steps are required to resolve this issue:
  1. Apply this maintenance.
  2. Remove the RTEXIT control statement from the HSSROPT data
  set.
  3. Add the option 'L' to the 17th column of the EXIT control
  statement for the FABHURG1 unload utility.
   //SYSIN DD *
   EXIT exitname N L
  4. Rerun the FABHURG1 unload job.
  

Problem conclusion

• Code has been added to support the new functions.
  
  ********
  * NOTE *
  ********
  This APAR binds an interface module of IBM z/OS Language
  Environment to a load module program of IMS HP Unload at
  APPLY process. Before running APPLY process, you must set up a
  DDDEF entry for the LE load module library SCEELKED in you SMP/E
  environment where IMS HP Unload is installed.
  Procedure:
  1. Check the current DDDEF entries in your target zone. If
     SCEELKED DDDEF exist, you do not need an additional DDDEF
     process.
  2. When SCEELKED DDDEF does not exist, add the DDDEF entry by
     SMP/E UCLIN. The UCLIN process is directed in the
     HOLD REASON(DDDEF). Refer the HOLD information and
     process ADD DDDDEF.
  
  
  ========================
  = DOCUMENTATION CHANGE =
  ========================
  The IBM IMS High Performance Unload for z/OS User's Guide
  Version 1 Release 2 Suffix 8 (SC27-0936-08) should be changed
  as follows:
  
  ---------------------------------------------------------------
  > System programming interface
  >> User record-formatting routine
  >>> Special-purpose SYSIN control statements for user exits
  >>>> EXIT control statement
  
  This optional control statement specifies the name of
  the optional user exit routine.
   0........1.........2.........3.........4.........5.........6
   123456789012345678901234567890123456789012345678901234567890
  |EXIT exitname c l
  
   Position, Description
   :
  |17   Code the Run-time Environment option
  | L   The user exit routine is to be run under an environment
  |     of LE (Language Environment) using the CEEPIPI
  |     invocation. This option is effective when the user exit
  |     routine is written in Enterprise COBOL for z/OS.
  |     This option is not effective for Assembler.
  ---------------------------------------------------------------
  > Messages and codes
  >> Messages
  >>> FABH messages
  
  |FABH0287E LOAD FAILED FOR MODULE: xxxxxxxx
  |
  |Explanation: Load failed for the indicated module.
  |System action: Program FABHURG1 ends abnormally.
  |User response: Check the contents of the load module library.
  |Correct the error and rerun the job.
  ---------------------------------------------------------------
  |FABH0289E CEEPIPI ERROR OCCURRED. FUNC=function,
  |          RC=return_code
  |
  |Explanation: HP Unload invoked CEEPIPI of Language Environment
  |(LE), but it returned a non-zero return code.
  |System action: HP Unload ends abnormally.
  |User response: FUNC=INIT shows the CEEPIPI function init_sub
  |or identify_entry. FUNC=CALLSUB shows call_sub. For the
  |return codes, see the topic about preinitialization services
  |in the Language Environment Programming Guide (SA22-7561).
  |Correct the error and rerun the job.
  ---------------------------------------------------------------
  |FABH0296E LE OPTION IS NOT ALLOWED WHEN THE RUN TIME
  |          ENVIRONMENT EXIT ROUTINE IS BEING INVOKED
  |
  |Explanation:  If the RTEXIT control statement is specified
  |for an user run time environment exit routine, the LE option
  |cannot be specified to activate Language Environment.
  |System action: HP Unload ends abnormally.
  |User response: Remove the RTEXIT control statement and rerun
  |the job.
  ================ End of Documentation Change ==================
  

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:

  UI44497

Modules/Macros

•    FABHILE0 FABHLANG FABHLINK FABHURG2 FABHURG3
  FABHURG4 H1IN120J
  

Fix information

• Fixed component name

  IMS HIGHPERF UN

• Fixed component ID

  5655E0600

Applicable component levels

• R120 PSY UI44497

     UP17/02/09 P F702

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.