RE: Join Logical like WRKQRY's join type '3'

["Bale, Dan" <DBale@xxxxxxxxxxxxxxxx>]

>>Use the file level keyword JDFTVAL to get a *PARTOUT partial outer join,
then
put a record selection test in comparing the item number field from the
secondary file to blank.  As long as you don't have any records in your
primary
file with a blank item number, then the only way for the join field in the
secondary file to be blank is for it to be a non-existent record.<<

This is exactly what I ended up doing as (at least) a temporary measure.
Had to specify DYNSLT, though, and wondered if there are going to be
performance implications.  This is a brand new database, and it's too early
to predict the volume and the percentage of records that will have an Item#
that does not have a match on the Item Master.  I have put comments in both
the LF source and the RPGLE source (for which program is the only one using
this file) warning about performance issues and the possible solution using
SQL.

- Dan Bale

-----Original Message-----
From: Shaw, David [mailto:dshaw@spartan.com]
Sent: Tuesday, March 07, 2000 2:07 PM
To: 'MIDRANGE-L@midrange.com'
Subject: RE: Join Logical like WRKQRY's join type '3'


> -----Original Message-----
> From: Bale, Dan [mailto:DBale@TFSA.Textron.com]
> 
> Thanks for all of the replies.  (except Pat for the "MR" 
> solution -just
> kidding-)  Although, since the solution requires random access, "MR"
> wouldn't have worked anyway.
> 
> Three of you suggested SQL.  Can I presume it can't be done 
> with LF DDS?

Dan,

I may be wrong, but I don't remember a way to explicitly define an *ONLYDFT
or
exception join in DDS.  Having said that, I think that there's a way to
cheat.
Use the file level keyword JDFTVAL to get a *PARTOUT partial outer join,
then
put a record selection test in comparing the item number field from the
secondary file to blank.  As long as you don't have any records in your
primary
file with a blank item number, then the only way for the join field in the
secondary file to be blank is for it to be a non-existent record.  (Note:
This
assumes that blank is the default value for item number in the file.)

I very vaguely remember doing something like this on the /38 back about '87,
and
I know I made it work before I was done, so I'd say it has a pretty good
shot.
I hope it helps!

Dave Shaw
Spartan International, Inc.
Spartanburg, SC
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---