Создание и вызов массивов через личное общение - PullRequest
Новая
       12

Создание и вызов массивов через личное общение

0 голосов
/ 21 февраля 2019

Я пытаюсь вызвать массив в личном общении (iSeries и т. Д.) У меня есть сценарий, который должен 

Open the query screen
Run query 1
Wait for query 1 to finish
Run query 2

и т. Д.

. В любой другой ситуации с VB я бы использовал * 1006.* 

Dim qryArray() as string = {“salesrep1”, “salerep28”, “salepay34”, “prod_inv_1”}

Но здесь мне постоянно говорят Expected end of statement

Есть ли что-то очевидное, что я здесь не так делаю?

Во-вторых, мне нужно знать, как вызывать массив какa SendKeys

'Open Query
    autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "2" 'Run
    autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys 'Query Name Goes Here
    autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[field+]" 'Next
    autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "techops" 'Library
    autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[field+]" 'To top
    autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]" 'Go to query
    autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf3]" 'Exit to run query

1 Ответ

0 голосов
/ 21 февраля 2019

Итак, с помощью Natha_Sav, вот рабочий ответ: 

For each v in qryArray
'Then we are opening the query, running it, closing it and waiting for the message to confirm
'snippet:
autECLSession.autECLPS.SendKeys "2" 'Run
   autECLSession.autECLPS.SetCursorPos 8, 26
autECLSession.autECLPS.SendKeys(cstr(v)) 'send query name
   autECLSession.autECLPS.SetCursorPos 9, 28
'autECLSession.autECLPS.SendKeys "salesrep1" 'This would be the equivalent
'then close the library etc 
'run the query
next
...