<< Click to Display Table of Contents >> Navigation:  Macro Samples > IBM Personal Communications VBScript sample supported by Quick3270

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=VBScript
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
 
REM This line calls the macro subroutine
subSub1_
 
sub subSub1_()
  autECLSession.autECLOIA.WaitForAppAvailable
 
  autECLSession.autECLOIA.WaitForInputReady
  autECLSession.autECLPS.SendKeys "a"
  autECLSession.autECLOIA.WaitForInputReady
  autECLSession.autECLPS.SendKeys "[enter]"
 
  autECLSession.autECLPS.WaitForAttrib 24,5,"00","3c",3,10000
 
  autECLSession.autECLPS.Wait 2937
 
  autECLSession.autECLOIA.WaitForAppAvailable
 
  autECLSession.autECLOIA.WaitForInputReady
  autECLSession.autECLPS.SendKeys "[pf1]"
 
  autECLSession.autECLPS.WaitForAttrib 24,80,"08","3c",3,10000
 
  autECLSession.autECLPS.WaitForCursor 1,1,10000
 
  autECLSession.autECLOIA.WaitForAppAvailable
 
  autECLSession.autECLOIA.WaitForInputReady
  autECLSession.autECLPS.SendKeys "/rcl"
  autECLSession.autECLOIA.WaitForInputReady
  autECLSession.autECLPS.SendKeys "[enter]"
 
  autECLSession.autECLPS.WaitForAttrib 24,5,"00","3c",3,10000
 
  autECLSession.autECLPS.Wait 4860
 
  autECLSession.autECLOIA.WaitForAppAvailable
 
  autECLSession.autECLOIA.WaitForInputReady
  autECLSession.autECLPS.SendKeys "[pf3]"
end sub