/* $Revision Header built automatically *************** (do not edit) ************
**
** © Copyright by Dirk Federlein
**
** File             : postprocess.dfa
** Created on       : Samstag, 04.02.95 00:16:28
** Created by       : Dirk Federlein
** Current revision : V1.0
**
**
** Purpose
** -------
**     Example script to demonstrate postprocessing of
**     a new address. If looks if there is a valid usenet
**     address in the email #1 field and if so, it appends
**     the "real name" to the email address.
**
** Revision V1.0
** --------------
** created on Samstag, 04.02.95 00:16:28  by  Dirk Federlein.   LogMessage :
**     --- Initial release ---
**
*********************************************************************************/

options results

tabchar = '09'X
cr	= '0A'X
quote	= '22'X

address 'DFA' 

getcurrent STEM adr.

if pos('@',adr.address.12) > 0 then
do
	newemail=quote||adr.address.12||" ("||adr.address.1 adr.address.2||")"||quote

	edit 'email1=' newemail
end