Two for the road, Report from Clerk & Nonstandard Subtotals

[Jeff Harrison]

--- John Esak <john at valar.com> wrote:

> Jeff,
> The stuff you are suggesting below is really cool. 
> I'm forwarding it to the
> list... . It seems like everyone is always replying
> just to me and not  the
> list.  I must have gottne at least 10 replies about
> my former  message sent
> only to me.  Hope everyone will respond to the list
> so we all can get some
> new information and ideas.
> 
> Thanks,
> 
> John
> 
> P.S. - I'm not clear how you get the free record to
> "end" ,  and thereby
> generate the @wgt processing.
> 
> 

Sorry John.  I realized a fraction of a second after I
replied that I did not include the list as I had
intended.  So I did re-forward it to all.

As to how I get the free record to end, it goes
something like this.  (this is just off the top of my
head, but I think you'll get the idea)

loop:::
::lookup src = transaction@ k=fr i=a -ng:
:not src:goto fini:
:src(2) gt to:goto fini:
::lookup des = ("transaction@"{qual) r=free -e:
::copy src to des:
::lookup tmp = ("subtotalfile@"{qual) k=(src(1)) i=a
-nxp:
:not tmp:lookup tmp = ("subtotalfile@"{qual) r=free
-e:
::tmp(2)=tmp(2)+src(3):
::goto loop:
fini:::
::close des; close tmp:
::system "/appl/fp/dreport transaction -m "<qual '
etc:

The close commands make sure the record locks on both
lookups get released.  Therefore the report should not
have a problem running through the qualified
transaction file, and all of the subtotal records
should be available to lookup @wgt.

Jeff Harrison
jeffaharrison at yahoo.com

Author of JHExport and JHImport.  The easiest and
fastest way to generate code for filePro exports and
imports.




__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com