Hi Michael,

I created a file call SRCFLIST. I didn't bother with the field text and
column headings and I'm sure others can show a way of referencing another
file instead of hard-coding the field lengths. But this is what I did.

/* Create table. */
CREATE TABLE CASRCLIB/SRCFLIST
(DBXFIL CHAR (10),
DBXLIB CHAR (10),
DBXATR CHAR ( 2),
DBXTYP CHAR ( 1));

/* Descriptive Table Text. */
label on table CASRCLIB/SRCFLIST
Is 'File used with FINDSRC';
comment on table casrclib/srcflist
Is 'Provides a list of all source files on the system.';

Then run this every time I want to refresh the file.

/* Delete all records. */
DELETE FROM SRCFLIST;

/* Populate table. */
INSERT INTO SRCFLIST
SELECT DBXFIL, DBXLIB, DBXATR, DBXTYP
FROM QSYS/QADBXREF
WHERE DBXATR='PF' AND DBXTYP='S';

Hope this helps.

Glenn


I'm sorry, but I'm stuck. I can't seem to come up with the right search.

I just ran this command.

DSPFD FILE(*ALLUSR/*ALL) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*PF)
OUTFILE(MYLIB/MYFILE)

This gave me a file of all files that are in user libraries. I believe
that's what *ALLUSR stands for. Anyway, what I really want is to only
keep physical source files in this outfile. So I planned on deleting the
others after the command finishes. But I'm having an issue finding a
website explaining the fields in my newly created file. I understand
that
it's created from a template of QAFDBASI with a record format QWHFDBAS.
Before I do anything and put into production, I'd like to get a better
understanding of each field.

Does anyone know where I can find that information?

I pretty certain that I can select File type = 'S' but this is all I see
in
DBU...

File type: D=*DATA, S=*




Michael Schutte
Admin Professional
Bob Evans Farms, Inc.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].