home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 29 Fixes_o / 29-Fixes_o.zip / ipdsfi.zip / instfix1.cmd < prev    next >
OS/2 REXX Batch file  |  1994-04-15  |  649b  |  22 lines
  1. /* Driver program for the fix installation program */
  2. /* of IBM PERSONAL DICTATION SYSTEM */
  3.  
  4.  
  5.   parse source full_cmd_file       /* get the drive and path of the cmd file */
  6.  
  7.   parse var full_cmd_file os2_string invoked_from cmd_file
  8.   src_drv = filespec("drive", cmd_file)  /* extract the drive */
  9.   src_path = filespec("path", cmd_file)  /* extract the path */
  10.  
  11.   /* get the current directory */
  12.   cdir = directory()
  13.  
  14.   /* Change to the drive on which installation program resides */
  15.   instdir = directory(src_drv||src_path)
  16.   say " "
  17.  
  18.   call install fix1.lst
  19.  
  20.   /* Return to the original directory */
  21.   call directory cdir
  22.