home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / pmcmd.zip / EXERC3.CMD < prev    next >
OS/2 REXX Batch file  |  1994-09-06  |  358b  |  33 lines
  1. /*     
  2.     Copyright Lignum Oy. 1993, 1994.
  3. */
  4.  
  5. CALL RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  6. CALL SysLoadFuncs
  7. ARG params
  8.  
  9. drive = SUBWORD(params,1,1)
  10. direct = SUBWORD(params,2,1)
  11. '@ECHO OFF'
  12. drive
  13. 'CD 'direct
  14. comm = SUBWORD(params,3) 
  15. 'START /C /F ' comm 
  16. RC1=RC
  17. 'CLS'
  18. IF RC1>0 THEN DO
  19.     'START 'comm
  20. END
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.