home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / install / instcmsu.cmd < prev    next >
Encoding:
Text File  |  1994-03-01  |  1.9 KB  |  61 lines
  1. /***********************************************************************
  2.    @ECHO OFF
  3.    ECHO OS/2 Procedures Language 2/REXX not installed.
  4.    ECHO Run Selective Installation from the Setup Folder to
  5.    ECHO install REXX support.
  6.    pause
  7.    exit
  8.  ***********************************************************************
  9.  * INSTCMSU                                                            *
  10.  *                                                                     *
  11.  * Purpose: To CD to the directory that contains the Communication     *
  12.  *          manager and call its install                               *
  13.  *                                                                     *
  14.  ***********************************************************************
  15.  *                (C) Copyright IBM Corporation 1994                   *
  16.  ***********************************************************************/
  17. parse arg CDr .
  18. trace 'o'
  19.  
  20. call Initialize
  21.  
  22. if RxCaDD.OpType = 'REMOVE'
  23.   then do
  24.     call 'MessageBox' Ctl.!ProgName, 'Remove is not supported.  Add the application',
  25.          'again to recreate the program object.'
  26.     call 'CaDDExit'
  27.     exit 0
  28.   end  /* Do */
  29.  
  30.  
  31. CurDir = directory()
  32. call directory CDr'comm\commgr\programs'
  33.  
  34. '@cmsetup'
  35. InstallRC = RC
  36.  
  37. call directory CurDir
  38.  
  39.  
  40. call 'CaddComplete' 12
  41. call 'CaddExit'
  42. exit 0
  43.  
  44.  
  45. Initialize:
  46. /*******************************************************************/
  47. /* Load required REXXUTIL (part of 2.0) utilites and the required  */
  48. /* RXUTILS (part of CORE and avail on OS2TOOLS) utilites           */
  49. /*******************************************************************/
  50. CurDir = directory()
  51. call directory CDr'INSTALL'
  52. call Rxfuncadd 'CADDINIT', 'RXCADD', 'CADDINIT'
  53. signal on syntax
  54. ver = 'CAddInit'()
  55. signal off syntax
  56. if abbrev(ver, 'ERROR:')
  57.   then call syntax
  58. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  59. call SysLoadFuncs
  60. return
  61.