yx-ctr.vbs

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

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

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


	s = InputBox( "请输入查询名称：", "CTR", "ferere" )
	if s="" then Wscript.Quit 0

	oEc.SetValue "Name", s

	oEc.CallProgramAndCommit "CTR"
	r= oEc.GetErrCode
if r<>0 then
	MsgBox "CICS call failed"
	Wscript.Quit r
end if

	s= oEc.GetValue("_")
if s<>"0" then
	MsgBox oEc.GetValue("_"), 0, "program call failed"
	Wscript.Quit r
end if

	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, 0, "CTR"