PDS member-list inquiry

[cyclops]

I am attempting to get a listing of all members in a PDS and the last time each of the members were updated.

Attempt1:
I looked at LISTDS and that just provides the members
DUMMY = OUTTRAP("MEM.")
"LISTDS '"my-pds"' MEMBERS"
DUMMY = OUTTRAP("OFF")

Attempt2:
I looked at LMMLIST and STATS (which would provide the information) only works within ISPF and not in REXX.
"ISPEXEC LMINIT DATAID(DSNM) DATASET('my-pds') ENQ(SHR)"
"ISPEXEC LMOPEN DATAID(&DSNM) OPTION(INPUT)"
DO FOREVER
"ISPEXEC LMMLIST DATAID(&DSNM) OPTION(LIST) MEMBER(MEM) STATS(YES)"
IF RC <> 0 THEN LEAVE
SAY MEM
END
"ISPEXEC LMCLOSE DATAID(&DSNM)"

Any help would be appreciated...

 

[rexxhead]

You can read the directory directly:
http://web.tampabay.rr.com/mvsrexx/REXX/dirread.txt

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster