You are here: DBG/400>DBG400 Web>SourceCodeList>ClSource>ClQRYXREF (07 Dec 2010, MartinRowe)EditAttach
CL Program QRYXREF 

             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

-- MartinRowe - 07 Dec 2010
Edit | Attach | Print version | History: r1 | Backlinks | View wiki text | Edit wiki text | More topic actions
Topic revision: r1 - 07 Dec 2010 - 17:10:55 - MartinRowe
 
This site is powered by FoswikiCopyright © 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