Computers for Smart People by Robert S. Swiatek - HTML preview

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