Page 1 of 1

user defined rexx macro

PostPosted: Fri Mar 15, 2013 4:58 pm
by rupa888
Hi,
I have created many user defined rexx macro.Each time when i log into mainframe , im entering the following command in command line in order to use those macros.

tso alloc dsn("dataset name") ddn(sysexec) shr


Is there any way to make the macro permanent ?

Re: user defined rexx macro

PostPosted: Fri Mar 15, 2013 5:04 pm
by Akatsukami
In many shops the TSO logon procedure executes, as its last function, a user-written script that would include such things. I would ask your support workgroup(s) if your site has such. I would also read up on the ALTLIB command.

Re: user defined rexx macro

PostPosted: Wed Mar 20, 2013 12:10 pm
by rupa888
Hi,
i have the following script to run a macro.this macro/script needs to be called when logged into mainframe automatically.
[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 "s"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[backspace]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "1.6"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[enter]"
   
   autECLSession.autECLPS.WaitForAttrib 6,6,"00","3c",3,10000

   autECLSession.autECLPS.WaitForCursor 6,7,10000

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "tso alloc dsn('tsses"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[backspace]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[backspace]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[backspace]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "oes2d.fu601.ruba,"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[backspace]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys ".rexx') ddn(sysexec) shr"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[enter]"
   
   autECLSession.autECLPS.WaitForAttrib 21,35,"00","3c",3,10000

   autECLSession.autECLPS.WaitForCursor 22,1,10000

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "free"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[enter]"
   
   autECLSession.autECLPS.WaitForAttrib 23,5,"00","3c",3,10000

   autECLSession.autECLPS.Wait 1375

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[enter]"
end sub
' E' necessario modificare la seguente riga in modo appropriato per l'applicazione
autECLSession.StartCommunication

Re: user defined rexx macro

PostPosted: Wed Mar 20, 2013 4:02 pm
by prino
Read the PCOMM manual?

And edit the flipping script to remove your typos!