/* REXX    SCAN a DDName for DCB's                                   */
 
address TSO
tv = ""
arg ddname . "TRACE" tv .
parse value tv "O"      with  tv .
rc = Trace(tv)
 
"LA" ddname "((STACK"
pull dsnstr
"CLEAR"
do i = 1 to Words(dsnstr)
   @@ = Outtrap("ld.")
   "LISTD '"Word(dsnstr,i)"'"
   @@ = Outtrap("off")
   dcb  = Strip(ld.3)
   say Left(Word(dsnstr,i),47) dcb
end
exit