Re: API for file last change date

Hi Scott,

Birgitta's SQL solution gave me what I needed. No need to waste a lot of time on this, but I am curious why QUSRMBRD did not return what I needed.

Below is the code, copied from somewhere on the web.....

D szMbrd0100 DS INZ
D nBytesRtn 10I 0
D nBytesAval 10I 0
D szFileName 10A
D szLibName 10A
D szMbrName 10A
D szFileAttr 10A
D szSrcType 10A
D dtCrtDate 13A
D dtLstChg 13A
D szMbrText 50A
D bIsSource 1A
D RmtFile 1A
D LglPhyFile 1A
D ODPSharing 1A
D filler2 2A
D**** RECORD COUNT
D RecCount 10I 0
D DltRecCnt 10I 0
D DataSpaceSz 10I 0
D AccpthSz 10I 0
D NbrBasedOnMbr 10I 0

D nBufLen S 10I 0
D szFmt S 8A Inz('MBRD0100')
D szQualName S 20A
D szSrcMbr S 10A
D bOvr S 1A Inz('0')
/free
//*****************************************************

szQualName = 'RQAVLPF ' + '@DATAX ';
nBufLen = %size(szMbrD0100);
szSrcMbr = 'RQAVLPF';

C Call(E) 'QUSRMBRD'
C Parm szMbrD0100
C Parm nBufLen
C Parm szFmt
C Parm szQualName
C Parm szSrcMbr
C Parm bOvr

Here are the results, DTLSTCHG is blanks:

EVAL szMbrD0100

NBYTESRTN OF SZMBRD0100 = 135
NBYTESAVAL OF SZMBRD0100 = 135
SZFILENAME OF SZMBRD0100 = 'RQAVLPF '
SZLIBNAME OF SZMBRD0100 = '@DATAX '
SZMBRNAME OF SZMBRD0100 = 'RQAVLPF '
SZFILEATTR OF SZMBRD0100 = 'PF '
SZSRCTYPE OF SZMBRD0100 = ' '
DTCRTDATE OF SZMBRD0100 = '1180802132901'
DTLSTCHG OF SZMBRD0100 = ' '
SZMBRTEXT OF SZMBRD0100 = 'AVL data '

DSPFD displays the following
Source Creation Last Change Deleted
Member Size Type Date Date Time Records Records
RQAVLPF 1204224 08/02/18 08/02/18 14:46:37 1812 0


Thanks
Ron