Quote (carteblanche @ Oct 29 2012 10:21pm)
It has always interested you, but you never tried it in your spare time? i suggest rethinking this as a career path.
Yeah I've been thinking about it honestly.
But anyway here is the mess.
BEGIN
Declarations
previousSalesId = 0
currentSalesId = 0
totalSalesPerId = 0
salesAmountPerId = 0
totalSales = 0
sub = 1
make array monthNameArray, 12
call initializing()
call processing()
END
initializing()
call clearArray()
input “Enter the number of the month.” sub
call loadArray()
output “Brewster’s Used Cars, Inc.”
output “Sales for “ + monthNameArray(sub)
output
“Salesperson ID Sale Amount”
output “==========================”
RETURN
clearArray()
FOR sub 1 to 12 step 1
monthNameArray(sub) = “”
sub = 1
RETURN
loadArray()
monthNameArray(1) = “January”
monthNameArray(2) = “February”
monthNameArray(3) = “March”
monthNameArray(4) = “April”
monthNameArray(5) = “May”
monthNameArray(6) = “June”
monthNameArray(7) = “July”
monthNameArray(8) = “August”
monthNameArray(9) = “September”
monthNameArray(10) = “October”
monthNameArray(11) = “November”
monthNameArray(12) = “December”
RETURN
processing()
call readData()
previousSalesId = currentSalesId
WHILE currentSalesId <> 999
IF currentSalesId <> previousSalesId
ELSE
call idControlBreak
ENDIF
call readData()
call displayDetails()
readData()
input ch7hwtestdata.txt currentSalesId
IF currentSalesId <> 999
input ch7hwtestdata.txt salesAmountPerId
ENDIF
RETURN
idControlBreak()
totalSalesPerId = totalSalesPerId + salesAmountPerId
output currentSalesId + “ “ + formatcurrency(salesAmountPerId)
previousSalesId = currentSalesId
RETURN
displayDetails()
output “Total sales for this salesperson: “ + formatcurrency(totalSalesPerId)