clirs.vbs

IBM 开发的easy cics通讯相关的源代码

	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

	'If you want to send large client resultset (>32K) to server, you must set this property before you prepare the data 
	oEc.SetProperty "PrgName", "CLIRS"
	oEc.BeginWrite

	oEc.RsCreate 3
for i=1 to 3200
	oEc.RsAddRow
	oEc.RsSetCol 1, "No." & i
	oEc.RsSetCol 2, "行x列y"
	oEc.RsSetCol 3, "行x列y"
	oEc.RsSaveRow
next

	oEc.CallProgramAndCommit "CLIRS"
	r= oEc.GetErrCode
if r<>0 then
	MsgBox "ECI call failed"
	Wscript.Quit r
end if

	MsgBox oEc.GetValue("RETURN")