/* REXX */                                                                      
PARSE SOURCE ztso zorg zexec zddname zdsn zcall zenv zadrsp ztoken              
SAY          ztso zorg zexec zddname zdsn zcall zenv zadrsp ztoken              
SAY                                                                             
SAY 'Subroutine:'                                                               
CALL PARSESRC                                                                   
SAY RESULT                                                                      
SAY                                                                             
SAY 'Function:'                                                                 
SAY PARSESRC()                                                                  
SAY                                                                             
SAY 'Command:'                                                                  
ADDRESS TSO '%PARSESRC'                                                         
SAY RC