ec26.vbs

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

	set oEc = Wscript.CreateObject("EasyCics.App")

	 r = oEc.ConnectServer("CICSNT01", "TEST", "TEST")
if r<>0 then
	MsgBox "can't connect"
	Wscript.Quit r
end if

	'oEc.SetEciTimeOut 5
	oEc.CallProgramAndCommit "EC26"
	r= oEc.GetErrCode
if r<>0 then
	MsgBox "ECI call failed, errcode=" & r
	Wscript.Quit r
end if

	MsgBox "OK"