Quick and dirty - solution

[jlkeepers@mmm.com]

The other day I posted the following note requesting a powerhouse solution
for the following pseudo code:

     read part
     while not eof
        IP = inital part

        while part = IP
          IB = initial balance
          IB-temp=IB - order qty
          IB = IB-temp
           read next part

        end while

     endwhile

Cursed, or in this case blessed, with a mind that never seems to shuts off,
I thought of the following solution on my way into work this morning that
fit the bill:

   QTP
    access <part file>
    sorted on part
    temp ord-qty-sum num*4
    item ord-qty-sum subtotal order-qty-num reset at part
    define inv-remaining num*4 = qty-av-num - ord-qty-sum
    sub DECINV3.SUBFILE keep include
                                                &
                           part,

                  &
                           order-qty-num,
                                                                      &
                           qty-av-num,

   &
                           inv-remaining

    go
    exit

Thanks for those of you that took the time to provide some insight.

Sincerely,
Jeff Keepers
3M Valley, NE


= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.