Guidance Forums / Reginald Rexx / Passing parameters to asynchronously started rexx-Guidance指路人

Guidance
指路人
g.yi.org

Guidance Forums / Reginald Rexx / Passing parameters to asynchronously started rexx

Home

Software

Upload

回顶部

⇑

Forum List • Thread List • Reply • Refresh • New Topic • Search • Previous • Next

1. Passing parameters to asynchronously started rexx

#12867

Posted by: PeterJ 2009-05-01 14:18:11 Last edited by: PeterJ 2009-05-01 14:22:21 (Total edited 3 times)

when needed, I start rexx scripts asynchronously with:

rexdir=VALUE('HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\RxLaunch.exe\Path', ,"WIN32")
ITERATEEXE(rexdir'RXLAUNCH','HELLO.REX',,,,'M')

until now there was no need for passing parameters. I played with

rxlaunch rexname parameters 
e.g.
rxlaunch hello.rex,'123'

but get an exception there. It seems RXLAUNCH is not implemented to receive any parameters. Is there any other simple was to pass and receive parameters, which I overlooked?

Peter

#12868

Posted by: Jeff Glatt 2009-05-01 14:46:37

Actually, RxLaunch is designed to take a script name followed by upto 15 args. Each arg can be no longer than about 239 chars. Try making a shortcut to RxLaunch.exe and entering a script name and some args in the shortcut's properties. I suspect the problem is more likely your call to ITERATEEXE.

#12870

Posted by: PeterJ 2009-05-01 19:13:09

I got the same exception error:

AppName: rxlaunch.exe AppVer: 0.0.0.0 ModName: reginald.dll
ModVer: 0.0.5.5 Offset: 000216b9

I started the shortcut directly. The shortcut properties were:

C:\Programme\Reginald\RxLaunch.exe Hello.rex 1 2 3

the code contained in HELLO.REX is:


SAY TIME('L') 'Hello World' 
PARSE ARG p0,p1,p2,p3,p4,p5,p6,p7,p8,p9
SAY 'Input Parameters 'p0 p1 p2 p3 p4 p5 p6 p7 p8 p9
SLEEP(1)
SAY TIME('L') 'Hello World ends'

#12871

Posted by: PeterJ 2009-05-01 19:18:25 Last edited by: PeterJ 2009-05-01 19:19:05 (Total edited 1 time)

... it seems to be the parse statement in HELLO.REX causes the exception. I changed it to:


SAY TIME('L') 'Hello World' 
SAY "p0:" ARG(1)
SAY "p1:" ARG(2)
SAY "p2:" ARG(3)
SLEEP(1)
SAY TIME('L') 'Hello World ends'

Now it works fine!

#12873

Posted by: PeterJ 2009-05-01 22:51:14 Last edited by: PeterJ 2009-05-01 22:52:29 (Total edited 1 time)

everything is set now! you can use the following coding to start another rexx script asynchronously. This means the calling script continues without waiting for the return of the called procedure.

e.g.

startsubtask('HelloWorld',DATE(),TIME())

calls HelloWorld.rexx and passes 2 parameters to it


/* ---------------------------------------------------------------------------------
 * Start REXX asynchronously
 * ---------------------------------------------------------------------------------
 */
startsubtask:
PARSE ARG rexx
pass=''
DO i=2 TO 11
   IF ARG(i,'E')=1 THEN pass=pass','ARG(i)
      ELSE LEAVE
END
pass=SUBSTR(pass,2)
rexdir=VALUE('HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\RxLaunch.exe\Path', ,"WIN32")
ITERATEEXE(rexdir||'RXLAUNCH.EXE',rexx'.REX',,,pass,'M')
RETURN

Forum List • Thread List • Reply • Refresh • New Topic • Search • Previous • Next

掌柜推荐

¥880.00 ·

¥1,390.00 ·

¥1,380.00 ·

¥287.00 ·

¥918.00 ·

¥860.00 ·

g.yi.org Hits:0