[progress Communities] [progress Openedge Abl] Forum Post: Re: Calculate No.of Records

[Ruben Dröge]

DEFINE TEMP-TABLE ttSubTotals FIELD poltype AS CHARACTER FIELD subtotal AS DECIMAL FIELD recuwm AS INTEGER FIELD recclm AS INTEGER Index ttix IS UNIQUE PRIMARY poltype. DEF VAR subtotal AS DECIMAL. DEF VAR subrecuwm AS INTEGER. DEF VAR subrecclm AS INTEGER. DEF STREAM data-export. OUTPUT STREAM data-export TO VALUE("c:\temp\output.csv"). PUT STREAM data-export UNFORMATTED "Class, Amount, No. of records in uwm100, No.of records in clm100" SKIP. FOR EACH uwm100 WHERE uwm100.comdat > 12/01/14 AND uwm100.comdat < 12/01/2015 NO-LOCK BREAK BY poltype: FOR EACH clm100 WHERE clm100.policy = uwm100.policy AND clm100.rencnt = uwm100.rencnt AND clm100.endcnt = uwm100.endcnt NO-LOCK: ACCUMULATE clm100.policy (COUNT). END. ACCUMULATE uwm100.amount (COUNT SUM BY uwm100.poltype). subtotal = (ACCUM SUM BY uwm100.poltype uwm100.amount). subrecuwm = (ACCUM COUNT BY uwm100.poltype uwm100.amount). subrecclm = subrecclm + (ACCUM COUNT clm100.policy). IF LAST-OF(poltype) THEN DO: CREATE ttSubTotals. ASSIGN ttSubTotals.poltype = uwm100.poltype ttSubTotals.subtotal = subtotal ttSubTotals.recuwm = subrecuwm ttSubTotals.recclm = subrecclm . subrecclm = 0. EXPORT STREAM data-export DELIMITER "," ttSubtotals. END. END.

Continue reading...