home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor3.zip / VNDINST / FRNTENDS / WP50 / PACKRUN.CMD < prev   
OS/2 REXX Batch file  |  1996-04-04  |  2KB  |  66 lines
  1. /******************************************************************
  2.  
  3. Description:    WordPerfect 5.0 Run Exec.
  4.  
  5. Details:        This exec is used to run the WordPerfect program.
  6.  
  7.                 The first time this exec is run, the user will
  8.                 be prompted for a local directory to store
  9.                 configuration files.  This directory spec is
  10.                 required and is used as command params to WP.
  11.  
  12. Dependencies:
  13.    Externals:   RXUTILS.DLL - Part of VENDOR package.
  14.    Drive(s):    None
  15.    Directories: All DLL and EXE files in same directory.
  16.    Window Type: FS/WIN
  17.    App Title:   None
  18.  
  19. Last Updated:   9/24/92
  20. ******************************************************************/
  21. '@ECHO OFF'
  22. trace 'o'
  23.  
  24. call RxFuncAdd 'RXDIREXIST',  'RXUTILS', 'RXDIREXIST'
  25. call RxFuncAdd 'RXMKDIR',     'RXUTILS', 'RXMKDIR'
  26. call RxFuncAdd 'RXOS2INI',    'RXUTILS', 'RXOS2INI'
  27.  
  28.  
  29. /* Give header */
  30. say
  31. say ' WordPerfect 5.0'
  32. say ' ---------------'
  33. say
  34.  
  35. /***************************************************************************/
  36. /** Check if Local Directory exists, if not tell user to run installation **/
  37. /***************************************************************************/
  38.  
  39. Local.Directory = RxOS2Ini(, 'Directories', 'WordPerfect')
  40. if Local.Directory = '$RXERROR' then do
  41.    Local.Directory = RxOS2Ini(, 'WORDPERFECT', 'WORKDIR')
  42.    if Local.Directory <> '$RXERROR' then do
  43.       call RxOS2Ini , 'Directories', 'WordPerfect', Local.Directory
  44.       call RxOS2Ini , 'WORDPERFECT', 'WORKDIR', '$RXDEL'
  45.    end
  46. end
  47. if rxDirExist(Local.Directory)=0 then do
  48.    say
  49.    say d2c(7)|| ' Local WordPerfect 5.0 directory not set.'
  50.    say ' You must run the installation program.'
  51.    say
  52.    call RxPause
  53.    'exit 10'
  54. end  /* Do */
  55.  
  56. /** Run WordPerfect 5.0 **/
  57. say
  58. say ' Starting WordPerfert 5.0...'
  59. say
  60. say ' Local directory = 'Local.Directory
  61. say
  62. say ' Please wait a moment while WP 5.0 is loaded.'
  63. say '       ( This may take more than a minute )'
  64. 'WP /PS='Local.Directory' /D='Local.Directory
  65. 'exit'
  66.