home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / toolkit / wps / wpstutor / install.cmd next >
OS/2 REXX Batch file  |  1996-11-19  |  1KB  |  26 lines
  1. /* Register the WPSTutorial class and create an object instance. */
  2.  
  3. /* Load the REXX utility */
  4. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. Call SysLoadFuncs
  6.  
  7. /* Make sure the proper directories have been created and copy   */
  8. /* the required files to those directories.                      */
  9. Call SysMkDir '..\..\..\DLL'
  10. COPY 'wpstutor.dll' '..\..\..\DLL'
  11. Call SysMkDir '..\..\..\BIN'
  12. COPY 'showdesc.exe' '..\..\..\BIN'
  13.  
  14. /* Register the class with the Workplace Shell                   */
  15. if SysRegisterObjectClass( 'WPSTutorial', 'WPSTUTOR')
  16.         then say 'WPSTutorial class registered sucessfully.'
  17.         else say 'Error registering the WPSTutorial class.'
  18.  
  19. /* Create an object instance of the class                        */
  20. if SysCreateObject( 'WPSTutorial', 'WPSTutorial', '<WP_DESKTOP>',,
  21.                     'OBJECTID=WPSTUT001')
  22.         then say 'WPSTutorial instance created sucessfully.'
  23.         else say 'Error creating WPSTutorial instance.'
  24.  
  25. Exit 0
  26.