Information Technology Reference
In-Depth Information
print-balance
signed decimal
(6.2)
mask
($$$$,$$9.99-)
define
total-line
structure
field character
(43)
value spaces
field character
(42)
value
“The number of account records deleted was”
print-count
integer(
3)
mask
(zz9)
define
file
zip
file
record
zip-code-record
status
zip-status
key
zip
structure
zip
integer
(5)
city
character
(15)
state
character
(2)
define
fil
e
acctfile
record
account-record
status
acct-status
key
account-number
structure
account-number
integer(
9)
last-name
character
(18)
first-name
character
(15)
middle-initial
character
street-address
character
(25)
field character
(17)
zip-code
integer(
5)
balance
signed decimal
(6.2)
define
file
numbfile
record
next-number-record
status
numb-status
key
next-number
structure
next-number
integer(
9)
indicator
character
define
error-msg
character
(60)
value spaces
define
work-date
character
(8)
define
record-counter
integer(
5)
value
0
define
page-counter
integer(
3)
value
0
define
line-counter
integer(
2)
value
54
work-date
=
date
print-month
=
work-date
(5:2)
print-day
=
work-date
(7:2)
print-year
=
work-date
(3:2)
screen erase
screen
(1,30) “account number delete”
screen
(4,20) “account number:”
screen
(22,20) “enter 0 for the account number to exit”
input-number:
input
(4,36)
account-number
screen
(24,1)
erase
if
account-number
= 0
go to
end-program
end-if
read
acctfile
update
if
acct-status
= 0
if
balance
= 0
perform
process-delete
else