Information Technology Reference
In-Depth Information
end-if
end-if
end-if
end-if
update-check:
if
update-switch
= 1
read
acctfile
update
if
acct-status
= 3
screen
(24,20) “that record is unavailable - no update done”
else
if
acct-status
> 0
error-msg
= “update problem; program ending - press
enter”
go to
end-program
else
balance
=
new-balance
first-name
=
new-first-name
last-name
=
new-last-name
write
acctfile
if
acct-status
> 0
error-msg
= “update problem; program ending -
press enter”
go to
end-program
end-if
end-if
end-if
end-if
input-last-name:
screen
(5,36)
input
new-last-name
screen
(24,1)
erase
if index
(
new-last-name
,
name-string
) = 1
valid-input
= 1
update-switch
= 1
else
screen
(24,20) “invalid characters in the last name - try again”
end-if
input-first-name:
screen
(7,36)
input
new-first-name
screen
(24,1)
erase
if index
(
new-first-name
,
name-string
) = 1
valid-input
= 1
update-switch
= 1
else
screen
(24,20) “invalid characters in the first name - try again”
end-if
end-program:
screen
(24,20)
error-msg
input
end