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
Search WWH ::




Custom Search