Re: RPG IV release levels and complexity

[Hans Boldt <boldt@xxxxxxxxxx>]

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