home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. CD ROM (Annual Premium Edition)
/
premium.zip
/
premium
/
IBMOS2_2
/
WIZOS2.ZIP
/
W.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-04-02
|
703b
|
25 lines
/* rexx support stuff for wiz/2 */
"@echo off"
/* get the funcs in and parse the orig source */
parse upper source temp1 temp2 sfname
arg a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
sfname=substr(sfname,1,lastpos( '\', sfname))
go_file=sfname'wizgofil.dat'
sfname=sfname'wizcore1.exe'
/* execute wizard */
sfname a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
/* ok, now see if go file is there */
if stream(go_file,'c','query exists') <> "" then
do
/* if so, go for it!!! */
interpret 'call directory("'linein(go_file)'")'
s = stream(go_file,'c','close');
/* delete the file */
del go_file
end
exit