/* REXX */                                                                      
PARSE ARG parm                                                                  
PARSE UPPER VAR parm parm_uc                                                    
SAY parm                                                                        
SAY parm_uc