zOs/REXX/EXMBRLST

parse arg pds
    if pds = '' then
        pds = wk.lctl
    oldtrap = outtrap()
    call outtrap o.
    address tso listDS pds members
    dsRC = rc
    call outtrap oldTrap
    say 'rc='rc 'count' o.0
    oy = o.0 + 99
    do ox=1 to o.0
        if o.ox == '--MEMBERS--' then
            oy = ox
        if ox > oy then
            say (ox-oy) strip(o.ox)
        else
            say '???' ox o.ox'|'
        end