RE: CLP to save just srcf files

["Matt Laskosky" <matt@xxxxxxxxxxx>]

Having some problems sending direct to fbocch2595@xxxxxxx; let's see if
it will come through the list.
 
The following is a script that will create a file named SRCFLIST in
QTEMP and populate the file with all source files from all libraries on
your system. You can use this script to create a file and then read the
file in your program. Use the RUNSQLSTM to execute the script from a CL
program or the command line.
 
/* RUNSQLSTM SRCFILE(QSQLSRC) SRCMBR(CRTSRCFLST) COMMIT(*NONE)
*/
 

CREATE TABLE QTEMP/SRCFLIST

(DBXFIL         CHAR    (10),

 DBXLIB         CHAR    (10),

 DBXATR         CHAR    ( 2),

 DBXTYP         CHAR    ( 1))

;

INSERT INTO SRCFLIST

 SELECT DBXFIL, DBXLIB, DBXATR, DBXTYP

 FROM QSYS/QADBXREF

 WHERE DBXATR='PF' AND DBXTYP='S'

 
Thanks.
 
Matt Laskosky, Consultant
Dynamic Information Services Corporation
IBM Certified Specialist
Ph#:     734-476-5200
Email:   Matt@xxxxxxxxxxx
 
 
-----Original Message-----
From: fbocch2595@xxxxxxx [mailto:fbocch2595@xxxxxxx] 
Sent: Thursday, February 22, 2007 3:33 PM
To: matt@xxxxxxxxxxx
Subject: Re: CLP to save just srcf files
 
Hi Matt, thanks for the info.  How do I create a qmqry to include these
statements and send the output to a PF?  
Thanks, Frank
 
 
-----Original Message-----
From: matt@xxxxxxxxxxx
To: fbocch2595@xxxxxxx
Sent: Wed, 21 Feb 2007 9:58 AM
Subject: FW: CLP to save just srcf files
I am responding directly to you since I have not seen my response post
to MIDRANGE-L, see my response below.
 
Thanks.
 
Matt Laskosky, Consultant
Dynamic Information Services Corporation
IBM Certified Specialist
Ph#:     734-476-5200
Email:   Matt@xxxxxxxxxxx <javascript:parent.ComposeTo(> 
 
 
 
-----Original Message-----
From: Matt Laskosky [mailto:matt@xxxxxxxxxxx
<javascript:parent.ComposeTo(> ] 
Sent: Wednesday, February 21, 2007 9:53 AM
To: 'MIDRANGE-L@xxxxxxxxxxxx <javascript:parent.ComposeTo(> '
Subject: RE: CLP to save just srcf files
 
You can use QSYS/QADBXREF to determine if a file is a source file, I
generated a list of source files for a specific library using the
following SQL statement;
 
SELECT DBXFIL, DBXLIB, DBXATR, DBXTYP
FROM QSYS/QADBXREF
WHERE DBXATR='PF' AND DBXTYP='S'
AND DBXLIB=MYLIB
 
Thanks.
 
Matt Laskosky, Consultant
Dynamic Information Services Corporation
IBM Certified Specialist
Ph#:     734-476-5200
Email:   Matt@xxxxxxxxxxx <javascript:parent.ComposeTo(> 
 
 
 
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx <javascript:parent.ComposeTo(> 
[mailto:midrange-l-bounces@xxxxxxxxxxxx <javascript:parent.ComposeTo(> ]
On Behalf Of fbocch2595@xxxxxxx <javascript:parent.ComposeTo(> 
Sent: Wednesday, February 21, 2007 9:36 AM
To: midrange-l@xxxxxxxxxxxx <javascript:parent.ComposeTo(> 
Subject: CLP to save just srcf files
 
Hi, I want to save all source files to a savf and I've got a pgm that
does that by saving all files prefixed by Q* to a savf.  There are some
PF's that have files prefixed by Q so what's the best way to save only
the source files to the savf and not the PF's?
 
Thanks, Frank
 
p.s.  We don't have TAATOOLS which probably has something to do this.  
 
 
________________________________________________________________________
Check out the new AOL.  Most comprehensive set of free safety and
security tools, free access to millions of high-quality videos from
across the web, free AOL Mail and more.