/* Writes field for prior record to the output file. */
Arg typ
Select
When typ = 'CARD' then do /* address page */
if append='unique' then do m=1 to 5
check=translate(value('data.EMAIL'||m))
if check<>'' then do n=1 to carddata.0
if check=carddata.n then return
end
end
holding=''
Do While data.COMMENTS <> ''
Parse var data.COMMENTS left (crlf) data.COMMENTS
if holding='' then holding=left
else holding=holding||'09'x||left
end
data.COMMENTS=holding
if 0<>LineOut(outfile, data.LAST_NAME||'09'x||data.FIRST_NAME||'09'x||data.ORGANIZATION||'09'x||data.EMAIL1||'09'x||data.NICKNAME1||'09'x||data.EMAIL2||'09'x||data.NICKNAME2||'09'x||data.EMAIL3||'09'x||data.NICKNAME3||'09'x||data.EMAIL4||'09'x||data.NICKNAME4||'09'x||data.EMAIL5||'09'x||data.NICKNAME5||'09'x||data.PHONE1||'09'x||data.PHONE2||'09'x||data.FAX||'09'x||data.COMMENTS) then signal err4
end /* of When */
When typ = 'GROUP' then do /* group of addresses */