×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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
midrange.com
