home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR503.W96 / SALES.PR_ / SALES.PR
Text File  |  1995-06-20  |  306b  |  21 lines
  1.  
  2. LOCAL cOldSalesRep, nTotal
  3.  
  4. USE Sales
  5. SET INDEX TO Sales
  6.  
  7. DO WHILE ! EF()
  8.   cOldSalesRep = Sales->Sales
  9.     DO WHILE cOldSalesRep = Sales->SalesRep
  10.     ? Sales->SalesRep Sales->Amount
  11.         nTotal += Sales->Amount
  12.         SKIP
  13.     ENDDO
  14.     ? "Total: ", nTotal, "for", cOldSalesRep
  15. ENDDO
  16.  
  17. CLOSE
  18. ?
  19. ?
  20. WAIT
  21.