home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
lpt197.zip
/
MULTI.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1996-02-21
|
503b
|
24 lines
/* Execute multiple LPTEST commands, separated by '#' JvW 28-01-96 */
trace off
Parse arg params
say 'MULTI.CMD, rexx env = "'Address()'" Parameters = "'params'"'
Parse Source with . procname .
if Address() <> 'LPT' then
do
Address cmd '@LPT runq' procname params
end; else
do
rest = params
do while rest <> ''
parse value rest with LPT_cmd '#' rest
LPT_cmd
rc = result
end
end
exit rc