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