SHARE
TWEET

Open Object Rexx code sample

a guest Jul 12th, 2016 169 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. /* Check, if the WPS support for Object REXX is installed             */
  2.  
  3.    if WPSSupportInstalled() = 1 then
  4.    do
  5.      say 'The WPS support for Object REXX is installed.'
  6.    end /* if */
  7.    else
  8.    do
  9.      say 'The WPS support for Object REXX is not installed.'
  10.      say '(Run "WPSINST + " to install the support)'
  11.    end /* else */
  12. exit
  13.  
  14. /* ------------------------------------------------------------------ */
  15. /* function: Check if the WPS support for Object REXX is installed    */
  16. /*                                                                    */
  17. /* call:     thisRC = WPSSupportInstalled()                           */
  18. /*                                                                    */
  19. /* returns:  0 - the support is not installed                         */
  20. /*           1 - the support is installed                             */
  21. /*                                                                    */
  22. /*                                                                    */
  23. WPSSupportInstalled: PROCEDURE
  24.   return ( .WPS \= '.WPS' )
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top