RE: SQL views

We use them for our Mapics Browser. As long as the index it needs
exists, it runs fine. The one problem I had with views was getting them
to compile to the proper library. I solved that by using my compile tool
to move the view to the proper library after compiling it with RUNSQLSTM
like so. Note that the Default Database is *NONE.

/* *_> CNLLSTSPLF SRCFILE(@2/@1) SRCMBR(@3) */
/* *_> DLTF FILE(@5/@4) */
/* *_> RUNSQLSTM SRCFILE(@2/@1) SRCMBR(@3) + */
/* *_> DFTRDBCOL(*NONE) CLOSQLCSR(*ENDMOD) ERRLVL(20) */
/* *_> MOVOBJ OBJ(*LIBL/@4) OBJTYPE(*FILE) TOLIB(@5) */
/* *_> CHGLF FILE(@5/@4) WAITFILE(*IMMED) */

Create View APPAYSUM As
Select VNDNR,
EPAYD,
Sum(BAGRS) As Gross,
Sum(BADIS) As Discount,
Sum(BAGRS - BADIS) As NetAmount,
CHKNO
From OPNPAYP
Group By VNDNR,
EPAYD,
CHKNO;