ClQRYXREF < DBG400

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