'DATA SET NAME..............:'SYSDSNAME
'VOLUME SERIAL ID...........:'SYSVOLUME
'DEVICE TYPE................:'SYSUNIT
'DATA SET TYPE..............:'SYSDSORG
'RECORD FORMAT..............:'SYSRECFM
'RECORD LENGTH..............:'SYSLRECL
'RECORD BLOCK SIZE..........:'SYSBLKSIZE
'KEY LENGTH.................:'SYSKEYLEN
'DATA SET CREATED...........:'SYSCREATE
'DATA SET LAST REFERENCED...:'SYSREFDATE
'DATA SET UPDATED...........:'SYSUPDATED
'DATA SET TYPE(PS/PDS)......:'SYSDSSMS
But i want to get the last modified date and if possible time too.
/* REXX LIST THE STATISTICS OF GIVEN PDS */
/* GETS THE PDS NAME */
SAY 'ENTER ANY PDS NAME'
PARSE UPPER PULL PDSNAME
ADDRESS TSO "ALLOC F(MYPDS) DA('"PDSNAME"') SHR REU"
ADDRESS ISPEXEC "LMINIT DATAID(DID) DDNAME(MYPDS) ENQ(SHWR)"
ADDRESS ISPEXEC "LMOPEN DATAID("DID") OPTION(INPUT)"
/* RETREIVE MEMBER LIST WITH LISTDS COMMAND */
X = OUTTRAP('VAR.')
"LISTDS '"PDSNAME"' MEMBERS"
X = OUTTRAP('OFF')
DO I = 7 TO VAR.0 /* PROCESS ALL MEMBERS OF SOURCE PDS */
MEM = LEFT(STRIP(SUBSTR(VAR.I,3,8)),8,' ')
ADDRESS ISPEXEC "LMMFIND DATAID("DID") MEMBER("MEM") STATS(YES)"
SAY 'MEMBER ' MEM 'WAS CREATED ON : ' ZLC4DATE,
' AND IS LAST MODIFIED ON : ' ZLM4DATE ZLMTIME ZLMSEC ,
' BY USER ID : ' ZLUSER
END
ADDRESS ISPEXEC "LMCLOSE DATAID("DID")"
ADDRESS ISPEXEC "LMFREE DATAID("DID")"
ADDRESS TSO "FREE F(MYPDS)"
Note that these stats can be modified by an external process and even turned off so should not be relied upon for something important - and if it is not important why is it being done?!