/* Rexx */
Trace
arg memlist hlq .
 
if hlq="" then do
 hlq=memlist ; memlist="*"
end
 
 upper hlq
  hlq=strip(strip(hlq,"T","*"),"T",".")   /* handle ispf 3.4 format */
 
dummy = outtrap("listcat.","*")
 "LISTCAT LEVEL("hlq")"
 listcatrc=rc
dummy = outtrap("OFF")
 
 if listcatrc¬=0 then do
   do n=1 for listcat.0
     say listcat.n
   end
    exit listcatrc
 end
 
pdslist=""
 
 do n=1 for listcat.0
   if word(listcat.n,1)="NONVSAM" then ,
     pdslist=pdslist word(listcat.n,3)
 end
 
pdslist=strip(pdslist,"L")
 
call pdsflist
exit