For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
MODIFY COMMAND ALLOWED ON AN EMPTY MEMBER. CURLINE SHOWS UP AS 1 WHEN MEMBER HAS NO LINES. POTENTIAL FOR ERRONEOUS MODIFY AND INSERT COMMANDS BECAUSE
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 4665 OS
./ CHANGE NAME=OUTBLD
* *05* 13JAN93 GOH B4665 PROTECT THE SCREEN AFTER LINE 2 COL 80 00000996
SEQ3270B DC X'11C25F1D60' *05* 00216000
./ CHANGE NAME=S2KEPROC
* 07 13JAN93 GOH B4665 SET CURLINE TO ZERO ON EMPTY MEMBER 00009980
CLC TOTLINES,=H'0' EMPTY MEMBER ? *07* 00079010
BNE NOPARM1 NO. FINISH SET UP *07* 00079020
MVC CURLINE,=H'0' SET CURLINE TO ZERO FOR *07* 00079030
* EMPTY MEMBER *07* 00079040
B NOPARM2 CONTINUE *07* 00079050
NOPARM1 EQU * *07* 00079990
NOPARM2 EQU * *07* 00080010
./ CHANGE NAME=SETMODE
* *05* 15JAN93 GOH B4665 DO NOT ALLOW MODIFY ON EMPTY MEMBER * 00010970
CLI MODMODE,MODON MODIFY MODE ? *05* 00053020
BNE MODE0020 NO. CONTINUE *05* 00053030
CLC TOTLINES,=H'0' EMPTY MEMBER ? *05* 00053040
BE MODERR YES. CAN'T DO MODIFY *05* 00053050
MODE0020 EQU * *05* 00053060
XC MODMODE,MODMODE CLEAR MOD INDICATOR *05* 00067010
./ CHANGE NAME=SCFDRVR
* *21* 15JAN93 GOH B4665 DO NOT ALLOW SEND VERB FROM EDITOR *21** 00030997
OC DRVREDIT,DRVREDIT COMMAND FROM EDITOR ? *21* 00374010
BZ DRVR27D1 NO. CONTINUE *21* 00374020
MVC SCFCTRN,CS2KU YES. INVALID EDITOR *21* 00374030
B DRVR0274 COMMAND. SET TRAN *21* 00374040
* AND SEND AS SCF INPUT *21* 00374050
DRVR27D1 EQU * *21* 00374060
./ CHANGE NAME=S2KLIST
* *10* 14JAN93 GOH B4665 DO NOT FREE PCI IF NONE AVAILABLE *10* 00024993
* BYPASS SPECIAL INPUT FOR TPLX TRAN *10* 00024994
* USE PCIPLAST FOR LAST PAGE NUMBER *10* 00024995
CLC EIBTRNID,CTPLX FROM TPLX TRANSACTION ? *10* 00103010
BE LIST0110 YES. BYPASS SPECIAL INPUT *10* 00103020
LR R9,R15 SAVE RETURN CODE *10* 00771010
C R9,=F'20' NO PCI RETURN ? *10* 00776010
BE LIST9905 YES. JUST RETURN *10* 00776020
CLC PCIPLAST,HWD1 MORE THAN ONE PAGE ? *10* 00830000
./ CHANGE NAME=SCFPGBD
* *11* 15JAN93 GOH B4665 USE DIFFERENT SBA STUFF FOR LINK OUTPUT *11* 00012965
MVC 0(6,R6),LPF3270 SET ORIGINAL SBA *11* 00268000
MVC 0(8,R6),LPF23270 SET SECOND SBA SEQ *11* 00275000
LPF3270 DC X'1140401D4113' *11* 00666010
LPF23270 DC X'12404011C25E1D60' *11* 00666020
End of Zap Deck