home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 29 Fixes_o / 29-Fixes_o.zip / ip0t600.zip / INSTFIXP.CMD < prev    next >
OS/2 REXX Batch file  |  2002-07-02  |  863b  |  36 lines
  1. /*****************************/
  2. /* Setup to install a Fixpak */
  3. /*****************************/
  4. '@Echo on'
  5.  
  6. /***********************************/
  7. /* Register all REXXUTIL functions */
  8. /***********************************/
  9. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  10. Call SysLoadFuncs
  11.  
  12. curdir=Directory()
  13. /*************************************/
  14. /* Find current dir and change to    */
  15. /* tools dir.                        */
  16. /*************************************/
  17. Parse source . . me .
  18. path=Filespec('DRIVE',me)||Filespec('PATH',me)
  19. path=substr(path,1,length(path)-1)
  20. 'SET CSFCDROMDIR='path
  21. trg=Directory('TOOLS')
  22. 'SET CSFUTILPATH='trg
  23.  
  24. /*****************/
  25. /* Start service */
  26. /*****************/
  27. Call Directory(trg)
  28. '@START SERVICE'
  29.  
  30. /************/
  31. /*   Exit   */
  32. /************/
  33. Done:
  34. Call Directory curdir
  35. Exit
  36.