Resources



Problem Fix Number: 4698

For SYSTEM 2000 Version: 11.63

Problem Status: ZC (Zap Coded) -- Fix has received limited testing

Description of Problem:

TRANSACTION ABENDS IN CICS 3.3 -ABEND CODE AEIV-


Download Fix:

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 R11.63  BUG 4698  OS                                                     
 ./ CHANGE NAME=SCFDRVR                                                          
 * *24* 14APR93 GOH B4698 USE PROPER LENGTH ON COMMAREA FOR 3.3    *24** 00030499
 *24* SET LENGTH PROPERLY FOR COMMAREA                                   00496010
    EXEC CICS XCTL PROGRAM('S2KEDTRT') COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00497000
 *24* SET LENGTH PROPERLY FOR COMMAREA                                   00948990
      EXEC CICS LINK PROGRAM(SCFCPGM) COMMAREA(SCFCOMM) LENGTH(COMMLEN)  00949000
 ./ CHANGE NAME=SCFINTF                                                          
 * *10* 14APR93 GOH B4698 SET LENGTH OF COMMAREA PROPERLY FOR 3.3        00020970
 *10* SET COMMAREA LENGTH PROPERLY                                       00251990
      EXEC CICS LINK PROGRAM(CSCFUEX4) COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00252000
 *10* SET LENGTH OF COMMAREA PROPERLY                                    00396990
     EXEC CICS LINK PROGRAM('S2KADRC') COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00397000
 *10* SET LENGTH OF COMMAREA PROPERLY                                    00408990
      EXEC CICS LINK PROGRAM(CSCFPGBD) COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00409000
 *10* SET LENGTH OF COMMAREA PROPERLY                                    00453990
      EXEC CICS LINK PROGRAM(CSCFPGBD) COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00454000
 *10* SET LENGTH OF COMMAREA PROPERLY                                    00460990
     EXEC CICS LINK PROGRAM('SCFTERM') COMMAREA(SCFCOMM) LENGTH(COMMLEN) 00461000
 COMMLEN  DC    AL2(SCFCLEN)                                      *10*   00585000
 ./ 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