simple count

[Bruce Easton]

Bruce Easton wrote Thursday, June 12, 2008 3:57 PM:
[..]
> > 
> > Scott - try this (fPseudo-coded) running *report out of fileA:
> > 
> >   If:  yd eq ""
> > Then:  yd(10,mdyy/,g)=@td-"1095"  'poor man's 3 yrs ago date
> >   If:
> > Then:  lookup fileB  k=(joinkey)  i=[joinindex] -nx
> >   If:  not fileB
> > Then:  end
> >   If:  fileB(incidentdatefld#) le yd and statusfld# eq "10"
> > Then:  tl(6,.0,g)=tl+"1"
> >   If:
> > Then:  end
> > @wgt0  If:  '**or something else if it actually has to print out
> >      Then:  errorbox "My total count is:"<tl
> > 
> > ** like assign a dummy field there and put in grand total 
> > area on a format where the data area is blank (since 
> > you don't want any detail by each record).
> > 
> > Bruce
> > 
> 
> Actually, from what I suggested above, I think you could 
> just put the "tl" dummy in the grand-total area of the report 
> format.   Also note this suggestion is intended to run 
> completely out of output processing (no selection processing).
> 
> Bruce

oh for crying out loud - i guess I have to refine this some more ...

(especially if you're needing this to  be a permanent function for someone)

do this part in sort/sel prc [ -v ](but select instead of counting):

> >   If:  yd eq ""
> > Then:  yd(10,mdyy/,g)=@td-"1095"  'poor man's 3 yrs ago date
> >   If:
> > Then:  lookup fileB  k=(joinkey)  i=[joinindex] -nx
> >   If:  not fileB
> > Then:  end
> >   If:  fileB(incidentdatefld#) le yd and statusfld# eq "10"
> > Then:  select
> >   If:
> > Then:  end

(and of course it could be sped up more if you had an index built 
on that status field using the fabled lookup - technique)

Then in your final output prc, i think you could  
simply have

       Then:      end
@wgt0  If:      errorbox @ts<"Records"; end


Bruce

Bruce Easton
STN, Inc.