home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor3.zip / VNDINST / FRNTENDS / OIS / PACKRUN.CMD < prev   
OS/2 REXX Batch file  |  1996-04-04  |  2KB  |  58 lines
  1. /******************************************************************
  2.  
  3. Description:    IBM Image Support Run Exec.
  4.  
  5. Details:        This exec sets up the appropriate IBM OS/2 Image
  6.                 Support defaults.
  7.  
  8. Dependencies:
  9.    Externals:   RXUTILS.DLL - Part of VENDOR package.
  10.                 HIDEWIN.EXE - Part of VENDOR package.
  11.    Drive(s):    Always use same drive.
  12.    Directories: DLLs and EXEs in current directory.
  13.    Window Type: FS/Win
  14.    App Title:   OS/2 Image Support
  15.  
  16. Last Updated:   9/9/91
  17. ******************************************************************/
  18.  trace 'O'
  19.  '@echo off'
  20.  
  21. /* Set up the PATH and LIBPATH strings */
  22.  parse source . . exec
  23.  Odr=left(exec, lastpos('\', exec))
  24.  OS2='OS2ENVIRONMENT'
  25.  
  26.  say; say 'Setting up IBM OS/2 Image Support environment for this session...'
  27.  
  28.  oldpath = value('PATH',,OS2)
  29.  newpath = Odr';'oldpath
  30.  olddpath = value('DPATH',,OS2)
  31.  newdpath = Odr';'olddpath
  32.  oldhelp = value('HELP',,OS2)
  33.  newhelp = Odr'HELP;'oldhelp
  34.  oldlib  = value('LIB',,OS2)
  35.  newlib  = Odr'LIB;'oldlib
  36.  oldinc  = value('INCLUDE',,OS2)
  37.  newinc  = Odr'INCLUDE;'oldinc
  38.  
  39.  call value 'PATH',      newpath,  OS2
  40.  call value 'DPATH',     newdpath, OS2
  41.  call value 'HELP',      newhelp,  OS2
  42.  call value 'LIB',       newlib,   OS2
  43.  call value 'INCLUDE',   newinc,   OS2
  44.  say 'Done'; say
  45.  
  46. /** Run OIS **/
  47.  say
  48.  say ' Starting OS/2 Image Support...'
  49.  say
  50.  say ' Please wait a moment while OS/2 Image Support is loaded.'
  51.  say '       ( This may take a short while )'
  52.  say
  53.  say ' This window will be hidden after OS/2 Image Support is started...'
  54.  'START HIDEWIN /D=20 OS/2 Image Support'
  55.  'OIS'
  56.  
  57. 'exit 0'
  58.