RE: Join Files

Couple of things I'm curious about. Why bother with a join LF?  If the
customer is keying the information (i.e. customer name)  I think a
simple SETLL & READE would perform much better in this case.

/free
   SetLL cust_name custmast;
   DoU %EOF;
     ReadE cust_name custmast;
       Chain cust_num secondary;
/end-free

Also are there duplicates in the customer master file?  If not then just
chaining to the customer master should suffice.  FWIW I prefer not to
use fields like customer name as a key value...it's just too darn prone
to fail due to keying the name in wrong, etc.  Personally I would much
prefer to have a "prompt" window subfile that displayed the name (with
the customer number hidden) then return the customer number to the main
proc to use as a key.  Anyway I digress, I believe the SETLL & READE or
CHAIN method will perform much faster than Join LF for this.  (I've
never been a big fan of joined LFs btw....) 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
lgronewold@xxxxxxxxxxxxxxxxxx
Sent: Tuesday, January 30, 2007 3:21 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Join Files

         Hi,

        No we didn't have the keyword DYNSLT on the join file.

        The purpose of the control file is to limit what items a
customer
can buy.  The customer name is on the customer maser file and the number
is
on both files.

        I can't place the smaller file first, because the name is on the
larger file and that is what I want to use as my key.

        Could it be a system problem?  We have contacted IBM about the
problem but it is takes forever to get an answer back from them.

        Lori



***************************Disclaimer*************************** 
The contents of this e-mail and any file transmitted with it are
confidential and intended solely for the individual or entity to whom
they are addressed.  The content may also contain legal, professional or
other privileged information. If you received this e-mail in error,
please destroy it immediately.  You should not copy or use it for any
purpose nor disclose its contents to any other person. The views stated
herein do not necessarily represent the view of the Company. Please
ensure you have adequate virus protection before you open or detach any
documents from this transmission. The Company does not accept any
liability for  viruses.
Premier Farnell plc
150 Armley Road Leeds
LS12 2QQ
Telephone +44 (0) 870 129 8608
Fax +44 (0) 870 129 8610 
Registered in England
Company Number 876412
Registered Office: Farnell House, Forge Lane, Leeds LS12 2NE
************************************************************