Re: DSPFD QAFDBASI (QWHFDBAS)

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.