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

  • Thread starter Thread starter Ruben Dröge
  • Start date Start date
Status
Not open for further replies.
R

Ruben Dröge

Guest
Something like this? DEF VAR i AS INTEGER. DEF VAR ii AS INTEGER. DEF STREAM data-export. OUTPUT STREAM data-export TO VALUE("c:\temp\output.csv"). PUT STREAM data-export UNFORMATTED "Policy no, Claim, Renewal cnt, End cnt, Gross prem, class, comdat" SKIP. FOR EACH uwm100 WHERE uwm100.comdat > 12/01/14 AND uwm100.comdat < 12/01/2015 NO-LOCK BY cntry: ACCUMULATE uwm100.policy (COUNT). i = (ACCUM COUNT uwm100.policy). EXPORT STREAM data-export DELIMITER "," uwm100. FOR EACH clm100 WHERE clm100.policy = uwm100.policy AND clm100.rencnt = uwm100.rencnt AND clm100.endcnt = uwm100.endcnt NO-LOCK: ACCUMULATE clm100.policy (COUNT). EXPORT STREAM data-export DELIMITER "," clm100. END. ii = ii + (ACCUM COUNT clm100.policy). END. OUTPUT STREAM data-export CLOSE. MESSAGE i SKIP(1) ii VIEW-AS ALERT-BOX.

Continue reading...
 
Status
Not open for further replies.
Back
Top