RE: query question

[bdietz@xxxxxx]

I the system you are "on" is v4r3 + with out SQL there are some tools from
QUSRTOOL that IBM compiled for you.  They came out in a ptf and are in the
save file QGPTOOLS.
DSPSTMF
EDTF
RCLSPACE
SQLUTIL

the first two the built into os/400 in v4r4+.  the last one being one you
might enjoy.


-------------------------
 Bryan Dietz
3X Corporation






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


                    09/28/2001 12:37 PM
                    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.