Re: Joining Logical Files

You can join 3 the same as 2. Here is an ex.
      A          R CSTMSTR                   JFILE(MBBFREP MBALREP +
      A                                      MBEKREP)
      A          J                           JOIN(1 2)
      A                                      JFLD(COMNO ALAENB)
      A                                      JFLD(CUSNO ALCANB)
      A          J                           JOIN(1 3)
      A                                      JFLD(COMNO COMNO)
      A                                      JFLD(CUSNO CUSNO
                    ACREC                     JREF(1)
                    COMNO                     JREF(1)
                   CUSNO                     JREF(1)
                  CUSNM                     JREF(1)
                   CUSA1                     JREF(2) RENAME(ALCMTX)
                   CUSA2                     JREF(2) RENAME(ALCNTX)
                   CUSA3                     JREF(2) RENAME(ALCPTX)
                   ZIPCD                     JREF(2) RENAME(ALCVCD)
                   STACD                     JREF(2) RENAME(ALBYCD)
                   PHONE                     JREF(2) RENAME(ALCRTX)
   A            FARAM                     JREF(3)
   A            AMDUE                     JREF(3)
   A            BFOIC                     JREF(3)
   A            ILCCD                     JREF(3)
   A            ILCLS                     JREF(3)
   A            DLTPM                     JREF(3)
   A            PRBAL                     JREF(3)
   A            CHGTD                     JREF(3)
   A            CRDTD                     JREF(3)
   A            ADJTD                     JREF(3)


From: a b <eagle_291@yahoo.com>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Sunday, March 05, 2000 11:55 PM
Subject: Joining Logical Files


>I was wondering if someone could point me in the right
>direction.  I need to join three (3) physical files
>with out using the OPNQRY function.  Is there another
>way to do this, or is OPNQRY the ONLY way to do this?
>I know that you can join two (2)files through a DDS
>but I'm not quite sure how to join three(3).
>
>Any help would greatly be appreciated.
>
>Thanks
>
>__________________________________________________
>Do You Yahoo!?
>Talk to your friends online with Yahoo! Messenger.
>http://im.yahoo.com
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---