For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
TRANSACTION ABENDS IN CICS 3.3 -ABEND CODE AEIV-
Note: Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.
Top of Zap Deck:
* IBM R12.0 BUG 4698 MVS
./ CHANGE NAME=SCFDRVR
* *24* 14APR93 GOH B4698 USE PROPER LENGTH ON COMMAREA FOR 3.3 *24** 00030990
*24* SET LENGTH PROPERLY FOR COMMAREA 00478040
EXEC CICS XCTL PROGRAM('S2KEDTRT') COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00479000
*24* SET LENGTH PROPERLY FOR COMMAREA 00928990
EXEC CICS LINK PROGRAM(SCFCPGM) COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00929000
./ CHANGE NAME=SCFINTF
* *10* 14APR93 GOH B4698 SET LENGTH OF COMMAREA PROPERLY FOR 3.3 00020970
*10* SET COMMAREA LENGTH PROPERLY 00250990
EXEC CICS LINK PROGRAM(CSCFUEX4) COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00251000
*10* SET LENGTH OF COMMAREA PROPERLY 00395990
EXEC CICS LINK PROGRAM('S2KADRC') COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00396000
*10* SET LENGTH OF COMMAREA PROPERLY 00406990
EXEC CICS LINK PROGRAM(CSCFPGBD) COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00407000
*10* SET LENGTH OF COMMAREA PROPERLY 00450990
EXEC CICS LINK PROGRAM(CSCFPGBD) COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00451000
*10* SET LENGTH OF COMMAREA PROPERLY 00457990
EXEC CICS LINK PROGRAM('SCFTERM') COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00458000
COMMLEN DC AL2(SCFCLEN) *10* 00581000
./ CHANGE NAME=SCFTERM
* *09* 14APR93 GOH B4698 SET LENGTH OF COMMAREA PROPERLY FOR 3.3 * 00026990
*09* SET COMMAREA LENGTH PROPERLY 00213990
EXEC CICS LINK PROGRAM('S2KADRC') COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00214000
*09* SET COMMAREA LENGTH PROPERLY 00340990
EXEC CICS LINK PROGRAM('PLXTERM') COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00341000
*09* SET COMMAREA LENGTH PROPERLY 00422990
EXEC CICS LINK PROGRAM(CPLXTERM) COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00423000
End of Zap Deck