Hi,
i have the following script to run a macro.this macro/script needs to be called when logged into mainframe automatically.
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[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 "s"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[backspace]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "1.6"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 6,6,"00","3c",3,10000
autECLSession.autECLPS.WaitForCursor 6,7,10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "tso alloc dsn('tsses"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[backspace]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[backspace]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[backspace]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "oes2d.fu601.ruba,"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[backspace]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys ".rexx') ddn(sysexec) shr"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 21,35,"00","3c",3,10000
autECLSession.autECLPS.WaitForCursor 22,1,10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "free"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 23,5,"00","3c",3,10000
autECLSession.autECLPS.Wait 1375
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
end sub
' E' necessario modificare la seguente riga in modo appropriato per l'applicazione
autECLSession.StartCommunication