/* REXX ------------------------------------------------------------- */
/* Name:       ODER                                                   */
/* Function:   OR                                                     */
/*             same as: a = b ! c = d                                 */
/* Type:       REXX-Funktion                                          */
/* Author:     Norbert Haas                                           */
/* Input:      2 .. n comparisons                                     */
/* Output:     0 / 1 (False / True)                                   */
/* Example:    IF ODER(a = 1, b = 2) THEN ...                         */
/* Advantage:  Chars >!< od >|< are not needed (different machines)   */
/*                                                                    */
/* Version Author        Date       Why                               */
/* ------- ------------- ---------- --------------------------------- */
/* V01.01  N.Haas        28.05.2003 remarks in english                */
/* V01.00  N.Haas        05.02.2003 Erstellung                        */
/* ------------------------------------------------------------------ */
bool = 0                                                                
DO i = 1 TO ARG()                                                       
   bool = bool + ARG(i)                                                 
END                                                                     
                                                                        
IF bool > 0 THEN                                                        
   rc = 1                                                               
ELSE                                                                    
   rc = 0                                                               
EXIT rc