RE: Converting an RPG I/O to SQL

Excellent.  Thanks Wilt!

Brian.

-----Original Message-----
From: Wilt, Charles [mailto:CWilt@xxxxxxxxxxxx] 
Sent: Thursday, July 21, 2005 7:56 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Converting an RPG I/O to SQL

Brian,

This is where you need to use a cursor and the FETCH statement.

After doing the fetch, you can check SQLSTATE ( RPG name SQLSTT ).

An SQLSTATE of '02000' means after a fetch means no-data returned.

If you use a Multi-Row fetch, you can find out how many records were
returned by looking at SQLER3.


HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Brian Piotrowski
> Sent: Thursday, July 21, 2005 7:22 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Converting an RPG I/O to SQL
> 
> 
> Hi All,
> 
>  
> 
> I have a routine I am thinking of converting to SQL instead of using a
> series of I/Os to fill a subfile.  Here's the code I am 
> currently using:
> 
>  
> 
>           Rrn = 1;
> 
>           DoW NOT %EOF(DPKDL_LF) and (Rrn <= 9999);
> 
>             PARTCLR = PARTCL;
> 
>             ITOTAL = INHSE + IYARD;
> 
>             Write KDSDATA;
> 
>             Read DPKDL_LF;
> 
>             Rrn = Rrn + 1;
> 
>           EndDo;
> 
>  
> 
> Now I know I need to do something like this to start the SQL 
> statement:
> 
>  
> 
>      C*
> 
>      c/exec SQL
> 
>      c+  select gcalcd, gcalct 
> 
>      c+  from dmdpg_pf
> 
>      c+  where skdlym = :getskdlym
> 
>      c+  and skdlym <= :getskdlrrn
> 
>      c/end-exec
> 
>      C*
> 
>  
> 
> My question is, how do I move the results of this query into 
> a subfile?
> In the disk I/O routine above, I use the Write KDSDATA to 
> fill a row in
> the subfile.  Is there something similar to "DoW NOT %EOF()" for SQL
> queries?
> 
>  
> 
> Thanks!
> 
> 
> Brian.
> 
>  
> 
> -=-=-=-=-=-=-=-=-=-=-=-=-=-
> 
> Brian Piotrowski
> 
> Specialist - I.T.
> 
> Simcoe Parts Service, Inc.
> 
> Ph: 705-435-7814 x343
> 
> Fx: 705-435-6746
> 
> bpiotrowski@xxxxxxxxxxxxxxx
> 
> -=-=-=-=-=-=-=-=-=-=-=-=-=-
> 
>  
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>