home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 6 File / 06-File.zip / WIZ114.ZIP / W.CMD < prev    next >
OS/2 REXX Batch file  |  1993-04-02  |  703b  |  25 lines
  1. /* rexx support stuff for wiz/2 */ 
  2. "@echo off"
  3.  
  4. /* get the funcs in and parse the orig source */
  5. parse upper source temp1 temp2 sfname
  6. arg a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
  7. sfname=substr(sfname,1,lastpos( '\', sfname))
  8.  
  9. go_file=sfname'wizgofil.dat'
  10. sfname=sfname'wizcore1.exe'
  11.                             
  12. /* execute wizard */                     
  13. sfname a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
  14.              
  15. /* ok, now see if go file is there */
  16. if stream(go_file,'c','query exists') <> "" then
  17. do                        
  18.    /* if so, go for it!!! */
  19.    interpret 'call directory("'linein(go_file)'")' 
  20.    s = stream(go_file,'c','close'); 
  21.  
  22.    /* delete the file */
  23.    del go_file
  24. end
  25. exit