Category : Files from Magazines
Archive   : PCTJ1285.ZIP
Filename : MLABELS.ACE

{ This report prints mailing label in one column }
{ Assumes labels are 1" high by 3-1/2" wide }

database
edit
end

define
variable namebuffer char(40)
variable citystatezip char(40)
end

output
report to "labels.txt"
top margin 0
bottom margin 0
page length 66
left margin 0
right margin 40
end

select unique *
from
article, author
where
author.last_name = article.author_lname
and author.first_name = article.author_fname
and article.volume = 3 and article.number = 1
end

format
on every row
let namebuffer = first_name clipped, 1 space, last_name
let citystatezip = city clipped, ", ", state, 1 space, zip_code
skip 1 line
print namebuffer
print address
print citystatezip
skip 2 lines
end