Information Technology Reference
In-Depth Information
screen (24,20) “balance is not 0 - not deleted”
end-if
else
if acct-status = 5
screen (24,20) “account number “ account-number “ is not on the file”
else
error-msg = “account file problem; program ending - press enter”
go to end-program
end-if
end-if
go to input-number
process-delete: delete acctfile
if acct-status = 3
screen (24,20) “that record is unavailable”
else
if acct-status > 0
error-msg = “problem updating file; program ending - press enter”
go to end-program
else
perform remaining-process
end-if
end-if
remaining-process: print-account-number = account-number
print-last-name = last-name
print-first-name = first-name
print-middle-initial = middle-initial
print-street-address = street-address
perform get-city-state
print-city = city
print-state = state
print-zip-code = zip-code
print-balance = balance
line-counter = line-counter + 1
if line-counter > 54
perform print-headings
end-if
print print-line
indicator = “d”
next-number = account-number
write numbfile
if numb-status > 0
screen (24,20) account-number “ was not added to the next number file”
end-if
record-counter = record-counter + 1
Search WWH ::




Custom Search