/* To Launch(open) a WPS program object(Lotus123(Dos)) */

IF LoadRexxUtil() THEN
   EXIT
 
obj = '<WP_C123R23LOTUS>' /* Name of my 123 for DOS Object */
settings = 'OPEN=DEFAULT;'

rc = SysSetObjectData(Obj, settings)
IF rc = 0 THEN
  SAY 'Could not open' obj
 
EXIT

LoadRexxUtil: PROCEDURE                                                   
 IF RxFuncQuery( 'SysLoadFuncs' ) THEN                                    
   DO                                                                     
   IF RxFuncAdd('SysLoadFuncs','RexxUtil','SysLoadFuncs') THEN
       DO                                                                 
       SAY "Error: Couldn't load RexxUtil library."                       
       RETURN 1                                                           
       END                                                                
   CALL SysLoadFuncs                                                      
   END                                                                    
 RETURN 0

/* You could instead use a simpler and more elegant approach */
/* This will start 123 for DOS and retrieve my file !dummy.wk1 */
'START "Lotus 123 DOS"  /FS C:\123R23\123.EXE -wc:\123r22\data\!dummy.wk1'