/* REXX Flist */
Trace
arg mems dsn
if mems='' then ,          /* Might have been invoked from ISPF/Edit */
   address isredit "MACRO (mems dsn) PROCESS"    /* if so grab parms */
upper mems dsn
 
if pos(".",mems)^=0 then do       /* parameters round the wrong way? */
  note=dsn ; dsn=mems ; mems=note                 /* then switch 'em */
end
 
 if dsn="" then do
   dsn=mems ; mems="*"
 end
 
vollist=""
if pos("'",dsn)^=0 then do                    /* opt3.4 dsn */
 address ISPEXEC "VGET (zdlvol)" ; vollist=zdlvol
end
 
dsn=strip(dsn,,"'")
 
pdslist=dsn
memlist=mems  /* member filter list */
 
/* Note : The following commented out line shows how to invoke PDSFLIST from */
/*        a private Library                                                  */
/* "CALL 'S00Z99.USER.LOAD(PDSFLIST)'"  */
 
helpdsn="ARS.PDSFLIST.HELP"            /* Help file DSN */
opclass="T"           /* Output class for Print function*/
 
/* safcheck="Y" */

call pdsflist     /* Display desired members from pdslist datasets */
exit