Re: RPG IV release levels and complexity

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
===================