RE: query question

[rob@xxxxxxxxx]

I bet that file/fields were examples you could understand also :)

Rob Berendt

==================
A smart person learns from their mistakes,
but a wise person learns from OTHER peoples mistakes.



                    "Joe Pluta"
                    <joepluta@PlutaBrot       To:     <midrange-l@midrange.com>
                    hers.com>                 cc:
                    Sent by:                  Fax to:
                    midrange-l-admin@mi       Subject:     RE: query question
                    drange.com


                    09/28/2001 11:37 AM
                    Please respond to
                    midrange-l






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

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.