yx-sr.vbs

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

' * struct type:
' * 1:	SResource	
' * 2:	SFeeDetail

	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

	oEc.BeginWrite
	
	oEc.SetValue "S0", "1"	'SResource
	oEc.SetValue "N0", "1"	'size=1

        oEc.RsCreate 0

        oEc.RsNewTable 6

	'm_iProductId = 1;
	'm_iResCode = 200001;
	'm_szResId = "";
	'm_szBillId = "";
	'm_nStatus = 1;
	'm_szExtInfo = "";
        oEc.RsAddRow
        oEc.RsSetCol 1, "1"
        oEc.RsSetCol 2, "200001"
        oEc.RsSetCol 5, "1"
        oEc.RsSaveRow

	oEc.CallProgramAndCommit "SR"
	r= oEc.GetErrCode
if r<>0 then
	MsgBox "ECI 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