zOs/REXX/EXSOURCE

/* rexx */
parse source src
say 'source' src
parse source . . nm dd dsn .
say 'name' nm 'dd' dd 'dsn' dsn
if dd \= '?' then do
    say 'listDsi' listDsi(dd 'file')
    say 'sysDsName' sysDsName
    end
exit