home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxwps.zip / wps_nowh.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-07  |  2KB  |  50 lines
  1. /* Program name:  WPS_NOWH.CMD  Title: Figure 10             */
  2. /* REXX Report              Issue: Summer '95, page 42-51    */
  3. /* Article title: The Workplace Shell: Objects to the Core   */
  4. /* Author: Rony G. Flatscher                                 */
  5. /* Description: utilizing REXX to communicate with the       */
  6. /*              Workplace Shell                              */
  7. /* Program requirements: OS/2 Warp                           */
  8. /*                                                           */
  9.  
  10.  
  11. /* WPS_NOWH.CMD: demo setting and starting DOS-programs from nowhere*/
  12.  
  13. /* change the location to "<WP_DESKTOP>" to check the settings-page */
  14. location = "<WP_NOWHERE>"               /* the "NOWHERE"-location   */
  15.  
  16. title    = "Test of a DOS-Program from nowhere :-)"
  17. objectid = "<RGF TEST_DOS_IN_NOWHERE>"
  18. setup    = "PROGTYPE=WINDOWEDVDM;"                              ||,
  19.            "EXENAME=*;"                                         ||,
  20.            "PARAMETERS=/k mem.exe;"                             ||,
  21.            "STARTUPDIR=?:\;"                                    ||,
  22.            "SET COM_RECEIVE_BUFFER_FLUSH=SWITCH TO FOREGROUND;" ||,
  23.            "SET DOS_DEVICE=\os2\mdos\ANSI.SYS;"                 ||,
  24.            "SET DOS_VERSION=NETX.EXE^,5^,00^,255,"              ||,
  25.                            "WIN200.BIN^,10^,10^,4;"             ||,
  26.            "SET DOS_UMB=1;"                                     ||,
  27.            "SET EMS_MEMORY_LIMIT=0;"                            ||,
  28.            "SET IDLE_SECONDS=1;"                                ||,
  29.            "SET IDLE_SENSITIVITY=10;"                           ||,
  30.            "SET XMS_MEMORY_LIMIT=4096;"                         ||,
  31.            "OPEN=DEFAULT;"                                      ||,
  32.            "OBJECTID=" || objectid || ";"
  33.  
  34. ok = SysCreateObject("WPProgram", title, location, setup,,
  35.                      "R")         /* replace, if object exists      */
  36.  
  37. SAY "creating:" ojbectid "-" worked(ok)
  38. "@PAUSE"
  39.  
  40. SAY "Cleaning up ..."
  41. ok = SysDestroyObject(objectid)   /* OBJECTID of object             */
  42. SAY "destroying (deleting):" objectid "-" worked(ok)
  43.  
  44. EXIT
  45.  
  46. /* procedure to indicate successful/not successful                  */
  47. WORKED: PROCEDURE
  48.    IF ARG(1) THEN RETURN "successful."
  49.              ELSE RETURN "*** NOT succesful ***"
  50.