Re: Embedded SQL -- RPG400-L

Yes, i know, for now i do the programs in that way, its a good practice.

Tanks for the tip.



On 10/19/06, Vernon Hamberg <vhamberg@xxxxxxxxxxx> wrote:

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.

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