/* 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
 
vollist=""
if pos("'",dsn)¬=0 then do                    /* opt3.4 dsn */
 address ISPEXEC "VGET (zdlvol)" ; vollist=zdlvol 
end
 
dsn=strip(dsn,,"'")
 
 if pos(".",dsn)=1 then dsn=userid() || dsn
 
if pos(".",dsn)¬=0 then ,
   pdslist=dsn
else , /* set default */
   pdslist=userid()".PRIVATE.ASSEMBLE" ,
           userid()".PRIVATE.DATA"     ,
           userid()".PRIVATE.DOC"      ,
           userid()".EXEC"             ,
           userid()".PRIVATE.JCL"      ,
           userid()".PRIVATE.SCRIPT"   ,
           userid()".PRIVATE.SELCOPY"  ,
           userid()".PRIVATE.TEST.JCL"
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="SYS1.HELP(PDSFLIST)"    /* Help file variable, new with version 3.2 */ 
opclass="R"         /* Output class for Print function, new with version 3.2 */ 
   
call pdsflist    /* Display desired members from pdslist datasets */
exit