home *** CD-ROM | disk | FTP | other *** search
/ IBM CD Showcase / OS2_CD_ROM.iso / smce0001 / wplace / tutor / wptutor / createwp.cmd next >
Encoding:
Text File  |  1993-06-18  |  995 b   |  22 lines
  1. /**************************************************************************/
  2. /* CreateWP.CMD - Creates a sample folder on the desktop and opens it.    */
  3. /*                This folder is for use with the Workplace/2 Tutorial.   */
  4. /*                                                                        */
  5. /* Bud Ramsey  06/18/93                                                   */
  6. /**************************************************************************/
  7.  
  8. Parse Arg source_id target_id open_flg;                                            
  9. object_id = Strip(source_id,'B','"');
  10. object_id = Strip(target_id,'B','"');
  11.  
  12. 'xcopy 'source_id'\*.* 'target_id'\*.* /S'
  13.  
  14. If open_flg = '' Then do;
  15.  
  16.   Call RxFuncAdd 'SysLoadFuncs', 'rexxutil', 'SysLoadFuncs';                
  17.   Call SysLoadFuncs                                                         
  18.   Call RxFuncAdd 'SysSetObjectData', 'rexxutil', 'SysSetObjectData'
  19.   Call SysSetObjectData target_id, 'OPEN=DEFAULT';
  20. end
  21. 
  22.