Re: how to tell if LF is a Joined LF

Hi Jay

I would not expect to see the format level ID in the system catalogs -
those are very strongly tied to SQL, and SQL has no interest in that level
ID.

I did look at SYSTABLES, where information about the join files would
reside - no format level ID.

Now I have been curious - you can use the DSPFD command to get everything
you want - you'd run it twice into *OUTFILEs - one run would use
information type *RCDFMT, the other could use *JOIN and get you a list of
the JOIN specs

A caution - it is risky to directly query the QADB* tables - they require
elevated authority even to read them, while the SYS* views over them are
completely usable but don't necessarily pull everything.

One problem especially with QADB* files if you use native RPG I/O is that
they change, so SQL is the better approach there.

Regards
Vern


On 1/30/2018 7:47 AM, Jay Vaughn wrote:

Dave that seemed to accurately id the Jlf's - thanks! now do you know
where the fmt level id can be found in sys catalog files?

On Mon, Jan 29, 2018 at 8:10 PM, Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
wrote:

Dave Clark, rock on. I'm

going to try this first thing in the morning. Thank you!

Sent from my iPhone

On Jan 29, 2018, at 4:41 PM, dlclark@xxxxxxxxxxxxxxxx wrote:

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 01/29/2018 03:43:25
PM:

Allow write operation . . . . . . . . . . . : No
Allow update operation . . . . . . . . . . : ALWUPD *YES
Allow delete operation . . . . . . . . . . : ALWDLT *YES

external dds LF

OK, so it truly isn't insertable just like SYSTABLES said.
SYSTABLES is a view and one of the tables it is based on does have all
three attributes in it. So, perhaps you want to use the based on table,
instead.


Select DBXLIB, DBXFIL, DBXATR, DBXTYP, DBXSYS, DBXSO
, DBXINSERT, DBXUPD, DBXDELETE
FROM QSYS.QADBXREF
WHERE DBXATR in ('LF','VW')
AND DBXSYS <> 'Y'
AND (DBXINSERT <> 'Y' and DBXUPD <> 'Y' and DBXDELETE <> 'Y')
Order by DBXLIB, DBXFIL;


Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331




************************************************************

*********************************

This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.
************************************************************

*********************************

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)

mailing list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD