Open Object Rexx code sample

/* Check, if the WPS support for Object REXX is installed             */

   if WPSSupportInstalled() = 1 then
   do
     say 'The WPS support for Object REXX is installed.'
   end /* if */
   else
   do
     say 'The WPS support for Object REXX is not installed.'
     say '(Run "WPSINST + " to install the support)'
   end /* else */
exit

/* ------------------------------------------------------------------ */
/* function: Check if the WPS support for Object REXX is installed    */
/*                                                                    */
/* call:     thisRC = WPSSupportInstalled()                           */
/*                                                                    */
/* returns:  0 - the support is not installed                         */
/*           1 - the support is installed                             */
/*                                                                    */
/*                                                                    */
WPSSupportInstalled: PROCEDURE
  return ( .WPS \= '.WPS' )