yx-multi-rs.vbs

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

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

        r = oEc.ConnectServer("SUNYX", "TEST", "TEST")
If r <> 0 Then
        MsgBox "can't connect"
Else

        oEc.BeginWrite

	oEc.SetValue "TT", "Hello"

        oEc.RsCreate 0

        oEc.RsNewTable 2

        oEc.RsAddRow
        oEc.RsSetCol 1, "CliTbl1<1,1>"
        oEc.RsSetCol 2, "CliTbl1<1,2>"
        oEc.RsSaveRow

        oEc.RsAddRow
        oEc.RsSetCol 1, "CliTbl1<2,1>"
        oEc.RsSetCol 2, "CliTbl1<2,2>"
        oEc.RsSaveRow

        oEc.RsAddRow
        oEc.RsSetCol 1, "CliTbl1<3,1>"
        oEc.RsSetCol 2, "CliTbl1<3,2>"
        oEc.RsSaveRow

        oEc.RsNewTable 3

        oEc.RsAddRow
        oEc.RsSetCol 1, "CliTbl2<1,1>"
        oEc.RsSetCol 2, "CliTbl2<1,2>"
        oEc.RsSetCol 3, "CliTbl2<1,3>"
        oEc.RsSaveRow

        oEc.RsAddRow
        oEc.RsSetCol 1, "CliTbl2<2,1>"
        oEc.RsSetCol 2, "CliTbl2<2,2>"
        oEc.RsSetCol 3, "CliTbl2<2,3>"
        oEc.RsSaveRow

        oEc.CallProgramAndCommit "EC24"

        oEc.RsOpen
        'cc = oEc.RsGetColNum
        'rc = oEc.RsGetRowNum
        
        c1 = oEc.RsGetTableColNum(1)
        r1 = oEc.RsGetTableRowNum(1)
        c2 = oEc.RsGetTableColNum(2)
        r2 = oEc.RsGetTableRowNum(2)

        'MsgBox oEc.GetValue("_TL")

        ss = "Table1:" + Chr(13) + Chr(10)
 For i = 1 To r1
        oEc.RsFetchRow
  For j = 1 To c1
        ss = ss + oEc.RsGetCol(j) + ","
  Next
        ss = ss + Chr(13) + Chr(10)
 Next
        
        ss = ss + "Table2:" + Chr(13) + Chr(10)
 For i = 1 To r2
        oEc.RsFetchRow
  For j = 1 To c2
        ss = ss + oEc.RsGetCol(j) + ","
  Next
        ss = ss + Chr(13) + Chr(10)
 Next

        MsgBox ss
        
End If