I have a hold file of accounts that need to be grouped somehow so that i can eliminate certain records.
Here is a sample of the file:

CUST LOC APP NAME APP_ACCT
10000000000136 9160342214 DDA DUCK DONALD 0100100000000113091871
10000000000136 9160342214 DDA DUCK DONALD 0100100000007120091764
10000000000136 9160342214 DDA DUCK DONALD 0100100000000100000215
10000000000136 9160342214 DDA DUCK DONALD 0100100000000113090691
10000000000136 9160342214 ALS DUCK DONALD 01001000000000000199999043
10000000000136 9160342214 CL DUCK DONALD 0100100091753416040008900100099
10000000000934 9485504158 DDA MOUSE MICKE 0100100000000099990012
10000000000934 9485504158 DDA MOUSE MICKE 0100100000000100064441
10000000000934 9485504158 DDA MOUSE MICKE 0100100000007120157431
10000000000934 9485504158 MSP MOUSE MICKE 0010118720
10000000008647 9251787615 DDA JACKSON MIC 0100100000007120136609
10000000008647 9251787615 DDA JACKSON MIC 0100100000007110229960
10000000008647 9251787615 CL JACKSON MIC 0100100091905682250000000100199
10000000008647 9251787615 CL JACKSON MIC 0100100091905682250008900100199
10000000008647 9251787615 CL JACKSON MIC 0100100091905682250008900200199

I only want to keep customers who have both at least one DDA account and one CL account.
In the above example, DUCK DONALD and all his records should be kept since there is a DDA and a CL account under his name and customer number. MOUSE MICKE and all his records should be excluded because he does not have a CL account.
I am a COBOL programmer at heart and this would all get stored in working storage, no problem! Can someone point me to a solution for this in FOCUS?

This message has been edited. Last edited by: tinamshorty,

Have you attempted to either use a where clause where both have dda and cl. Or you can use a Define file XXX
create a temporay field called combddacl/a3= if the field that contains the dda and cl then field else ' ';
end

With a two pass process, do a count of dda and cl by account number and print account number where the total counts are greater than zero. Hold or save the account numbers. You can then use the file in a join or WHERE IN FILE test.

I like your suggestions. Let me go give this a try. Thanks!

How about a single multiverb request

DEFINE FILE CAR
S4/A1=IF SEATS EQ 4 THEN 'Y' ELSE 'N';
S5/A1=IF SEATS EQ 5 THEN 'Y' ELSE 'N';
END
TABLE FILE CAR
SUM
MAX.S4 NOPRINT
MAX.S5 NOPRINT
BY CAR
PRINT SEATS
COMPUTE WANTED/A2=MAX.S4 || MAX.S5; NOPRINT
BY CAR
WHERE TOTAL WANTED EQ 'YY'
END

I followed JG's example and it did exactly what I needed!
Thanks for all the expertise. Got to get all this COBOL out of my brain and start thinking FOCUS!