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
WHERE DBXATR='PF' AND DBXTYP='S';
Hope this helps.
I'm sorry, but I'm stuck. I can't seem to come up with the right
I just ran this command.
DSPFD FILE(*ALLUSR/*ALL) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*PF)
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
QWHFDBAS.others after the command finishes. But I'm having an issue finding a
website explaining the fields in my newly created file. I understand
it's created from a template of QAFDBASI with a record format
seeBefore 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
File type: D=*DATA, S=*
Bob Evans Farms, Inc.
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives