program-name: acctprint
define acctfile record account-record structure
account-number integer(9)
last-name character(18)
first-name character(15)
middle-initial character
street-address character(25)
city character(15)
state character(2)
zip-code integer(5)
balance signed decimal(6.2)
read acctfile into account-record
print account-number
print last-name
print first-name
print middle-initial
print street-address
print city
print state
print zip-code
print balance
end
The output will look like the following:
391023123
smith
chris
t
396 main street
buffalo
ny
14225
00001620