Re: Embedded SQL

["Agustin Casiva" <casivaagustin@xxxxxxxxx>]

Doup!, in my work we have a V5R3.
For the next release.

Tanks

On 10/19/06, Thomas Pheister <Thomas.Pheister@xxxxxxxxxxxxxxxxxxxxxx> wrote:
> Hello:
>
> V5R4M0 allows for SQL statements to be embedded as the sample shows.  This
> was an enhancement that came with that version release.
>
> Thomas H. Pheister
> VP-Administration
> Johnson Centrifugal
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Agustin Casiva
> Sent: Thursday, October 19, 2006 5:41 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Embedded SQL
>
> Hello, is posible make the embedded Sql into a free format like the sample
>
> >       /Free
> >
> >        exec sql
> >           declare CSR cursor for
> >              select * from ordrfile
> >              where status not in('S','C','D')
> >              order by ordrno desc;
> >        exec sql
> >              open CSR;
> >        exec sql
> >           fetch CSR into :Hoststr :Indarr;
> >
> >        Return;
> >       /end-free
>
>
> or should be coded like this
>
> C/exec sql
> C+           declare CSR cursor for
> C+             select * from ordrfile
> C+              where status not in('S','C','D')
> C+              order by ordrno desc;
> C/end-exec
> C/exec sql
> C+              open CSR;
> C/end-exec
> C/exec sql
> C+          fetch CSR into :Hoststr :Indarr;
> C/end-exec
>
>
> --
> Agustin Casiva - Desarrollador de Sistemas
>
> www.casivaagustin.com.ar
> casivaagustin@xxxxxxxxx
>
> http://www.osis.com.ar
> --
> 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.
>
>
>
> --
> 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.