For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
THE DEFAULT OPTION FOR THE TSCF AND TPLX TRANSACTIONS IS THE 'ALL' OPTION. THIS IS NOT ACCEPTABLE.
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 4724 MVS
./ CHANGE NAME=PLXTERM
* *18* 12OCT93 GOH B4724 CHANGE DEFAULT FOR TPLX AND TSCF TRANS 00018970
DC A(INITMSG5) *18* 00351010
INITMSG5 DC CL50'PLXTERM - 09 OPTION MUST SPECIFY USERID= OR ALL' *18* 00356020
./ CHANGE NAME=PLXINIT
* *19* 12OCT93 GOH B4724 CHANGE DEFAULT FOR TPLX AND TSCF TRANS 00029097
BP INIT0020 CHECK PARMS *19* 00110000
LA R15,138 SET RETURN CODE *19* 00110010
ST R15,PLXRTCD IN COMMBLOCK *19* 00110020
B INIT0100 CONTINUE *19* 00110030
INIT0055 EQU * *19* 00129010
BNP INIT0055 NO USER ID SET *19* 00135010
./ CHANGE NAME=SCFTERM
* *11* 12OCT93 GOH B4724 CHANGE DEFAULT FOR TPLX AND TSCF TRANS * 00026970
B TERM0005 TERMINATE ALL *11* 00066000
BNE TERM9990 NO. JUST RETURN *11* 00073000
CLC 0(4,R7),CTALL TERM ALL TRANSACTION ? *11* 00080010
BE TERM0020 YES. *11* 00080020
BP TERM0030 CHECK PARMS *11* 00087000
B TERM9040 NONE. ISSUE MESSAGE *11* 00087010
CLI 0(R7),C' ' VALUE ? *11* 00088010
BE TERM0035 NO. CHECK NEXT *11* 00088020
CLC 0(3,R7),=CL3'ALL' ALL OPTION ? *11* 00090010
BE TERM0045 YES. SET FLAGS *11* 00090020
B TERM9020 NO. SYNTAX ERROR *11* 00090030
TERM0035 EQU * *11* 00090040
BNP TERM9020 NO USERID SET *11* 00096010
CLC TERMTALL,X'01' TERMINATE ALL SITUATION ? *11* 00445010
BE TERM9040 YES. SEND PROPER MESSAGE *11* 00445020
B TERM9990 FINISH UP *11* 00455000
TERM9040 EQU * *11* 00455010
CLI TERMFCI,X'01' TERMINAL ORIENTED ? *11* 00455020
BNE TERM9990 NO. JUST RETURN *11* 00455030
EXEC CICS SEND FROM(TERMMSG5) LENGTH(TERMMLN) WAIT 00455040
B TERM9990 FINISH UP *11* 00455050
TERMMSG2 DC CL80'SCFTERM - 02 INVALID PARAMETER ON INPUT' *11* 00492000
*11* LINE REMOVE BY BUG FIX 00493000
TERMMSG5 DC CL80'SCFTERM - 05 OPTION MUST SPECIFY USERID= OR ALL' *11* 00497020
End of Zap Deck