Re: SQL Statement

["R. Bruce Hoffman, Jr." <rbruceh@xxxxxxxxxxxxx>]

Don't really see any particular reason related to the statement.  That is if
you have the OPEN, the FETCH and the CLOSE in addition to the CURSOR
declaration.

===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified AS/400 Professional System Administrator
 -- IBM Certified AS/400 Professional Network Administrator

"The sum of all human knowledge is a fixed constant.
    It's the population that keeps growing!"

-----Original Message-----
From: Gade_R_Reddy@consecofinance.com <Gade_R_Reddy@consecofinance.com>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Wednesday, February 09, 2000 3:35 PM
Subject: SQL Statement


>
>Hi,
>
>I have an SQL statement which run perfectly in runsqlstm on the command
>line but fails in  my SQLRPGLE program.
>
>Here is the statement.
>
>  Select AGNTID, EMPNAM, LONAPP, QUOTDT, QTPREM
>    From AGPRPEZM
>    left outer join AGPRPEZD on
>               AGPRPEZM.QUOTID  = AGPRPEZD.QUOTID
>    left outer join AGPRPT05 on
>               AGNTID = EMPNUM
>    Where APPYDT  = '2000-02-07'
>          and (SRCTYP = 9 OR SRCTYP = 10 OR SRCTYP = 11 OR
>               SRCTYP = 12 OR SRCTYP = 20)
>          Order by AGNTID
>
>
>My APPYDT field is L data type in the physical file.
>
>When i run on the command line it returns me 6 records but in my RPG
progam, it return zeros. ( have this SQL statement as Cursor in the program)
>
>Any suggestions please.
>
>Thanks.
>Gade.
>
>+---
>| 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
+---