For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
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 R12.0 BUG 4665 MVS
./ CHANGE NAME=OUTBLD
* *05* 13JAN93 GOH B4665 PROTECT THE SCREEN AFTER LINE 2 COL 80 00000996
SEQ3270B DC X'11C25F1D60' *05* 00210000
./ CHANGE NAME=S2KEPROC
* 07 13JAN93 GOH B4665 SET CURLINE TO ZERO ON EMPTY MEMBER 00009980
CLC TOTLINES,=H'0' EMPTY MEMBER ? *07* 00078010
BNE NOPARM1 NO. FINISH SET UP *07* 00078020
MVC CURLINE,=H'0' SET CURLINE TO ZERO FOR *07* 00078030
* EMPTY MEMBER *07* 00078040
B NOPARM2 CONTINUE *07* 00078050
NOPARM1 EQU * *07* 00078990
NOPARM2 EQU * *07* 00079010
./ CHANGE NAME=SETMODE
* *05* 15JAN93 GOH B4665 DO NOT ALLOW MODIFY ON EMPTY MEMBER * 00010970
CLI MODMODE,MODON MODIFY MODE ? *05* 00051020
BNE MODE0020 NO. CONTINUE *05* 00051030
CLC TOTLINES,=H'0' EMPTY MEMBER ? *05* 00051040
BE MODERR YES. CAN'T DO MODIFY *05* 00051050
MODE0020 EQU * *05* 00051060
XC MODMODE,MODMODE CLEAR MOD INDICATOR *05* 00065010
./ CHANGE NAME=SCFDRVR
* *21* 15JAN93 GOH B4665 DO NOT ALLOW SEND VERB FROM EDITOR *21** 00030994
OC DRVREDIT,DRVREDIT COMMAND FROM EDITOR ? *21* 00369022
BZ DRVR27D1 NO. CONTINUE *21* 00369023
MVC SCFCTRN,CS2KU YES. INVALID EDITOR *21* 00369024
B DRVR0274 COMMAND. SET TRAN *21* 00369025
* AND SEND AS SCF INPUT *21* 00369026
DRVR27D1 EQU * *21* 00369027
./ 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* 00086070
BE LIST0110 YES. BYPASS SPECIAL INPUT *10* 00086080
LR R9,R15 SAVE RETURN CODE *10* 00741010
C R9,=F'20' NO PCI RETURN ? *10* 00746010
BE LIST9905 YES. JUST RETURN *10* 00746020
CLC PCIPLAST,HWD1 MORE THAN ONE PAGE ? *10* 00799000
./ 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* 00256000
MVC 0(8,R6),LPF23270 SET SECOND SBA SEQ *11* 00263000
LPF3270 DC X'1140401D4113' *11* 00638010
LPF23270 DC X'12404011C25E1D60' *11* 00638020
End of Zap Deck