/* REXX */                                                                      
PARSE SOURCE ztso zorg zexec zddname zdsn zcall zenv zadrsp ztoken              
SAY          ztso zorg zexec zddname zdsn zcall zenv zadrsp ztoken              
EXIT 0