home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 December / VPR9712B.ISO / IBM_OS / CSD / WARP4 / FX00002 / SERVICE.CMD < prev    next >
OS/2 REXX Batch file  |  1997-05-30  |  2KB  |  66 lines
  1. @echo off
  2. cls
  3. setlocal
  4. if '%1'=='' goto skip_arch
  5. set CSD_ARCHIVE=%1
  6. :skip_arch
  7. if not '%CSD_SOURCE%'=='' goto entry
  8. @echo on
  9. @echo . FixPak FX00002 を適用されるお客様へ
  10. @echo .
  11. @echo . この FixPak が適用可能なシステムは、以下の通りです。
  12. @echo .
  13. @echo .     ｏ OS/2 Warp Version 4 - 日本語版 (XRJ4000_)
  14. @echo .
  15. @echo . 詳細は README.TXT を参照してください。
  16. @echo .
  17. @echo off
  18. pause
  19. if '%CSD_SOURCE%'=='' goto check
  20. :entry
  21. @echo off
  22. set t=%CSD_TARGET%
  23. set s=%CSD_SOURCE%
  24. For %%v In (UnPack2 Erase Copy) Do Set %%v=%%v
  25. set STDOUT=NUL
  26. set STDERR=NUL
  27. :start
  28. echo -------------------------------------  1>%STDOUT% 2>%STDERR%
  29. %copy%    %s%\UNPACK2.EXE  %t%\             1>%STDOUT% 2>%STDERR%
  30. %copy%    %s%\csdcmd.exe   %t%\             1>%STDOUT% 2>%STDERR%
  31. %copy%    %s%\csdinst.exe  %t%\os2\install  1>%STDOUT% 2>%STDERR%
  32. %unpack2% %s%\csdtools     %t%\ /P          1>%STDOUT% 2>%STDERR%
  33. %t%
  34. %t%\csdcmd.exe /c %t%\service2.cmd
  35. %erase%   %t%\rplserv2.cmd 1>%stdout% 2>%stderr%
  36.  
  37. if not '%csd_boot%'=='A:' goto skip_rexx
  38. rem   if not exist %s%\fix\os2.1\REXX goto skip_rexx
  39.    if '%csd_archive%'=='/r' goto arch_rexx
  40.    if '%csd_archive%'=='/R' goto arch_rexx
  41. rem      %unpack2%  %s%\fix\os2.1\REXX   %t%\ /P  1>%stdout% 2>%stderr%
  42.       goto skip_rexx
  43. :arch_rexx
  44.    %copy%  %t%\REXX.DLL     %t%\OS2\DLL     1>%STDOUT% 2>%STDERR%
  45.    %copy%  %t%\REXXAPI.DLL  %t%\OS2\DLL     1>%STDOUT% 2>%STDERR%
  46.    %copy%  %t%\REXXUTIL.DLL %t%\OS2\DLL     1>%STDOUT% 2>%STDERR%
  47.    %erase% %t%\REXX.DLL     1>%STDOUT% 2>%STDERR%
  48.    %erase% %t%\REXXAPI.DLL  1>%STDOUT% 2>%STDERR%
  49.    %erase% %t%\REXXUTIL.DLL 1>%STDOUT% 2>%STDERR%
  50. :skip_rexx
  51.  
  52. if not exist %t%\service2.cmd goto end
  53.    call %s%\ptf_end  %t%\service2.cmd
  54.    if '%csd_boot%'=='A:' goto end
  55.       pause  1>%stdout% 2>%stderr%
  56. goto end
  57.  
  58. :check
  59. if '%csd_archive%'=='/r' goto service2
  60. if '%csd_archive%'=='/R' goto service2
  61.    call csdinst @CSD.DAT  /b:SERVICE.CMD /f
  62.    goto end
  63. :service2
  64.    call csdinst @CSDR.DAT  /b:SERVICE.CMD /f
  65. :end
  66.