Re: SQLRPG - prepare, declare, no cursor

looks like mine - except I don't believe you need "SCROLL" on your declare.

scroll is only for reading multiple records, afaik.

On 4/11/06, Tyler, Matt <mattt@xxxxxxxxxxxxxx> wrote:
> Here's an example program. Just replace my select statement with one of
> your choosing.  Sorry if formatting is messed up, code.midrange.com is
> not working for me.
>
>      D SQLSTMT         s            256A   varying
>
>      D RCCOUNT         S              9P 0
>
>
>
>      C                   EVAL      SqlStmt ='Select Count(*) from
> RimIPRpf -
>      C                                       Where IPRS <>3 and
> IPUPC=4011'
>      C
>
>
>
>      C/EXEC SQL
>
>      C+ Prepare SQLST2 FRom :SQLSTMT
>
>      C/END-EXEC
>
>
>
>      C/EXEC SQL
>
>      C+ DECLARE SQLCSR2 SCROLL CURSOR FOR SQLST2
>
>      C/END-EXEC
>
>
>
>      C/EXEC SQL
>
>      C+ OPEN SQLCSR2
>
>      C/END-EXEC
>
>
>
>      C                   CLEAR                   RCCOUNT
>
>      C/EXEC SQL
>
>      C+ FETCH NEXT FROM SQLCSR2 INTO :RCCOUNT
>
>      C/END-EXEC
>
>
>      C     RCCOUNT       DSPLY
>
>      C                   EVAL      *INLR = *ON
>      C                   RETURN
>
>
> Thanks, Matt
>
>
> --
> 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.
>
>