A fix is available
APAR status
Closed as program error.
Error description
After translating and compiling a COBOL program with the COBOL3 CICS translator parameter, an abendasra may occur in the DLZNUCA1 module. Register 2 will hold a value retrieved from lowcore. It turns out that the COBOL3 translator option left out an INITIALIZATION CALL. The COBOL2 translator statement will insert this call at the start of the Procedure Division of the application. The COBOL3 translator option also needs to include this call for CICS COBOL programs that perform DL/I requests.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All * **************************************************************** * PROBLEM DESCRIPTION: When translating and compiling a COBOL * * DL/I program with the COBOL3 translator * * option, an abendASRA may occur in * * DLZNUCA1 when the COBOL program is run. * **************************************************************** * RECOMMENDATION: * **************************************************************** Specifying the COBOL3 option to the CICS translator instructs it to, among other things, omit the generation of a DL/I INITIALIZATION call at the beginning of the COBOL program being translated. DL/I on VSE requires this call in order to allocate basic DL/I control blocks. Keywords: DLI COBOL2 ANSI85
Problem conclusion
The CICS translator has been changed to always generate an INITIALIZATION call for COBOL DL/I programs.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PM20990
Reported component name
CICSTS FOR VSE
Reported component ID
564805400
Reported release
B0P
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-08-22
Closed date
2010-11-26
Last modified date
2011-07-19
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK62699
Modules/Macros
DFHECM10 DFHEXMG1 DFHEXMTD
Fix information
Fixed component name
CICSTS FOR VSE
Fixed component ID
564805400
Applicable component levels
RB0P PSY UK62699
UP10/12/03 P E431
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.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"1.1.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
19 July 2011