home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / p821_26a.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-02-10  |  1KB  |  57 lines
  1. /* P821 V2.6 Installation */
  2. '@Echo Off'
  3. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5. Signal On Failure Name FAILURE
  6. Signal On Halt Name HALT
  7. Signal On Syntax Name SYNTAX
  8. Call SysCls
  9. Say 'Installing P821 Version 2.6 ...'
  10. Say ''
  11.  
  12. Result = SysFileTree( 'P821.EXE', 'Files', 'F' )
  13. If Files.0 = 0 Then Do
  14.   Say 'ERROR: P821.EXE not found! Installation cancelled.'
  15.   Signal DONE
  16. End
  17.  
  18. Result = SysFileTree( 'P821_OS2.ICO', 'Files', 'F' )
  19. If Files.0 = 0 Then Do
  20.   Say 'ERROR: P821_OS2.ICO not found! Installation cancelled.'
  21.   Signal DONE
  22. End
  23.  
  24. Say ''
  25. Say 'Creating program object...'
  26. Say ''
  27.  
  28. Path = Directory()
  29. If Right(Path,1) <> '\' Then Do
  30.   Path = Path||'\'
  31. End
  32.  
  33. Type = 'WPProgram'
  34. Title = 'P821 V2.6'
  35. Folder = '<WP_DESKTOP>'
  36. Parms = 'EXENAME='Path'P821.EXE;PARAMETERS=[format options:] %*;OBJECTID=<P821>;ICONFILE='Path'P821_OS2.ICO;NOPRINT=YES;'
  37. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  38. If Result <> 1 Then Do
  39.     Say 'ERROR: Unable to create object. Installation cancelled.'
  40.     Signal DONE
  41. End
  42.  
  43. Say 'Installation completed!'
  44. Signal DONE
  45.  
  46. FAILURE:
  47. Say 'Installation error.'
  48. Signal DONE
  49. HALT:
  50. Say 'Installation error.'
  51. Signal DONE
  52. SYNTAX:
  53. Say 'Syntax error.'
  54. Signal DONE
  55. DONE:
  56. Exit
  57.