troubleshooting Question

AS/400 Macro

Avatar of jim25
jim25 asked on
IBM System i
48 Comments1 Solution6873 ViewsLast Modified:
Hi all again and especially Mvidas:

I have the following problem:

I want a macro that does the following:

to copy to memory the following chunks of data 07/005 to 07/010,
                                                                     10/005 to 10/010,
                                                                     13/005 to 13/010,
                                                                     16/005 to 16/010,
                                                                     19/005 to 19/010

then

autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[pf7]"

then repeat the first section

Until there is no data to copy.

Then take each individual chunk of data 6 digit number and do:

autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[pf1]"
   
   autECLSession.autECLPS.WaitForAttrib 8,48,"00","3c",3,10000

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[pf3]"
   
   autECLSession.autECLPS.WaitForAttrib 22,6,"00","3c",3,10000

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[pf3]"
   
   autECLSession.autECLPS.WaitForAttrib 21,22,"00","3c",3,10000

   autECLSession.autECLPS.WaitForCursor 21,23,10000

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "1"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[enter]"
   
   autECLSession.autECLPS.WaitForAttrib 22,6,"00","3c",3,10000

   autECLSession.autECLPS.WaitForCursor 22,7,10000

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "tc700"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[enter]"
   
   autECLSession.autECLPS.WaitForAttrib 5,37,"10","3c",3,10000

   autECLSession.autECLPS.WaitForCursor 5,38,10000

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[tab]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[tab]"

then place the 6 digit number in this field 12/038  to 12/043

then:

autECLSession.autECLPS.SendKeys "[enter]"

then:

copy to memory the data from 02/041 to 08/079.

Then repeat this for all the other 6 digit numbers then send them to an excel file.

Is this possible?

Many thanks!




Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 48 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 48 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros