zOs/REXX.O13/EXLISTD

parse arg ds
if ds = '' then ds = 'wk.load'
x = Outtrap('Mem.')
address Tso "LISTD" ds "MEMBERS"
x = Outtrap('OFF')
trace ?r
do iMem = 1 To Mem.0 while Mem.iMem \= "--MEMBERS--"
    end
trace ?r
do iMem = iMem+1 To Mem.0
    say strip(mem.iMem)
    end
dsnMbrs: procedure expose m.
parse arg m, dsn
    oldOut = Outtrap('M.'m'.')
    call adrTso "LISTD" ds "MEMBERS"
x = Outtrap('OFF')
trace ?r
do iMem = 1 To Mem.0 while Mem.iMem \= "--MEMBERS--"
    end
trace ?r
do iMem = iMem+1 To Mem.0