vbs for macro

Guest · Apr 21, 2005

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

Otto Moehrbach · Apr 21, 2005

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

mahesmit · Nov 26, 2008

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

vbs for macro

Guest

Otto Moehrbach

mahesmit