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