Re: DSPFD QAFDBASI (QWHFDBAS)

["Glenn Gundermann" <ggundermann@xxxxxx>]

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.