home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / OS2 / SYSTEEM / CIDSETUP / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-07-09  |  1KB  |  46 lines
  1. /****************************************************************/
  2. /* INSTALL.CMD  REXX Program to install CIDSETUP object     */
  3. /*                                */
  4. /****************************************************************/
  5.  
  6.  
  7. /* Load REXXUTIL functions                    */
  8. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  9. call sysloadfuncs
  10.  
  11.  
  12. curdir = directory()
  13.  
  14. /* Add the CIDSETUP Program Object                */
  15.  
  16. classname='WPProgram'
  17. title=    'CIDSETUP'
  18. location= '<WP_DESKTOP>'
  19. setup=    'OBJECTID=<CIDSETUP>;'||,
  20.       'EXENAME='curdir'\cidsetup.exe;'||,
  21.       'ICONFILE='curdir'\cidsetup.ico;'
  22. call BuildObject      
  23.  
  24.  
  25. exit
  26.  
  27.  
  28. /****************************************************************/
  29. /* SUBROUTINES                            */
  30.  
  31. /****************************************************************/
  32. /* Build Object Procedure                    */
  33.  
  34. BuildObject:
  35.  
  36.   result = SysCreateObject(classname, title, location, setup, 'f')
  37.  
  38.   if result = 1 then 
  39.     say 'Successful!!  'title 'has been created!'
  40.   else 
  41.     say 'NOT!  Failed to create 'title'.  Return code is 'result
  42.  
  43. Return
  44.  
  45.  
  46.