Re: Free format sql, was: Nice trick for easy viewing free-form RPG and embedded SQL

Rob,

Ever thought to do embedded SQL in a service programme (*SRVPGM)? Then you only 
have to write one SQLRPGLE programme and keep it out of the main programme. (In 
the iSeries Toolkit there is a sample, DYNSQL.)

I would rather see that the cursor naming is more flexible:

C*EXEC SQL 
C* Fetch C(:ArrayIndex) into :SourceFile.Library, :SourceFile.File 
C*END-EXEC 

But you have to name each cursor seperately:

>C*EXEC SQL 
>C* Fetch C1 into :SourceFile.Library, :SourceFile.File 
>C*END-EXEC 
>C*EXEC SQL 
>C* Fetch C2 into :SourceFile.Library, :SourceFile.File 
>C*END-EXEC 

and, unfortunately, each SQL element gets the next sequence handle (with 8 
Cursors):
Prepare 1 - 8
Open     9 - 16
Fetch    17 - 24
Close   25 - 32

Or perhaps prototyping the call to SQLROUTE and stick to plain RPGLE.

Just my thoughts.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 18-7-05 at 14:09 rob@xxxxxxxxx wrote:

>Then again, I would love to see free format SQLRPGLE.  Yes, it would be 
>nice to not have to break in/out of /free.  However the biggest 
>improvement I am looking to see in free format SQLRPGLE is not these 
>esthetics.  It's the ability to get rid of the preprocessor converting sql 
>to calls like 
>C*EXEC SQL 
>C* Fetch C1 into :SourceFile.Library, :SourceFile.File 
>C*END-EXEC 
>C                   Z-ADD     -4            SQLER6 
>C                   CALL      SQLROUTE 
>C                   PARM                    SQLCA 
>C                   PARM                    SQL_00006 
>C     SQL_00009     IFEQ      '1' 
>C                   EVAL      SOURCEFILE.LIBRARY = SQL_00011
>C                   EVAL      SOURCEFILE.FILE = SQL_00012 
>C                   END 
>
>Then maybe we could use variables like
>MyArray(x).SubArray(y).SubSubArray(z)
>
>Functions over esthetics.