For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
SOME DISCREPANCIES IN HOW THE FUNCTIONS (MODIFY AND INSERT) WORK WHEN GOING FROM MULTIPLE LINE TO SINGLE LINE MEMBER AND USING PF KEYS IN S2KU SESSION
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 4664 MVS
./ CHANGE NAME=S2KPTR
* *04* 07JAN93 GOH B4664 RUN OUTBLD PRIOR TO REWRITING CTRL 00011980
*04* CHANGE ORDER OF LINKS SO THAT OUTBLD GETS CALLED FIRST 00094990
EXEC CICS LINK PROGRAM('OUTBLD') COMMAREA(EDITCOM) LENGTH(3000) 00095000
SPACE 2 00096000
MVI EDITFLG1,X'40' PUT CONTROL *04* 00097000
EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000) 00098000
./ CHANGE NAME=SETMODE
* *04* 07JAN93 GOH B4664 CALL OUTBLD PRIOR TO CALLING IOCTRL * 00010980
*04* LINK MOVED AFTER LINK TO OUTBLD 00041000
*04* 00042000
MVC TOTLINES,VSTOTLIN RESET TOTAL LINES *04* 00051010
*04* MAKE CHANGES IN ORDER OF LINKS 00051990
MVI EDITFLG1,X'40' WRITE CONTROL RECORD 00052010
EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000) 00052020
*04* END OF UPDATE 00052030
./ CHANGE NAME=IOCTRL
* *04* 06JAN93 GOH B4664 SET USERID BEFORE WRITING NEW CTRL *04* 00011999
MVC USERID(4),TWAUSER SET USERID *04* 00054010
MVC MEMNAME(4),TWAUSER SET DEFAULT MEMBER *04* 00054020
./ CHANGE NAME=OUTBLD
* *04* 07JAN93 GOH B4664 NEVER ALLOW CURLINE GT TOTLINES 00000997
CLC CURLINE,TOTLINES WITHIN REASON ? *04* 00023002
BNH OBLD0002 YES. CONTINUE *04* 00023004
MVC CURLINE,=H'1' NO. SET TO FIRST LINE *04* 00023006
./ CHANGE NAME=S2KEDTRT
* *08* 08JAN92 GOH B4664 ALWAYS SET TRAN ID 00000997
BE EDIT0025 YES. CHECK SEND *08* 00034020
EDIT0025 EQU * *08* 00034071
CLC SCFCTRN,CSEND SEND TRAN ? *08* 00034072
BNE CMDMOVE NO. ASSUME INPUT *08* 00034073
MVC EDITTRID(4),EIBTRNID SET FOR RET TO S2KU *08* 00034074
MVC EDITTRN,EIBTRNID *08* 00034075
B CMDMOVE CONTINUE *08* 00034076
./ CHANGE NAME=S2KINS
* *07* 11JAN93 GOH B4664 TURN OFF INSERT MODE ON ERROR CONDITION 00005950
LR R8,R15 SAVE RETURN CODE *07* 00111010
MVI INSMODE,INSOFF TURN OFF INSERT ON ERROR *07* 00111020
MVI EDITFLG1,X'40' PUT CONTROL *07* 00111030
EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000) 00111040
LR R15,R8 RESTORE RETURN CODE *07* 00111050
./ CHANGE NAME=S2KLIST
* *10* 12JAN93 GOH B4664 ALLOW FOR TPLX TRANSACTION PROCESSING *10* 00024995
CLC EIBTRNID,CTPLX TPLX REQUEST ? *10* 00086070
BE LIST0110 YES. BYPASS SPEC INPUT *10* 00086080
End of Zap Deck