vbs for macro

G

Guest

orig post'g:
i have an inventory of appx 1000 serial numbers. using keystroke recording, i
can populate 2 - 6 fields on 4 green screens to complete a process on one
serial number. is there a way to tweak my macro to incrementally continue,
automatically, from a list stored in an excel worksheet on the client? would
be very grateful for fresh ideas.
follow up:
1st...thank you for giving me hope!
the macro feeds to a cics dummy screen (input only form) linking to corp
dBase from nt/ws 4.0 sp6. Attached below is the macro, which i would like to
link to an excel worksheet (C:\temp\serNo.xls) containing a list of serial
numbers and get this process to increment automatically.

autoAdd.mac

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable

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

autECLSession.autECLOIS.WaitForAttrib 7,1,"00", "3c",3,10000

autECLSession.autECLOIS.WaitForCursor 7,2,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "s"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

autECLSession.autECLOIS.WaitForAttrib 5,16,"00","3c",3,10000

autECLSession.autECLOIS.WaitForCursor 5,17,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "15"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[field]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[field]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

autECLSession.autECLOIS.WaitForAttrib 5,16,"00","3c",3,10000

autECLSession.autECLOIS.Wait 1493

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"
end sub

i do ok with web technology and can work with java script, but vbs looks
foriegn to me still. would appreciate the guidance.
ayeFayze
 
O

Otto Moehrbach

I can't help you with that macro because that is not an Excel VBA macro.
Tell me what you have (your data layout) in Excel and tell me what you want
Excel to do with the data. If you want Excel to populate some cells
dependent on some other cells, tell me where all the data
resides. HTH Otto
ayeFayze said:
orig post'g:
i have an inventory of appx 1000 serial numbers. using keystroke
recording, i
can populate 2 - 6 fields on 4 green screens to complete a process on one
serial number. is there a way to tweak my macro to incrementally continue,
automatically, from a list stored in an excel worksheet on the client?
would
be very grateful for fresh ideas.
follow up:
1st...thank you for giving me hope!
the macro feeds to a cics dummy screen (input only form) linking to corp
dBase from nt/ws 4.0 sp6. Attached below is the macro, which i would like
to
link to an excel worksheet (C:\temp\serNo.xls) containing a list of serial
numbers and get this process to increment automatically.

autoAdd.mac

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable

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

autECLSession.autECLOIS.WaitForAttrib 7,1,"00", "3c",3,10000

autECLSession.autECLOIS.WaitForCursor 7,2,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "s"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

autECLSession.autECLOIS.WaitForAttrib 5,16,"00","3c",3,10000

autECLSession.autECLOIS.WaitForCursor 5,17,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "15"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[field]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[field]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

autECLSession.autECLOIS.WaitForAttrib 5,16,"00","3c",3,10000

autECLSession.autECLOIS.Wait 1493

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"
end sub

i do ok with web technology and can work with java script, but vbs looks
foriegn to me still. would appreciate the guidance.
ayeFayze
Click to expand...
 
M

mahesmit

Joined
Nov 26, 2008
Messages
1
Reaction score
0
Hi,



I need to write a VBSCRIPT in mainframe for running a macro which will close the screens and logoff automatically.

In mainframe we can open 8 screens at a max...i want to write a macro which will check for how many screens are opened..and close all of them accordingly.



can anyone help me out in developing this macro
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBS for Macro (Green Screen) 0
WTD: Nvidia Videocard for 4x AGP Slot 0

Top