Actually yes... that would help quite abit. Thank you.


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
3776 South High Street, Columbus, OH 43207
Phone: 614/492-7419 Fax: 614/409-2017
Visit us on the web! www.bobevans.com

(Embedded image moved to file: pic02082.gif)




midrange-l-bounces@xxxxxxxxxxxx wrote on 03/05/2008 04:45:57 PM:

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 is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2020 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].