user defined rexx macro



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

user defined rexx macro

Postby rupa888 » Fri Mar 15, 2013 4:58 pm

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 ?
rupa888
 
Posts: 21
Joined: Tue Sep 18, 2012 5:12 pm
Has thanked: 1 time
Been thanked: 0 time

Re: user defined rexx macro

 

Re: user defined rexx macro

Postby Akatsukami » Fri Mar 15, 2013 5:04 pm

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.
"You have sat too long for any good you have been doing lately ... Depart, I say; and let us have done with you. In the name of God, go!" -- what I say to a junior programmer at least once a day

These users thanked the author Akatsukami for the post:
rupa888 (Fri Mar 15, 2013 5:08 pm)
User avatar
Akatsukami
Global moderator
 
Posts: 1053
Joined: Sat Oct 16, 2010 2:31 am
Location: Bloomington, IL
Has thanked: 6 times
Been thanked: 51 times

Re: user defined rexx macro

Postby rupa888 » Wed Mar 20, 2013 12:10 pm

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
rupa888
 
Posts: 21
Joined: Tue Sep 18, 2012 5:12 pm
Has thanked: 1 time
Been thanked: 0 time

Re: user defined rexx macro

Postby prino » Wed Mar 20, 2013 4:02 pm

Read the PCOMM manual?

And edit the flipping script to remove your typos!
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 536
Joined: Wed Mar 11, 2009 12:22 am
Location: Oostende, Belgium
Has thanked: 3 times
Been thanked: 21 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post