Information Technology Reference
In-Depth Information
field character
(18)
value
spaces
print-account-number
integer(
9)
field character
(17)
value
spaces
print-last-name
character
(18)
field character
(17)
value
spaces
print-first-name
character
(15)
field character
(17)
value
spaces
print-middle-initial
character
define
total-line
structure
field character
(43)
value
spaces
field character
(42)
value
“The number of account records added was”
print-count
integer(
3)
mask
(zz9)
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
field1
character
(42)
zip-code
integer(
5)
balance
signed decimal
(6.2)
define
data-fields
structure
new-account-number
integer(
9)
value
0
process-sw
integer value
0
define
error-msg
character
(60)
value spaces
define
in-last-name
character
(18)
define
in-first-name
character
(15)
define
in-middle-initial
character
define
name-string
structure
field
character
(26)
value
“ABCDEFGHIJKLMNOPQRSTUVWXYZ”
field character
(30)
value
“abcdefghijklmnopqrstuvwxyz „-.”
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,23) “new account number addition program”
screen
(5,20) “account number:”
screen
(10,20) “last name:”
screen
(15,20) “first name:”
screen
(20,20) “middle initial:”