/* REXX */                                                                      
SAY 'Subroutine:'                                                               
CALL PARSETEM 'Ken','Linda'                                                     
SAY                                                                             
SAY 'Function:'                                                                 
SAY  PARSETEM('Bob','Sue')                                                      
SAY                                                                             
SAY 'Command:'                                                                  
ADDRESS TSO '%PARSETEM' 'Ken,Linda'