session.vbs

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

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

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

	oEc.EpiStartTran "SESS"
if oEc.GetErrCode() <>0 then
	MsgBox oEc.GetErrCode()
	MsgBox "can't StartTran"
	Wscript.Quit r
end if

	r= oEc.EpiGetEvent
if oEc.EpiGetEventType() = 2 then

	s= InputBox( oEc.EpiGetEventData() )
	oEc.EpiReply s

	r= oEc.EpiGetEvent
 if oEc.EpiGetEventType() = 2 then

	s= InputBox( oEc.EpiGetEventData() )
	oEc.EpiReply s
 end if
end if

	r= oEc.EpiDisConnect()