call@_ins_x.vbs

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

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

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

	oEc.BeginWrite

	oEc.SetValue "CMT", "1"
	oEc.SetValue "PRG", "INS"
	'
	oEc.SetValue "INS", "VBS_INS"
	oEc.CallProgram "EC18"

	s= InputBox( "Y - Commit,      N - Rollback" )
if s="Y" or s="y" then
	oEc.Commit
	MsgBox "Commit"
else
	oEc.Rollback
	MsgBox "Rollback"
end if