getspecreply.vbs

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

	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=-5
do while (r=-5)
	if r=-5 then r= oEc1.GetSpecReply
loop
if r<>0 then
	MsgBox "Call Error !"
	Wscript.Quit r
end if


	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"



 '''''''''''''''''''''''''''''''''''''
	r=-5
do while (r=-5)
	if r=-5 then r= oEc2.GetSpecReply
loop
if r<>0 then
	MsgBox "Call Error !"
	Wscript.Quit r
end if

	MsgBox oEc2.GetValue("TIME"), 0, "TIME"