× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hans,

I was really hoping she'd take a more active role on this list.  She did 
have one contribution to the list and then I didn't see anything else.  Oh 
well, I suppose with all the possible enhancements, she must be rather 
busy.

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




Hans Boldt <boldt@xxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/18/2003 12:28 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Re: RPG IV release levels and complexity






Bob cozzi wrote:

> Hi Scott,
> 
> Here's a posting from another list that typifies why /FREE can be ugly 
(as
> can fixed-format). If this is more "readable" I need my glasses. Granted
> this is just one example and the embedded SQL in RPG is ugly in general 
(not
> as bad as it is in other languages).
> 
> ===================
> 
>  /free
>     myHostVariable = 'Select * from myLib/myFile' ;
>  /end-free
> c/exec sql
> c+  declare myCursor Cursor
> c+         for myPreparedStatement
> c/end-exec
> c/exec sql
> c+  prepare myPreparedStatement
> c+       from :myHostVariable
> c/end-exec
> c/exec sql
> c+  open myCursor
> c/end-exec
> c/exec sql
> c+  fetch next from myCursor into :masterDS
> c/end-exec
>  /free
>      dow sqlStt <> '00000' ;
>         // do stuff
>  /end-free
> c/exec sql
> c+    fetch next from myCursor into :masterDS
> c/end-exec
>  /free
>       enddo ;
>  /end-free
> c/exec sql
> c+  close myCursor
> c/end-exec
> ===================
> 

I agree 110%. That's why we've been pushing for a free-form /EXEC SQL 
statement from the SQL prep folks in Rochester. That can't come soon 
enough, as far as I'm concerned. Unfortunately, it won't be V5R3. :-(

Cheers! Hans


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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.