home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 30 fixes_v / 30-fixes_v.zip / xyqcsdc.zip / SERVICE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-03-19  |  1KB  |  51 lines
  1. /*                                   */
  2. /* XY-Query CSD C Service CMD file   */
  3. /*                                   */
  4. share = 'OS2ENVIRONMENT'
  5. xyqpath = VALUE('XYQPATH',,share)
  6. if xyqpath = '' then signal notsetup
  7.  
  8. SAY ' '
  9. SAY '*************************'
  10. SAY '* XY-Query ServicePak C *'
  11. SAY '*************************'
  12. SAY ' '
  13. SAY 'If XY-Query is running, it will be terminated by the service procedure.'
  14. SAY ' '
  15. SAY 'This service must only be applied to XY-Query version 1.0'
  16. SAY ' '
  17. SAY 'Do you wish to apply service to 'xyqpath' (Y/N)?'
  18.  
  19. PULL answer
  20. if answer <> 'Y' then
  21. DO
  22.    SAY 'Service not applied.'
  23.    signal end
  24. END
  25.  
  26. SAY ' '
  27. SAY 'Applying service...'
  28. 'zap.exe xyqmon.exe'
  29. 'zap.exe xyquery.exe'
  30.  
  31. 'xcopy xyqinst.exe ' xyqpath
  32. 'xcopy xyqfn.dll ' xyqpath
  33. 'xcopy xyqrexfn.dll ' xyqpath
  34. 'xcopy syslevel.xyq ' xyqpath
  35.  
  36. signal okay
  37.  
  38. notsetup:
  39. SAY ' '
  40. SAY 'The XYQPATH variable is not set.'
  41. SAY 'Please ensure that XY-Query is installed correctly.'
  42. signal end
  43.  
  44. okay:
  45. SAY ' '
  46. SAY 'Service has been applied to ' xyqpath
  47. signal end
  48.  
  49. end:
  50.  
  51.