home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 29 Fixes_o / 29-Fixes_o.zip / ip20665.3d1 / CIDINST.CMD < prev    next >
OS/2 REXX Batch file  |  1996-03-08  |  5KB  |  96 lines
  1. /*******************************************************************************
  2. * ADSTAR Distributed Storage Manager                                           *
  3. *                                                                              *
  4. * Licensed Materials - Property of IBM                                         *
  5. *                                                                              *
  6. * (C) Copyright IBM Corporation 1990, 1996.                                    *
  7. * All rights reserved.                                                         *
  8. *                                                                              *
  9. * Refer to Copyright Instructions.                                             *
  10. *******************************************************************************/
  11. '@echo off'
  12. call PrintCopyWrite
  13.  
  14. /******************************************************************************/
  15. /* Change the contents of the InstallFilesDirectory variable to indicate      */
  16. /* the drive and directory where the ADSM installation files are located.     */
  17. /******************************************************************************/
  18. InstallFilesDirectory = "D:\DSMINST\"
  19.  
  20. /******************************************************************************/
  21. /* Change the contents of the Action variable to indicate the action you want */
  22. /* performed.  The valid actions are:                                         */
  23. /*   'I' for Install                                                          */
  24. /*   'D' for Delete                                                           */
  25. /*   'U' for Update                                                           */
  26. /*   'R' for Restore                                                          */
  27. /******************************************************************************/
  28. Action = 'I'
  29.  
  30. Action = translate( Action )                     /* Ensure uppercase          */
  31. /******************************************************************************/
  32. /* The ResponseFileName variable should contain the name and path of the      */
  33. /* response file that you want to use.                                        */
  34. /******************************************************************************/
  35. ResponseFileName  = 'D:\DSMINST\ADSMRESP.DAT'
  36.  
  37. /******************************************************************************/
  38. /* The ErrorLog variable tell the installer the path and file name for the    */
  39. /* error log file.                                                            */
  40. /******************************************************************************/
  41. ErrorLog          = 'C:\ADSMINST.ERR'
  42. HistoryLog        = 'C:\ADSMHIST.LOG'
  43. /******************************************************************************/
  44. /* Invoke INSTALL to install the ADSM client using the parameter specified    */
  45. /* above.                                                                     */
  46. /******************************************************************************/
  47. InstallFilesDirectory'INSTALL',
  48.   '/X',
  49.   '/A:' || Action,
  50.   '/R:' || ResponseFileName,
  51.   '/L1:' || ErrorLog,
  52.   '/L2:' || HistoryLog
  53.  
  54. retcode = rc                                     /* Save the return code      */
  55. select
  56.   when Action = 'I' then
  57.     ActionMsg = 'Installation'
  58.   when Action = 'D' then
  59.     ActionMsg = 'Deletion'
  60.   when Action = 'R' then
  61.     ActionMsg = 'Restore'
  62.   when Action = 'U' then
  63.     ActionMsg = 'Update'
  64.   otherwise
  65.     nop
  66. end                                              /* End select                */
  67.  
  68. /******************************************************************************/
  69. /* Issue infomational messages based on the return code from INSTALL.         */
  70. /******************************************************************************/
  71. say ''
  72. if (retcode = 0) | (retcode = -512)  then
  73.   say ActionMsg 'of the ADSM Client for OS/2 has completed successfully.'
  74. else
  75. do
  76.   say ActionMsg 'of the ADSM Client for OS/2 failed.'
  77.   say 'More information regarding the failure is in the file:' ErrorLog
  78. end
  79.  
  80. say 'INSTALL exited with a return code: 0x'd2x(retcode, 4)
  81. exit
  82.  
  83.  
  84. PrintCopyWrite:
  85.   say ''
  86.   say 'ADSTAR Distributed Storage Manager'
  87.   say 'CID Installation Program'
  88.   say ''
  89.   say 'Licensed Materials - Property of IBM'
  90.   say ''
  91.   say '5655-119 (C) Copyright IBM Corporation 1990, 1996. All rights reserved.'
  92.   say 'U.S. Government Users Restricted Rights - Use, duplication or disclosure'
  93.   say 'restricted by GSA ADP Schedule Contract with IBM Corporation.'
  94.   say ''
  95. return
  96.