/*******************************************************************/           
/* REXXTRY -- NetView REXX command list                            */           
/*    This can be used as a NetView command from an operator to    */           
/*      simulate the results of an expression if it was executed   */           
/*      in REXX.  REXXTRY can be issued as a stand-alone command,  */           
/*      or from within a NetView PIPE.                             */           
/*                                                                 */           
/* Examples:                                                       */           
/*   - REXXTRY SAY DATE()                                          */           
/*   - PIPE LIT /say date() time()/ | NETV REXXTRY | CONS          */           
/*                                                                 */           
/* Author: Tom Bakita, 1993                                        */           
/*******************************************************************/           
ARG A                                                                           
IF A = '' THEN                                                                  
DO                                                                              
  'PIPE SAFE * | STEM X.'                                                       
  DO REXXTRY = 1 TO X.0                                                         
     INTERPRET X.REXXTRY;                                                       
  END                                                                           
END                                                                             
ELSE                                                                            
 INTERPRET A