For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
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 V11.63 BUG 4664 OS
./ 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 00096090
EXEC CICS LINK PROGRAM('OUTBLD') COMMAREA(EDITCOM) LENGTH(3000) 00097000
SPACE 2 00098000
MVI EDITFLG1,X'40' PUT CONTROL *04* 00099000
EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000) 00100000
./ CHANGE NAME=SETMODE
* *04* 07JAN93 GOH B4664 CALL OUTBLD PRIOR TO CALLING IOCTRL * 00010980
*04* LINK MOVED AFTER LINK TO OUTBLD 00042000
*04* 00043000
*04* MVC INSTRUCTION MOVED INTENTIONALLY *04* 00051000
MVC TOTLINES,VSTOTLIN RESET TOTAL LINES *04* 00053010
*04* MAKE CHANGES IN ORDER OF LINKS 00053990
MVI EDITFLG1,X'40' WRITE CONTROL RECORD 00054010
EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000) 00054020
*04* END OF UPDATE 00054030
./ 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* 00024002
BNH OBLD0002 YES. CONTINUE *04* 00024004
MVC CURLINE,=H'1' NO. SET TO FIRST LINE *04* 00024006
./ CHANGE NAME=S2KEDTRT
* *08* 08JAN92 GOH B4664 ALWAYS SET TRAN ID 00000999
BE EDIT0025 YES. CHECK SEND *08* 00038000
EDIT0025 EQU * *08* 00043010
CLC SCFCTRN,CSEND SEND TRAN ? *08* 00043020
BNE CMDMOVE NO. ASSUME INPUT *08* 00043030
MVC EDITTRID(4),EIBTRNID SET FOR RET TO S2KU *08* 00043040
MVC EDITTRN,EIBTRNID *08* 00043050
B CMDMOVE CONTINUE *08* 00043060
./ CHANGE NAME=S2KINS
* *07* 11JAN93 GOH B4664 TURN OFF INSERT MODE ON ERROR CONDITION 00005950
LR R8,R15 SAVE RETURN CODE *07* 00116010
MVI INSMODE,INSOFF TURN OFF INSERT ON ERROR *07* 00116020
MVI EDITFLG1,X'40' PUT CONTROL *07* 00116030
EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000) 00116040
LR R15,R8 RESTORE RETURN CODE *07* 00116050
./ CHANGE NAME=S2KLIST
* *10* 12JAN93 GOH B4664 ALLOW FOR TPLX TRANSACTION PROCESSING *10* 00024995
CLC EIBTRNID,CTPLX TPLX REQUEST ? *10* 00103010
BE LIST0110 YES. BYPASS SPEC INPUT *10* 00103020
End of Zap Deck