/* REXX */                                                                      
PARSE ARG parm                                                                  
PARSE UPPER VAR parm parm_uc                                                    
SAY 'The data passed is:' parm                                                  
SAY                                                                             
                                                                                
parm_words = WORDS(parm)                                                        
SAY 'The number of words passed is:' parm_words                                 
SAY                                                                             
                                                                                
DO x = 1 TO parm_words                                                          
   SAY 'Word number' x 'is:' WORD(parm,x)                                       
   SAY '  It is' WORDLENGTH(parm,x) 'characters long'                           
   SAY '  It occurs in position' WORDINDEX(parm,x) 'of the passed data'         
   SAY                                                                          
END x                                                                           
                                                                                
parm_hello = WORDPOS('HELLO',parm_uc)                                           
IF parm_hello > 0                                                               
THEN SAY 'HELLO is word number:' parm_hello                                     
ELSE SAY 'HELLO was not passed'                                                 
                                                                                
EXIT 0