RE: query question

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

YOW!  This is really great, Rob.  I'm going to save this particular tip for
later use.  I have been stuck on numerous machines "without SQL" and could
have used this.

Joe


> -----Original Message-----
> From: rob@dekko.com
>
> Doug,
>
> You have an AS/400.  You are never limited to just Query.
>
> For example on a system with no SQL and no PDM:
> crtpf qtemp/db rcdlen(80)
> upddta qtemp/db
> Select iclas,iid,count(*)
> from iim
> group by iclas,iid
> having count(*)>1
> crtsrcpf qtemp/dbsource
> QSYS/CPYF FROMFILE(QTEMP/DB) TOFILE(QTEMP/DBSOURCE) FROMMBR(DB)
> TOMBR(DBSOURCE) MBROPT(*ADD) FMTOPT(*CVTSRC)
> CRTQMQRY QMQRY(QTEMP/DBSOURCE) SRCFILE(QTEMP/DBSOURCE)
> STRQMQRY QMQRY(DBSOURCE)
> Itm
> Cls  ID     COUNT ( * )
> ---  --  --------------
> 75   IM             30
> 76   IM             97
> ...