home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 July / Vpr9807b.iso / IBM_OS / CSD / WARP4 / FX00505 / SERVICE.CMD < prev    next >
OS/2 REXX Batch file  |  1998-04-17  |  3KB  |  85 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 FX00505 を適用されるお客様へ
  10. @echo .
  11. @echo . この FixPak が適用可能なシステムは、以下の通りです。
  12. @echo .
  13. @echo .     ｏ OS/2 Warp 4 日本語版 (XRJ4000_)
  14. @echo .     ｏ OS/2 Warp 4 日本語版 VoiceType 標準搭載 (XRJ4000_)
  15. @echo .     ｏ WorkSpace On-Demand Manager 日本語版 (XRJ4010_)
  16. @echo .     ｏ WorkSpace On-Demand 日本語版 (XRJ4010_)
  17. @echo .
  18. @echo . 詳細は README.TXT を参照してください。
  19. @echo .
  20. @echo off
  21. pause
  22. if '%CSD_SOURCE%'=='' goto check
  23. :entry
  24. @echo off
  25. set t=%CSD_TARGET%
  26. set s=%CSD_SOURCE%
  27. if not '%csd_boot%'=='A:' goto skip_chk_rexx
  28.    if exist %t%\os2\dll\CREXX.DLL goto error_rexx_msg
  29. :skip_chk_rexx
  30. For %%v In (UnPack2 Erase Copy) Do Set %%v=%%v
  31. set STDOUT=NUL
  32. set STDERR=NUL
  33. :start
  34. echo -------------------------------------  1>%STDOUT% 2>%STDERR%
  35. %copy%    %s%\UNPACK2.EXE  %t%\             1>%STDOUT% 2>%STDERR%
  36. %copy%    %s%\csdcmd.exe   %t%\             1>%STDOUT% 2>%STDERR%
  37. %copy%    %s%\csdinst.exe  %t%\os2\install  1>%STDOUT% 2>%STDERR%
  38. %unpack2% %s%\csdtools     %t%\ /P          1>%STDOUT% 2>%STDERR%
  39. %t%
  40. %t%\csdcmd.exe /c %t%\service2.cmd
  41. %erase%   %t%\rplserv2.cmd 1>%stdout% 2>%stderr%
  42.  
  43. if not '%csd_boot%'=='A:' goto skip_rexx
  44. rem   if not exist %s%\fix\os2.1\REXX goto skip_rexx
  45.    if '%csd_archive%'=='/r' goto arch_rexx
  46.    if '%csd_archive%'=='/R' goto arch_rexx
  47.    if not exist %s%\fix\os2.1\REXX goto skip_rexx
  48.       %unpack2%  %s%\fix\os2.1\REXX   %t%\ /P  1>%stdout% 2>%stderr%
  49.       goto skip_rexx
  50. :arch_rexx
  51.    %copy%  %t%\REXX.DLL     %t%\OS2\DLL     1>%STDOUT% 2>%STDERR%
  52.    %copy%  %t%\REXXAPI.DLL  %t%\OS2\DLL     1>%STDOUT% 2>%STDERR%
  53.    %copy%  %t%\REXXCRT.DLL  %t%\OS2\DLL     1>%STDOUT% 2>%STDERR%
  54.    %copy%  %t%\REXXUTIL.DLL %t%\OS2\DLL     1>%STDOUT% 2>%STDERR%
  55.    %erase% %t%\REXX.DLL     1>%STDOUT% 2>%STDERR%
  56.    %erase% %t%\REXXAPI.DLL  1>%STDOUT% 2>%STDERR%
  57.    %erase% %t%\REXXCRT.DLL  1>%STDOUT% 2>%STDERR%
  58.    %erase% %t%\REXXUTIL.DLL 1>%STDOUT% 2>%STDERR%
  59. :skip_rexx
  60.  
  61. if not exist %t%\service2.cmd goto end
  62.    call %s%\ptf_end  %t%\service2.cmd
  63.    if '%csd_boot%'=='A:' goto end
  64.       pause  1>%stdout% 2>%stderr%
  65. goto end
  66.  
  67. :check
  68. if '%csd_archive%'=='/r' goto service2
  69. if '%csd_archive%'=='/R' goto service2
  70.    call csdinst @CSD.DAT  /b:SERVICE.CMD /f
  71.    goto end
  72. :service2
  73.    call csdinst @CSDR.DAT  /b:SERVICE.CMD /f
  74.    goto end
  75. :error_rexx_msg
  76. @echo on
  77. @echo .
  78. @echo . FixPak の適用先のシステムにはオブジェクト指向 REXX インタープリターが
  79. @echo . 選択されています。手続き型 (従来型) REXX インタープリターに切り換えて
  80. @echo . から、再試行してください。
  81. @echo .
  82. @echo . 詳細は README.TXT を参照してください。
  83. @echo .
  84. :end
  85.