RE: Embedded SQL

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