home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / lotus.cmd < prev    next >
OS/2 REXX Batch file  |  1995-12-29  |  1KB  |  30 lines
  1. /* To Launch(open) a WPS program object(Lotus123(Dos)) */
  2.  
  3. IF LoadRexxUtil() THEN
  4.    EXIT
  5.  
  6. obj = '<WP_C123R23LOTUS>' /* Name of my 123 for DOS Object */
  7. settings = 'OPEN=DEFAULT;'
  8.  
  9. rc = SysSetObjectData(Obj, settings)
  10. IF rc = 0 THEN
  11.   SAY 'Could not open' obj
  12.  
  13. EXIT
  14.  
  15. LoadRexxUtil: PROCEDURE                                                   
  16.  IF RxFuncQuery( 'SysLoadFuncs' ) THEN                                    
  17.    DO                                                                     
  18.    IF RxFuncAdd('SysLoadFuncs','RexxUtil','SysLoadFuncs') THEN
  19.        DO                                                                 
  20.        SAY "Error: Couldn't load RexxUtil library."                       
  21.        RETURN 1                                                           
  22.        END                                                                
  23.    CALL SysLoadFuncs                                                      
  24.    END                                                                    
  25.  RETURN 0
  26.  
  27. /* You could instead use a simpler and more elegant approach */
  28. /* This will start 123 for DOS and retrieve my file !dummy.wk1 */
  29. 'START "Lotus 123 DOS"  /FS C:\123R23\123.EXE -wc:\123r22\data\!dummy.wk1'
  30.