Re: Embedded SQL

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

Agustin

It was suggested, to keep the free-form looking better, tjat you put 
the embedded SQL into a subprocedure or subroutine. Then you do not 
have to switch out and in for SQL.

Vern

At 07:15 AM 10/19/2006, you wrote:

> 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.
> >
> >
>
>
> --
> 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.