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

Ron,

I'm surprised that you're not a fan of externalizing I/O.

Why not?

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx
> Sent: Monday, July 18, 2005 5:10 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Free format sql, was: Nice trick for easy 
> viewing free-form
> RPG and embedded SQL
> 
> 
> I just don't see the advantage of the service program; but 
> then, I've not 
> seen this iSeries Toolkit.  I'm not a big fan of the 
> externalizing I/O 
> concept either.
> 
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> 
> 
> 
> 
> "Carel Teijgeler" <coteijgeler@xxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 07/18/2005 03:56 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> rpg400-l@xxxxxxxxxxxx
> cc
> 
> Subject
> 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.
> 
> 
> 
> -- 
> 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.
> 
>