// MAINTENANCE07

// Marian Basting takes in small sewing jobs.

// She has two files sorted by date.

// (The date is composed of two numbers -- month and year.)

// One file holds new sewing projects

// (such as "wedding dress")

// and the other contains repair jobs

// (such as "replace jacket zipper").

// Each file contains the month, day, client name, phone number,

// job description, and price.

// Currently, this program merges the files to produce

// a report that lists all of Marian's jobs for the year

// in date order.

// Modify the program to also display her total earnings

// at the end of each month as well as at the end of the year.

start

Declarations

num newMonth

num newDay

string newName

string newPhone

string newDescription

num newPrice

num repairMonth

num repairDay

string repairName

string repairPhone

string repairDescription

num repairPrice

num newDate

num repairDate

string bothAtEof = "N"

num HIGH_MONTH = 99

InputFile newJobs

InputFile repairJobs

getReady()

while bothAtEof = "N"

detailLoop()

endwhile

finish()

stop

getReady()

open newJobs "NewJobs.dat"

open repairJobs "RepairJobs.dat"

input newMonth, newDay, newName, newPhone,

newDescription, newPrice from newJobs

if eof then

newMonth = HIGH_MONTH

endif

input repairMonth, repairDay, repairName, repairPhone,

repairDescription, repairPrice from repairJobs

if eof then

repairMonth = HIGH_MONTH

endif

if newMonth = HIGH_MONTH AND repairMonth = HIGH_MONTH then

bothAtEof = "Y"

endif

return

detailLoop()

newDate = newMonth * 100 + newDay

repairDate = repairMonth * 100 + repairMonth

// This arithmetic turns each date into a 3- or 4-digit number

if newDate > repairDate then

output repairMonth, repairDay, repairName, repairPhone, repairDescription, repairPrice

input repairMonth, repairDay, repairName, repairPhone,

repairDescription, repairPrice from repairJobs

if eof then

repairMonth = HIGH_MONTH

endif

else

output newMonth, newDay, newName, newPhone,

newDescription, newPrice

input newMonth, newDay, newName, newPhone,

newDescription, newPrice from newJobs

if eof then

newMonth = HIGH_MONTH

endif

endif

if newMonth = HIGH_MONTH AND repairMonth = HIGH_MONTH then

bothAtEof = "Y"

endif

return

finish()

close newJobs

close repairJobs

return