PK75270: ABEND 806 OCCURS WITH REASON CODE = 00000004 DUE TO MISSING MODULE EDIZCNRT

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Environment: z/OS 1.7 WDI 3.3
  *
  When using a translator api program in WDI 3.3 it abends with
  an s806 with Reason Code = 00000004 which means that the module
  is not found.  The module it is looking for is EDIZCNRT.  This
  module doesnot exist in the 3.3 sedilmd1 or sedilmd2 library.
  *
  Steps to Recreate:
  1. Run job v1mikeg.v3r3m0.util(apisxlt)
  2. Review joblog and you will see abend.
  *
  Files on RTPGSA:
  WDI330.S806A.txtfirst part of joblog
  WDI330.S806B.txt2nd part of joblog
  WDI330.S806C.txt3rd part of joblog
  *
  Files on RALVSK:
  v1mikeg.v3r3m0.util(apisxlt)jcl for testcase
  *
  Keywords: Abend AB S806 806 reason code=00000004 edizcnrt wdi
  3.3 missing module not found
  

Local fix

Problem summary

• The WDI 3.3 COBOL FXXZCBL API interface does not work.
  Error message "Module EDIZCNRT not found." This problem
  only occurs in z/OS batch.
  

Problem conclusion

• EDIZCNRT is the old 'C' non-runtime initialization program.
  This module is not part of WDI 3.3, which runs in an LE runtime
  environment.
  The logic that controls whether EDIZCNRT is loaded is in
  FXXZCE1.INCLUDE and FXXZCE3.INCLUDE, which are part of PLAS
  module FXXZCSD. Currently the PLAS compiler is not available
  to us.
  The code change on this PTR bascially involves converting
  the FXXZCBL call to an FXXZC call. The process is:
  01. COBOL program (the customer's API program) calls ===>
  02. Assembler program (FXXZCBL)          which calls ===>
  03. 'C' program (FXXZCBLH)               which calls ===>
  04. The Service Director via fxxzc().
  This is the same approach that is used in CICS. In CICS,
  FXXZCBL is really FXXZCBLC.ASSEMBLE. FXXZCBLC does an EXEC
  CICS LINK to EDIZAPI.ASSEMBLE. EDIZAPI does an EXEC CICS LINK
  to FXXZSDI.CPP. FXXZSDI calls the Service Director via fxxzc().
  Using LE Assembler macros (in FXXZCBL) to fetch 'C' program
  FXXZCBLH and then branch to it, was fairly straightforward.
  Information on LE macros can be found in the "LE Programming
  Guide." The tricky part involved passing the FXXZCBL parameters
  into FXXZCBLH. I accomplished this in FXXZCBLH by retrieving
  the current save area address, and moving back through the
  save area chain.
  

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:

  UK45087

Modules/Macros

• ASSEMBLE FXXZCBL  FXXZSAP
  C        FXXZCBLH
  LINK370  FXXZCBLH
  LNKMVS   FXXZCBLH FXXZSAP
  

Fix information

• Fixed component name

  WEBS DI ZOS

• Fixed component ID

  5655I4003

Applicable component levels

• R330 PSY UK45087

     UP09/05/20 P F905

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.