VBS for Macro (Green Screen)

[engr_5]

Hi,



I would like to link an excel worksheet with AS-400 screen in the manner the series of item codes could be called from a excel worksheet and the value appearing on green screen at specific location could be copied and pasted it back on same excel worksheet. Below please find the macro for selection of data which is needed to be copied and pasted on excel.



I will be highly grateful for you assistance and support.

Regards

[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 "

"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "

"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "

"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "

"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "

"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[down]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[down]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
autECLMacro "[mark right]"
end sub​