home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgramD2.iso
/
Database
/
CLIPR503.W96
/
SALES.PR_
/
SALES.PR
Wrap
Text File
|
1995-06-20
|
306b
|
21 lines
LOCAL cOldSalesRep, nTotal
USE Sales
SET INDEX TO Sales
DO WHILE ! EF()
cOldSalesRep = Sales->Sales
DO WHILE cOldSalesRep = Sales->SalesRep
? Sales->SalesRep Sales->Amount
nTotal += Sales->Amount
SKIP
ENDDO
? "Total: ", nTotal, "for", cOldSalesRep
ENDDO
CLOSE
?
?
WAIT