Author: Willy Jensen
Posted: Thu Jan 05, 2017 10:17 pm (GMT 5.5)
Short working sample:
_________________
WJ
Posted: Thu Jan 05, 2017 10:17 pm (GMT 5.5)
Short working sample:
| Code: |
/* rexx */ Address TSO sds = 'a.lib.data' mpfx='VSAM' mpfxl=length(mpfx) zz=outtrap('smbr.') "listds '"sds"' members" zz=outtrap('off') do n=7 to smbr.0 say 'Source member:' smbr.n if Abbrev(strip(smbr.n),mpfx,mpfxl) then say 'match:' smbr.n end |
_________________
WJ