Re: "The usage of "LEFT JOIN" in SQL-RPG Programs

[rob@xxxxxxxxx]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Let me ask the obvious question:
After you declare the cursor, do you open the cursor?  If so, what is the
value of SQLCOD after the open?
After you've declared, and opened, the cursor, what is the value of sqlcod
after your first FETCH?

When you use Code/400 and use the Alt-R to block copy this portion out:
SELECT
T1.GECREF, T1.SIPYY, T1.SIPREF,
T1.SIPMIK, T1.FSKL,T2.BYM,
T1.ITRMTR, T1.RVZNO,
T1.AKRYY, T1.AKRREF, T1.DURUM
FROM   OBJLIB/SPMAST AS T1
   LEFT JOIN OBJLIB/SPRENK AS T2
           ON T1.SIPYY  = T2.SIPYY  AND
              T1.SIPREF = T2.SIPREF AND
              T1.GECREF = T2.GECREF AND
              T1.RVZNO  = T2.RVZNO
And paste in into iSeries Navigator - Run Sql Scripts, are you getting the
same value as you do in STRSQL?  Just trying to make sure that your
copying from STRSQL into your editor worked fine.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




"Acar GURSOY" <acarg@hotmail.com>
Sent by: rpg400-l-admin@midrange.com
08/13/2002 04:10 AM
Please respond to rpg400-l


        To:     rpg400-l@midrange.com
        cc:
        Fax to:
        Subject:        "The usage of "LEFT JOIN" in SQL-RPG Programs




I have two files in relation master&details.

SPMAST (master file)  has records, SPRENK (detail file) has no record
empty
file.

via STRSQL I can get all the records from first file when I use LEFT JOIN.

but via RPG code (same SQL statement) I can't get any record.

Might it depend on SQL Object Version (V4M4R0) or RPG Compiler
parameters??


RPG-SQL code ;

C/EXEC SQL
C+ DECLARE C1 DYNAMIC SCROLL CURSOR FOR
C+ SELECT
C+ T1.GECREF, T1.SIPYY, T1.SIPREF,
C+ T1.SIPMIK, T1.FSKL,T2.BYM,
C+ T1.ITRMTR, T1.RVZNO,
C+ T1.AKRYY, T1.AKRREF, T1.DURUM
C+ FROM   OBJLIB/SPMAST AS T1
C+    LEFT JOIN OBJLIB/SPRENK AS T2
C+            ON T1.SIPYY  = T2.SIPYY  AND
C+               T1.SIPREF = T2.SIPREF AND
C+               T1.GECREF = T2.GECREF AND
C+               T1.RVZNO  = T2.RVZNO
C/END-EXEC


Thanks in advance...

Acar Gursoy
AS400 Programmer


_________________________________________________________________
Join the world's largest e-mail service with MSN Hotmail.
http://www.hotmail.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.