** mztolo 2006
** sejujurnya saya agak lupa dulu 'basic' pertanyaannya sehingga ada jawaban spt ini :)
CLOSE ALL
CLEAR
CREATE CURSOR anumu (kode c(5))
INSERT INTO anumu(kode) VALUES ('001')
INSERT INTO anumu(kode) VALUES ('001')
INSERT INTO anumu(kode) VALUES ('001')
INSERT INTO anumu(kode) VALUES ('001')
INSERT INTO anumu(kode) VALUES ('002')
INSERT INTO anumu(kode) VALUES ('002')
INSERT INTO anumu(kode) VALUES ('003')
INSERT INTO anumu(kode) VALUES ('004')
INSERT INTO anumu(kode) VALUES ('004')
INSERT INTO anumu(kode) VALUES ('004')
INSERT INTO anumu(kode) VALUES ('005')
INSERT INTO anumu(kode) VALUES ('006')
INSERT INTO anumu(kode) VALUES ('007')
INSERT INTO anumu(kode) VALUES ('007')
INSERT INTO anumu(kode) VALUES ('008')
INSERT INTO anumu(kode) VALUES ('009')

Select kode,.F. As Flag From anumu  Where kode In ;
(Select kode From anumu Group By kode ;
HAVING Count(kode) > 1) ;
Union All ;
Select kode,.T. As Flag From anumu Where kode NOT In ;
(Select kode From anumu Group By kode ;
HAVING Count(kode) > 1 ) ;
INTO CURSOR hasilnya 

SELECT * from hasilnya  INTO CURSOR abc  ORDER  BY kode 
BROWSE