REXX to list PDS member information

Simple REXX program to list PDS member information:

/*rexx*/

dsn = "PETERT.HC.REXX"

DUMMY =OUTTRAP("MEMB.","*")

"LISTDS '"dsn"' MEMBERS"

do i = 1 to memb.0

if SUBSTR(strip(memb.i),1,3) = 'LIS' then

say "memeber :" memb.i

end