home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor3.zip / VNDINST / FRNTENDS / MSWORD / PACKRUN.CMD < prev    next >
OS/2 REXX Batch file  |  1996-04-04  |  2KB  |  70 lines
  1. /******************************************************************
  2.  
  3. Description:    MSWORD Run Exec.
  4.  
  5. Details:        This exec changes to the appropriate local MSWORD
  6.                 directory, modifies the current PATH and DPATH
  7.                 appropriately, and then runs MSWORD.
  8.  
  9. Dependencies:
  10.    Externals:   RXUTILS.DLL - Part of VENDOR package.
  11.    Drive(s):    None
  12.    Directories: None
  13.    Window Type: FS/Win
  14.    App Title:   None
  15.  
  16. Last Updated:   4/2/91
  17. ******************************************************************/
  18. trace 'O'
  19. '@echo off'
  20.  
  21.  
  22. /** Setup needed variables **/
  23. call RxFuncAdd 'RXGREP',  'RXUTILS', 'RXGREP'
  24. call RxFuncAdd 'RXPAUSE', 'RXUTILS', 'RXPAUSE'
  25. call RxFuncAdd 'RXMKDIR', 'RXUTILS', 'RXMKDIR'
  26. Env='OS2ENVIRONMENT'              /* Set the REXX environment var */
  27. oldpath=value('PATH', , Env)      /* Get current path             */
  28. olddpath=value('DPATH', , Env)    /* Get current dpath            */
  29. parse upper source . . exec       /* Get packrun filespec         */
  30. LanDrv=left(exec,3)               /* Get lan drive                */
  31.  
  32.  
  33. /** Give the header **/
  34. say; say
  35. say 'MSWORD'
  36. say '------'; say
  37.  
  38.  
  39. /** Make sure we can find the personal subdirectory **/
  40. pdir=value('MSWNET',,Env)         /* Get personal word dir if exists */
  41. if pdir='' then do                /* If not, scan CONFIG.SYS for it  */
  42.   if RxGrep('SET MSWNET=', 'C:\CONFIG.SYS', 'grep')=0 then
  43.    if grep.0>0 then do
  44.      pdir=space(substr(grep.1, pos('=', grep.1)+1))
  45.      call value 'MSWNET', pdir, Env
  46.    end
  47. end
  48.  
  49.  
  50. /** Run the program if the personal directory was found */
  51. if pdir='' then do
  52.   say d2c(7)
  53.   say 'Could not determine your MSWORD personal directory.'
  54.   say
  55.   say 'Please make sure you have run the installation program'
  56.   say 'for MSWORD.'; say
  57.   call RxPause
  58. end
  59. else do
  60.  call value 'PATH', LanDrv';'oldpath, Env
  61.  call value 'DPATH', LanDrv';'olddpath, Env
  62.  call RxMkDir pdir
  63.  call directory pdir
  64.  say 'Personal directory is 'pdir'.'
  65.  say
  66.  say 'Microsoft Word is loading, please wait...'
  67.  LanDrv'WORD'
  68. end
  69. 'exit'
  70.