getreplywait.vbs

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

	set oEc1 = Wscript.CreateObject("EasyCics.App")
	set oEc2 = Wscript.CreateObject("EasyCics.App")

	r = oEc1.ConnectServer("CICSNT01", "TEST", "TEST")
if r<>0 then
	MsgBox "can't connect"
	Wscript.Quit r
end if
	r = oEc2.ConnectServer("CICSNT01", "TEST", "TEST")
if r<>0 then
	MsgBox "can't connect"
	Wscript.Quit r
end if

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

	oEc1.BeginWrite
	oEc1.SetValue "NO", s
	oEc2.BeginWrite
        
	oEc1.SetMsgQlf 1
	oEc1.CallProgramDsyncAndCommit "TELECOM"

	oEc2.SetMsgQlf 2
	oEc2.CallProgramDsyncAndCommit "GETTIME"

 '''''''''''''''''''''''''''''''''''''
	r= oEc1.GetReplyWait
if r<>0 then
	MsgBox "Call Error !"
	Wscript.Quit r
end if


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

	MsgBox s, 0, "TELECOM"
else
	MsgBox oEc1.GetValue("TIME"), 0, "TIME"
end if



 '''''''''''''''''''''''''''''''''''''
	r= oEc1.GetReplyWait
if r<>0 then
	MsgBox "Call Error !"
	Wscript.Quit r
end if


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

	MsgBox s, 0, "TELECOM"
else
	MsgBox oEc1.GetValue("TIME"), 0, "TIME"
end if