serverlist.vbs

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

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


	oEc.ServerListInit 3		'list中最多容纳的cics-server数
	oEc.ServerListAdd "CICSNT01"
	oEc.ServerListAdd "CICSLR01"
	oEc.ServerListAdd "CICSLR02"

	'r = oEc.ConnectServerList("TEST", "TEST")	'default list
	r = oEc.ConnectServerListX("list1", "TEST", "TEST")	'把刚建立的list命名为list1
if r=0 then       
	oEc.CallProgramAndCommit "GETTIME"

	MsgBox oEc.GetValue("TIME")
else
	MsgBox "Connect error"
end if