/* REXX */                                                                      
                                                                                
SAY "Calling HELLO1 with 'Ken...'"                                              
CALL HELLO1 'Ken'                                                               
SAY "RESULT="RESULT                                                             
                                                                                
SAY "Calling HELLO1 with no parameter..."                                       
CALL HELLO1                                                                     
SAY "RESULT="RESULT                                                             
                                                                                
SAY "Invoking HELLO1 as a function with 'Bob'..."                               
x = HELLO1('Bob')                                                               
SAY "The function returned:" x                                                  
                                                                                
SAY "Invoking HELLO1 as a function with no parameter..."                        
x = HELLO1()                                                                    
SAY "The function returned:" x                                                  
                                                                                
/* */                                                                           
SAY                                                                             
/* */                                                                           
                                                                                
SAY "Calling HELLO2 with 'Ken'..."                                              
CALL HELLO2 'Ken'                                                               
SAY "RESULT="RESULT                                                             
                                                                                
SAY "Calling HELLO2 with no parameter..."                                       
CALL HELLO2                                                                     
SAY "RESULT="RESULT                                                             
                                                                                
SAY "Invoking HELLO2 as a function with 'Bob'..."                               
SAY "The function returned:" x                                                  
x = HELLO2('Bob')                                                               
                                                                                
SAY "Invoking HELLO2 as a function with no parameter..."                        
x = HELLO2()                                                                    
SAY "The function returned:" x                                                  
                                                                                
/* */                                                                           
SAY                                                                             
/* */                                                                           
                                                                                
SAY "Invoking HELLO1 as a command with 'Sue':"                                  
ADDRESS TSO "EXEC REXXA(HELLO1) 'Sue' EXEC"                                     
                                                                                
SAY "Invoking HELLO1 as a command with no parameter:"                           
ADDRESS TSO "EXEC REXXA(HELLO1) EXEC"                                           
                                                                                
SAY "Invoking HELLO2 as a command with 'Sue':"                                  
ADDRESS TSO "EXEC REXXA(HELLO2) 'Sue' EXEC"                                     
                                                                                
SAY "Invoking HELLO2 as a command with no parameter:"                           
ADDRESS TSO "EXEC REXXA(HELLO2) EXEC"