nt_telecomo.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

	s = InputBox("请输入查询号码：")
	if s="" then Wscript.Quit 0

	oEc.SetValue "NO", s
        
	oEc.CallProgramAndCommit "TELECOMO"
        
 '''''''''''''''''''''''''''''''''''''

	oEc.RsOpen
	rc = oEc.RsGetRowNum
	cc = oEc.RsGetColNum
        
	s = ""
For i = 1 To rc
	oEc.RsFetchRow
 For j = 1 To cc
	s = s + oEc.RsGetCol(j) + ","
 Next
	s = s + chr(13) + chr(10)
Next

	MsgBox s