FIELD1      FIELD2
A1          K1 
A2          K1
A3          K1
A1          K2
A2          K2
A3          K2 
A1          K3
A1          K4
A2          K4
A3          K4

quote:

Originally posted by John_Edwards:
"Eliminate" means deleted from your database, or not displayed on your report?

If you want to simply not show singletons (in Field 2) on your report you could use WHERE TOTAL logic.

TABLE FILE X
SUM CNT.FIELD2 NOPRINT
BY FIELD1 NOPRINT
PRINT FIELD1
FIELD2
WHERE TOTAL CNT.FIELD2 GT 1
END

I'm just winging it without running through a compiler, but that's more or less the gist of it. I'm not sure you even need the SUM part at the beginning, but I wanted to show you the bigger picture in case it is required.

J.

DEFINE FILE X
 BAD_VALUE_COUNTER/I1 = IF NOT ( FIELD1 EQ 'A1 OR 'A2' ) THEN 1 ELSE 0;
END

TABLE FILE X
SUM
   BAD_VALUE_COUNTER NOPRINT
BY   FIELD1
BY   FIELD2
WHERE TOTAL BAD_VALUE_COUNTER EQ 0
END

DEFINE FILE X
 HITS2/I1 = FIELD1 EQ 'A2';
 HITS3/I1 = FIELD1 EQ 'A3';
END
TABLE FILE X
 SUM
  HITS2 NOPRINT
  HITS3 NOPRINT
  BY WHATEVER
 PRINT
  FIELD1
  FIELD2
  BY WHATEVER
 WHERE TOTAL HITS2 + HITS3 GT 0;
END