nt_ec02.vbs

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

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

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

       
	oEc.CallProgramAndCommit "EC02"
        
 '''''''''''''''''''''''''''''''''''''

	oEc.RsOpen
	rc = oEc.RsGetRowNum
	cc = oEc.RsGetColNum
        
	MsgBox "row number = " & rc

 for i=1 to rc
	oEc.RsFetchRow
 next
	oEc.RsClose

	MsgBox "Ok"
end if