For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
THE REQUIREMENTS FOR CICS 3.2 AND ABOVE ARE DIFFERENT THAN PREVIOUS RELEASES. THE ERROR PROGRAMS HAVE TO BE COMMAND LEVEL AND THE ERROR CONDITIONS MUS
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 4739 MVS
./ ADD NAME=S2KTRM32
./ NUMBER NEW1=1000,INCR=1000
*********************************************************************
*** VTAM DEPENDENT CODE TO HANDLE TERMINAL ERRORS. ***
*** INSERT INTO DFHZNEPX COPY CODE AS INDICATED BY COMMENTS. **
*** THIS ROUTINE HAS BEEN PRE-TRANSLATED AND SHOULD BE **
*** INSERTED AFTER THE LABEL NEP0AF IN DFHZNEPX **
*** **
*** WHEN LINK EDITING THE DFHZNEP MODULE AFTER THIS CHANGE **
*** THE ENTRY POINT TO THE RESULTING LOAD MODULE MUST BE **
*** SET TO DFHZNENA. **
*** **
*********************************************************************
* *00* 19NOV93 GOH B4739 NEW ZNEP CODE FOR CICS 3.2 AND ABOVE
TM TWAOPT2,TWAOGMM GOOD MORNING MESSAGE ?
BO RETURN YES. JUST RETURN
TM TWAOPT2,TWAOASM LOGON ?
BO RETURN YES. JUST RETURN
*
* START SCFZ TO CALL SCFTERM. STORE THE TERMINAL ID TO BE
* RETRIEVED BY SCFTERM AS IT EXECUTES.
*
* EXEC CICS START TRANSID('SCFZ') FROM(TWANID) LENGTH(4)
DFHECALL =X'1008B8000800005000',(___4,=PL4'0'),,(CHA4,=CL4'SCF*
Z'),(______RF,TWANID),(FB_2,=Y(4))
RETURN DS 0H
./ CHANGE NAME=SCFTERM
* *12* 08DEC93 GOH B4739 ALLOW FOR CALL FROM DFHZNEP AND REMOVE *12* 00026950
* REFERENCES TO S2KCZAPS, FREE PCI BLOCKS *12* 00026960
TERMHWD DS H *12* 00037010
CLC EIBTRNID,CSCFZ FROM DFHZNEP (3.3) ? *12* 00049010
BE TERM001A YES. DO A SCFCOMM *12* 00049020
TERM001A EQU * *12* 00054010
*12* REMOVE REFERENCES TO S2KCZAPS 00059000
*12* 00060000
CLC EIBTRNID,CSCFZ FROM ZNEP ? *12* 00062010
BE TERM8000 YES. PROCESS TERM ERROR *12* 00062020
* *12* 00263010
* DETERMINE IF USER HAS PCI BLOCK AND FREE IT TOO *12* 00263020
* *12* 00263030
L R14,SCFCUSE ADDRESS USER MODULE *12* 00263040
L R14,S2KPCIA-DS2KCUSE(R14) ADDR PCI BLOCKS *12* 00263050
USING DS2KPCI,R14 *12* 00263060
TERM0275 EQU * *12* 00263070
CLI PCITRMNL,X'FF' END OF BLOCKS ? *12* 00263080
BE TERM0295 YES. WRAP IT UP *12* 00263090
CLC PCITRMNL,SCFCUID OUR PCI BLOCK ? *12* 00263100
BE TERM0280 YES. PROCESS IT *12* 00263110
LA R14,PCILEN$(R14) NEXT BLOCK *12* 00263120
B TERM0275 CONTINUE PROCESS *12* 00263130
TERM0280 EQU * *12* 00263140
NI PCIFLG2,X'F0' CLEAR SIGNON FLAG *12* 00263150
XC PCITRMNL,PCITRMNL CLEAR TERMINAL ID *12* 00263160
TERM0295 EQU * *12* 00263170
DROP R14 *12* 00263180
CLC EIBTRNID,CSCFZ FROM ZNEP ? *12* 00355010
BNE TERM8001 NO. CHECK FCI *12* 00355020
MVI TERMFCI,X'00' SET AS NOT TERM ORIENT *12* 00355030
EXEC CICS RETRIEVE SET(R2) LENGTH(TERMHWD) 00355040
MVC SCFCUID(4),0(R2) SET SAVE TERM ID *12* 00355050
B TERM8020 CONTINUE *12* 00355060
TERM8001 EQU * *12* 00355070
B TERM9990 FINISH UP *12* 00455000
CSCFZ DC CL4'SCFZ' *12* 00482010
DS2KPCI *12* 00504010
./ CHANGE NAME=PLXINIT
* *20* 08DEC93 GOH B4739 ALLOW FOR DFHZNEP ACTIVITY *20* 00029096
CLC EIBTRNID,CSCFZ TERMINAL ERROR ? *20* 00074010
BNE TERM005A NO. CONTINUE *20* 00074020
MVI PLXFCI,X'00' YES. SET NOT TERM ORIENT *20* 00074030
B TERM005B CONTINUE *20* 00074040
TERM005A EQU * *20* 00074050
TERM005B EQU * *20* 00080010
*20* REMOVE ALL 00245000
*20* REFERENCES TO 00246000
*20* S2KCZAPS 00247000
*20* 00248000
CSCFZ DC CL4'SCFZ' *20* 00280010
./ CHANGE NAME=PLXTERM
* *19* 08DEC93 GOH B4739 ALLOW FOR DFHZNEP ACTIVITY *19* 00018960
CLC EIBTRNID,CSCFZ TERMINAL ERROR ? *19* 00048010
BNE TERM001A NO. CONTINUE *19* 00048020
MVI TERMFCI,X'00' YES. SET NOT TERM ORIEN *19* 00048030
B TERM002A CONTINUE *19* 00048040
TERM001A EQU * *19* 00048050
TERM002A EQU * *19* 00057020
CLC EIBTRNID,CSCFZ TERMINAL ERROR ? *19* 00071010
BNE TERM0005 NO. CONTINUE *19* 00071020
L R1,DFHEICAP ADDRESS SCF COMMON AREA *19* 00071030
MVC PLXUID,SCFCUID-SCFCOMM(R1) MOVE IN USERID *19* 00071040
B TERM0010 CONTINUE PROCESSING *19* 00071050
TERM0005 EQU * *19* 00071060
CSCFZ DC CL4'SCFZ' *19* 00339020
SCFCOMM *19* 00362010
End of Zap Deck