For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
DOUBLE USE OF PF KEYS FROM SCF THROUGH S2KE DOES NOT FUNCTION LIKE IT DID IN R11.6.
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 4635 MVS
./ CHANGE NAME=OUTBLD
* *02* 21OCT92 GOH B4635 FIXES FOR PF KEY INPUT FROM SCF 00000999
CLC CURLINE,=H'1' ARE WE POSITIONED AT TOF ? *02* 00023010
BNE OBLD0002 NO. CONTINUE *02* 00023020
CLI MODMODE,MODON MODIFY MODE ? *02* 00023030
BNE TOFPOS NO. SET TOP OF FILE *02* 00023040
OBLD0002 EQU * *02* 00023050
./ CHANGE NAME=SETMODE
* *03* 21OCT92 GOH B4635 FIXES FOR PF KEY INPUT FROM SCF * 00010999
MVC TOTLINES,VSTOTLIN SET TOTAL LINES FOR OUTPUT *03* 00051010
./ CHANGE NAME=S2KEDTRT
* *07* 21OCT92 GOH B4635 FIXES FOR PF KEY INPUT FROM SCF 00000998
BNE EDIT0030 NO. CHECK INPUT *07* 00034000
CLI EIBAID,ENTER ENTER AID ? *07* 00034010
BE CMDMOVE YES. ASSUME INPUT *07* 00034020
CLC SCFCTRN,CSEND SEND VERB ? *07* 00034030
BE EDIT0030 YES. DON'T RESET EDITTRID *07* 00034040
MVC EDITTRID(4),SCFCTRN USE TRANS ID SET BY SCF *07* 00034050
MVC EDITTRN,SCFCTRN FOR LOCKING *07* 00034060
B EDIT0035 CONTINUE *07* 00034070
EDIT0030 EQU * *07* 00034080
EDIT0035 EQU * *07* 00037010
CLC 0(4,R9),CSCF FROM S2KU ? *07* 00123010
BNE EDTRT10 NO. BYPASS SETUP *07* 00123020
* *07* 00123030
* SET UP A CONTROL RECORD IF FROM SCF AND NOT SEND COMMAND *07* 00123040
* *07* 00123050
MVI EDITFLG1,X'20' SET FOR NEW CONTROL *07* 00123060
EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000) 00123070
L R10,EDITCTRL ADDRESS CONTROL RECORD *07* 00123080
MVC USERID(4),EIBTRMID USE SAVED USER ID *07* 00123090
MVC MEMNAME(4),EIBTRMID AGAIN *07* 00123110
MVC CURLINE,=H'1' PRESET CURRENT LINE # *07* 00123120
* THIS WILL ALLOW MODIFY TO WORK USING PF KEYS FROM S2KU *07* 00123130
B GOTCTRL CONTINUE *07* 00123140
SPACE 00123150
EDTRT10 EQU * *07* 00123160
MVC PREVTRAN,EIBTRNID ALWAYS RETURN TO SCF IF END*07* 00137000
BNE GOROUT5A NO. CONTINUE *07* 00178000
CLC CURLINE,=H'0' CURRENT LINE ZERO ? *07* 00178010
BNE GOROUTE6 NO. CONTINUE *07* 00178020
MVC CURLINE,=H'1' YES. SET IT TO ONE FOR MODIFY *07* 00178030
B GOROUTE6 DO IT *07* 00178040
GOROUT5A EQU * *07* 00178050
./ CHANGE NAME=S2KINS
* *04* 21OCT92 GOH B4635 FIXES FOR PF KEY INPUT FROM SCR 00005980
MVC TOTLINES,VSTOTLIN SET TOTAL LINES *04* 00039010
MVC TOTLINES,VSTOTLIN SET OUTBLD PARMS *04* 00098010
./ CHANGE NAME=S2KMDFY
* *03* 21OCT92 GOH B4635 FIXES FOR PF KEY INPUT FROM SCF * 00005990
MVC TOTLINES,VSTOTLIN SET TOTAL LINES *03* 00039010
MVC TOTLINES,VSTOTLIN SET OUTBLD PARMS *03* 00060010
./ CHANGE NAME=S2KPTR
* *03* 27OCT92 GOH B4635 FIX DISPLAYS FOR UP/DOWN PF KEYS FROM S2KU * 00011990
MVC TOTLINES,VSTOTLIN SET TOTAL LINES FOR OUTPUT *03* 00094010
./ CHANGE NAME=S2KSEND
* *04* 27OCT92 GOH B4635 DO NOT REWRITE CONTROL RECORD AT END *04* 00005098
* REMOVE WRITE OF CTRL RECORD *04* 00094000
* WRITE REMOVED *04* 00095000
End of Zap Deck