For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
SEND COMMAND CANNOT BE ISSUED DIRECTLY FROM 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 4621 OS
./ CHANGE NAME=SCFDRVR
* *17* 31AUG92 GOH ALLOW FOR DIRECT 'SEND' FROM S2KU *17** 00030999
CLC SCFCTRN,CSEND EDITOR SEND COMMAND ? *17* 00369010
BNE DRVR270E NO. CONTINUE *17* 00369020
* *17* 00369030
* FOR ANYTHING GOING TO THE EDITOR, IT HAS TO LOOK LIKE *17* 00369040
* ALL OTHER SCF INPUT... FORMATTED ? *17* 00369050
* *17* 00369060
LA R5,4(R5) BUMP PAST VERB *17* 00369070
ST R5,SCFCMSGA RESET ADDRESS *17* 00369080
LH R5,SCFCMSGL RESET LENGTH *17* 00369090
SH R5,=H'4' DECREMENT LENGTH *17* 00369100
STH R5,SCFCMSGL RESET MESSAGE LENGTH *17* 00369110
DRVR270E EQU * *17* 00369120
BE DRVR0330 YES. CONTINUE *17* 00478000
CLC SCFCTRN,CSEND FOR EDIT (SEND) *17* 00478010
BNE DRVR0350 NO. CONTINUE *17* 00478020
DRVR0330 EQU * *17* 00478030
CSEND DC CL4'SEND' *17* 01038010
./ CHANGE NAME=S2KSEND
* *03* 31AUG92 GOH FIX CALL FROM S2KU DIRECT TO SEND *03** 00005099
LTR R10,R10 NEED A NEW ONE ? *03* 00021010
BNZ MOVEDFLT NO. JUST CONTINUE *03* 00021020
MVI EDITFLG1,X'20' SET FOR NEW CONTROL RECORD *03* 00021030
EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000) 00021040
L R10,EDITCTRL ADDRESS NEW CONTROL RECORD *03* 00021050
L R15,EDITRTCD GET RETURN *03* 00021060
LTR R15,R15 COULD WE ACQUIRE IT? *03* 00021070
BZ MOVEDFLT YES. MOVE IN DEFAULT VALUES. *03* 00021080
LA R15,15 *03* 00021090
ST R15,EDITRTCD SET RETURN CODE *03* 00021100
EXEC CICS XCTL PROGRAM('S2KERR') COMMAREA(EDITCOM) LENGTH(3000) 00021110
* *03* 00021120
* NO RETURN EXPECTED *03* 00021130
* *03* 00021140
./ CHANGE NAME=S2KEDTRT
* *06* 31AUG92 GOH ALLOW FOR DIRECT CALL FROM S2KU WITH SEND VERB *06* 00000999
CLC SCFCTRN,CSEND SEND VERB ? *06* 00073010
BE CMDMOVA YES. DON'T RESET EDITTRID *06* 00073020
CMDMOVA EQU * *06* 00075010
BE CALLPROC YES. CONTINUE *06* 00125010
CLC SCFCTRN,CSEND IS IT 'SEND' ? *06* 00125020
BE ROUTE2 YES. PROCESS IT *06* 00125030
B CTRLERR NO CONTROL RECORD FOUND *06* 00126000
CALLPROC EQU * *06* 00126010
ROUTE2 EQU * *06* 00144010
CSEND DC CL4'SEND' SEND TRANSACTION *06* 00357010
End of Zap Deck