Re: query question

[rob@xxxxxxxxx]

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



Rob Berendt

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



                    Doug Johnson
                    <djohnson@Univbkstr       To:     
"'midrange-l@midrange.com'" <midrange-l@midrange.com>
                    .com>                     cc:
                    Sent by:                  Fax to:
                    midrange-l-admin@mi       Subject:     query question
                    drange.com


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







Greetings,

I need to find out if records are being posted twice to an inventory
file-and query is all that I have to work with.
Is there a way to use query to select records from a file based on the fact
that the data in several fields is identical to the data in those fields in
another record when in fact that combination of fields should be unique in
the file?

Thanks,

Doug

**********************************************
DOUGLAS JOHNSON
System Administrator
The University Book Store
711 State Street
Madison, WI 53703

djohnson@univbkstr.com
608-257-3784
608-257-9479 (fax)

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