getspecreplywaitec26.vbs

来自「IBM 开发的easy cics通讯相关的源代码」· VBS 代码 · 共 23 行

	set oEc1 = Wscript.CreateObject("EasyCics.App")
	r = oEc1.ConnectServer("CICSNT01", "TEST", "TEST")
if r<>0 then
	MsgBox "can't connect"
	Wscript.Quit r
end if

	oEc1.BeginWrite
        
	oEc1.SetEciTimeout 15
	oEc1.SetMsgQlf 1
	oEc1.CallProgramDsyncAndCommit "EC26"

	r= oEc1.GetSpecReplyWait
if r<>0 then
	MsgBox "Call Error !"
	Wscript.Quit r
end if

	MsgBox oEc1.GetValue("OK")