Information Technology Reference
In-Depth Information
if
acct-status
= 0
screen
(3,36)
account-number
screen
5,36)
last-name
screen
(7,36)
first-name
screen
(9,36)
middle-initial
screen
(11,36)
street-address
screen
(13,36)
city
screen
(15,36)
state
screen
(17,36)
zip-code
screen
(19,36)
balance,
mask
($$$$,$$9.99-)
new-last-name
=
last-name
new-first-name
=
first-name
new-balance
=
balance
update-switch
= 0
field-no
= 9
perform
get-change
until
field-no
= 0
go to
input-number
else
if
acct-status
= 5
screen
(24,20) “account number “
account-number
“ is not on the file.”
go to
input-number
else
error-msg
= “account file read problem; program ending - press enter”
go to
end-program
end-if
end-if
get-change:
screen
(21,1)
erase “
key 1 (last name), 2 (first name), 3 (balance) or 0 (next)”
screen
(21,60)
input
field-no
screen
(24,1)
erase
valid-input
= 0
if
field-no
= 1
perform
input-last-name
until
valid-input
= 1
else
if
field-no
= 2
perform
input-first-name
until
valid-input
= 1
else
if
field-no
= 3
screen
(19,36)
input
new-balance
update-switch
=1
else
if
field-no
= 0
perform
update-check
else
screen
(24,20)
field-no
“ is invalid”