/*
**  $VER: Insert Data Address Book 2 Ed 01.00 (23.01.1995)
**
**  © 1995 Aris Basic
**
**  PROGRAMNAME:
**      InsDataAB2Ed.ed
**
**  FUNCTION:
**      This script make exchange from KeyWords in ED(© Commodore Amiga INC.) text.
**      Dates FOR exchange are from Address-Book 0.26# (© Jörg Krause)
**      (Read ABMacros.guide FOR more infos)
**
**      That`s one ED ARexx Macro
**      Script can be only distributet AND copyed with full Addres-Book Archiv
**      AND without any changes !!!
**
**  $HISTORY:
**
**   23.01.95 : 01.00 : initial release
**
*/

/*
**   STRING CONST BEGIN:
*/

noentry='<noentry>'

/* Standard STRING FOR EMPTY entry */

staatc='Deutschland'

/* Standard State name. !WARNING! DON`T PUT ' '(space) IN STRING PUT '_' */

/*
**   STRING CONST END ;
*/

OPTIONS RESULTS
edadr=ADDRESS()

IF ~SHOW('P','ADDRESS_BOOK.1') THEN DO
					SAY "Kann Address-Book nicht finden"
					CALL error()
END                              
ADDRESS 'ADDRESS_BOOK.1'
	'FIRST SELECTED'
	'GETSELECTED'
	IF RC=5 THEN DO
		   'REQUEST INFO TITLE="FEHLER" BODY="Es ist kein Eintrag in ABook Selektiert" BUTTON="_OK"'
		   CALL error()
	END                                                                      
	alt=0
	neu=RESULT
	ADDRESS VALUE edadr
	'SA /T:file.tmp/'
	'M 1'
	DO WHILE neu~=alt
			 ADDRESS 'ADDRESS_BOOK.1'
				   'LOCK 'neu
				   'QUERY SURNAME'
				   nname=RESULT
				   IF Length(nname)=0 THEN nname=noentry
				   'QUERY PRENAME'
				   vname=RESULT
				   IF Length(vname)=0 THEN vname=noentry
				   'QUERY STREET'
				   strasse=RESULT
				   strasse=SPACE(strasse,1,'_')
				   IF Length(strasse)=0 THEN strasse=noentry
				   'QUERY POSTCODE'
				   plz=RESULT
				   IF Length(plz)=0 THEN plz=noentry
				   'QUERY TOWN'
				   ort=RESULT
				   ort=SPACE(ort,1,'_')
				   IF Length(ort)=0 THEN ort=noentry
				   'QUERY PHONE'
				   tel=RESULT
				   IF Length(tel)=0 THEN tel=noentry
				   'QUERY FAX'
				   fax=RESULT
				   IF Length(fax)=0 THEN fax=noentry
				   'QUERY SEX'
				   anrede=RESULT
				   IF Length(anrede)=0 THEN anrede=noentry
				   'QUERY EMAIL'
				   email=RESULT
				   IF Length(email)=0 THEN email=noentry
				   'QUERY STATE'
				   staat=RESULT
				   staat=SPACE(staat,1,'_')
				   IF Length(staat)=0 THEN staat=staatc
				   'QUERY COUNTRY'
				   land=RESULT
				   land=SPACE(land,1,'_')
				   IF Length(land)=0 THEN land=noentry
				   'QUERY BIRTHDAY'
				   gtag=RESULT
				   IF Length(gtag)=0 THEN gtag=noentry
				   'QUERY BANK'
				   bank=RESULT
				   bank=SPACE(bank,1,'_')
				   IF Length(bank)=0 THEN bank=noentry
				   'QUERY BANKCODE'
				   blz=RESULT
				   blz=SPACE(blz,1,'-')
				   IF Length(blz)=0 THEN blz=noentry
				   'QUERY ACCOUNT'
				   konto=RESULT
				   konto=SPACE(konto,1,'-')
				   IF Length(konto)=0 THEN konto=noentry
				   'QUERY COMMENT'
				   komentar=RESULT
				   komentar=SPACE(komentar,1,'_')
				   IF Length(komentar)=0 THEN komentar=noentry      
			   ADDRESS VALUE edadr
			   'E /$NNAME$/'||nname||'/'
			   'E /$SNAME$/'||nname||'/'
			   'E /$VNAME$/'||vname||'/'
			   'E /$PNAME$?'||vname||'/'
			   'E :$STRASSE$:'||strasse||':'
			   'E :$STREET$:'||strasse||':'
			   'E :$PLZ$:'||plz||':'
			   'E :$PCODE$:'||plz||':'
			   'E :$STADT$:'||ort||':'
			   'E :$CITY$:'||ort||':'
			   'E :$TEL$/'||tel||':'
			   'E :$FAX$:'||fax||':'
			   'E :$AN$:'||anrede||':'
			   'E :$SEX$:'||anrede||':'
			   'E :$EMAIL$:'||email||':'
			   'E :$STAAT$:'||staat||':'
			   'E :$STATE$:'||staat||':'
			   'E :$LAND$:'||land||':'
			   'E :$COUNTRY$:'||land||':'
			   'E /$GEBTAG$/'||gtag||'/'
			   'E /$BDAY$/'||gtag||'/'
			   'E :$BANK$:'||bank||':'
			   'E :$BLZ$:'||blz||':'
			   'E :$BCODE$:'||blz||':'
			   'E :$KONTO$:'||konto||':'
			   'E :$ACC$:'||konto||':'
			   'E /$KOM$/'||komentar||'/'
			   ADDRESS 'ADDRESS_BOOK.1'
			   'REQUEST INFO TITLE="ANFRAGE" BODY="Sol ich den Text ausdrucken oder speichern ?" BUTTON="_Speichern|_Drucken"'
			   button=RESULT
			   ADDRESS VALUE edadr
			   IF button=1 THEN DO
				       'SA ?/Name fuer Speichern/'
			   END
			   IF button=0 THEN DO
				       'SA /PRT:/'
			   END
			   'OP /T:file.tmp/'
		  ADDRESS 'ADDRESS_BOOK.1'
		  alt=neu
		  'NEXT SELECTED'
		  'GETSELECTED'
		  neu=RESULT
       END
EXIT 0
error:
EXIT 10