CL Program QRYXREF <verbatim> PGM PARM(&LIBRARY) DCL VAR(&LIBRARY) TYPE(*CHAR) LEN(10) /* SET UP FILE LIST OF ALL PROGRAMS REQUESTED. */ DSPOBJD OBJ(&LIBRARY/*ALL) OBJTYPE(*QRYDFN) + OUTPUT(*OUTFILE) OUTFILE(QTEMP/QRYLIST) OVRDBF FILE(QRYLIST) TOFILE(QTEMP/QRYLIST) CRTSRCPF FILE(QTEMP/QQRYSRC) OVRDBF FILE(QQRYSRC) TOFILE(QTEMP/QQRYSRC) /* RUN THE QUERY X-REF ROUTINE. */ CALL PGM(QRYXREFR1) ENDPGM RETURN </verbatim> -- Main.MartinRowe - 07 Dec 2010
This topic: DBG400
>
SourceCodeList
>
ClSource
>
ClQRYXREF
Topic revision: r1 - 07 Dec 2010 - 17:10:55 -
MartinRowe
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400?
Send feedback