nt_ec02-.vbs

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

	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

	MsgBox "Ok"
end if