home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ICLUI.ZIP / HELLO6 / HELLOWPS.CMD < prev    next >
OS/2 REXX Batch file  |  1993-02-26  |  2KB  |  45 lines
  1. /******************************************************************************/
  2. /* HELLO WORLD SAMPLE PROGRAM - Version 6: Create WPS Folder (HELLOWPS.CPP)   */
  3. /*                                                                            */
  4. /* COPYRIGHT: Copyright (C) International Business Machines Corp., 1992,1993. */
  5. /*                                                                            */
  6. /* DISCLAIMER OF WARRANTIES:                                                  */
  7. /*   The following [enclosed] code is sample code created by IBM              */
  8. /*   Corporation.  This sample code is not part of any standard IBM product   */
  9. /*   and is provided to you solely for the purpose of assisting you in the    */
  10. /*   development of your applications.  The code is provided "AS IS",         */
  11. /*   without warranty of any kind.  IBM shall not be liable for any damages   */
  12. /*   arising out of your use of the sample code, even if they have been       */
  13. /*   advised of the possibility of such damages.                              */
  14. /******************************************************************************/
  15. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  16. Call SysLoadFuncs
  17.  
  18. '@echo off'
  19.  
  20. curDir=directory()
  21.  
  22. RetCode = SysCreateObject( "WPFolder", "C++ Hello World", "<WP_DESKTOP>", "OBJECTID=<CppHelloFolder>")
  23.  
  24. if RetCode then
  25.   say 'C++ Hello World Foiler has been created'
  26. else do
  27.   say 'Error creating C++ Hello World (WPFolder)'
  28.   end
  29.  
  30. RetCode = SysCreateObject( "WPProgram", "English Hello World", "<CppHelloFolder>", "OBJECTID=<Helloe>;EXENAME="curDir"\HELLO6.EXE;PROGTYPE=PM;STARTUPDIR="curDir";ICONFILE="curDir"\ahellow6.ico;ASSOCFILTER=*.hlo;ASSOCTYPE=Plain Text")
  31.  
  32. if RetCode then
  33.   say 'English C++ Hello World Program 6 Workplace Object has been created'
  34. else do
  35.   say 'Error creating C++ Hellow World (WPProgram)'
  36.   end
  37.  
  38. RetCode = SysCreateObject( "WPProgram", "Portuguese Hello World", "<CppHelloFolder>", "OBJECTID=<Hellop>;EXENAME="curDir"\HELLO6.EXE;PROGTYPE=PM;STARTUPDIR="curDir";ICONFILE="curDir"\brazil.ico;PARAMETERS=/p")
  39.  
  40. if RetCode then
  41.   say 'Portuguese C++ Hello World Program 6 Workplace Object has been created'
  42. else do
  43.   say 'Error creating C++ Hellow World (WPProgram)'
  44.   end
  45.