/*
**  $VER: Insert Data Address Book 2 GoldED 01.23 (22.01.1995)
**
**  © 1995 Aris Basic
**
**  PROGRAMNAME:
**      InsDataAB2GEd.ged
**
**  FUNCTION:
**      This script make exchange from KeyWords in GoldED(© Dietmar Eilert) text.
**      Dates FOR exchange are from Address-Book 0.26# (© Jörg Krause)
**      (Read ABMacros.guide FOR more infos)
**
**      That`s one GoldED ARexx Macro
**      Script can be only distributet AND copyed with full Addres-Book Archiv
**      AND without any changes !!!
**
**  $HISTORY:
**
**   12.01.95 : 01.10 : initial release
**   13.01.95 : 01.12 : they are not anymore only German Keywords
**                      by serial letter User have now choice TO save OR print
**                      changed text
**   17.01.95 : 01.20 : ALL datas from ABook are now used (see ABMacros.guide FOR Keywords)
**                      shorter script
**   22.01.95 : 01.22 : problems with spaces are now gone ?
**                      user choice OF EMPTY entry STRING
**   22.01.95 : 01.23 : Some Bugs fixed by Jörg Krause
**
**
*/

/*
**   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

IF ~SHOW('P','ADDRESS_BOOK.1') THEN DO
					'REQUEST TITLE="FEHLER" BODY="Kann Address-Book nicht finden"'
					CALL error()
END                              
ADDRESS 'ADDRESS_BOOK.1'
	'FIRST SELECTED'
	'GETSELECTED'
	IF RC=5 THEN DO
	   ADDRESS 'GOLDED.1'
		   'REQUEST TITLE="FEHLER" BODY="Es ist kein Eintrag in ABook Selektiert"'
		   CALL error()
	END                                                                      
	alt=0
	neu=RESULT
	ADDRESS 'GOLDED.1'
		'LOCK CURRENT'
		'SAVE ALL NAME="T:file.tmp"'
	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 'GOLDED.1'
			   'REPLACE STRING="$NNAME$" BY='||nname||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$SNAME$" BY='||nname||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$VNAME$" BY='||vname||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$PNAME$" BY='||vname||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$STRASSE$" BY='||strasse||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$STREET$" BY='||strasse||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$PLZ$" BY='||plz||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$PCODE$" BY='||plz||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$STADT$" BY='||ort||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$CITY$" BY='||ort||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$TEL$" BY='||tel||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$FAX$" BY='||fax||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$AN$" BY='||anrede||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$SEX$" BY='||anrede||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$EMAIL$" BY='||email||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$STAAT$" BY='||staat||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$STATE$" BY='||staat||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$LAND$" BY='||land||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$COUNTRY$" BY='||land||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$GEBTAG$" BY='||gtag||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$BDAY$" BY='||gtag||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$BANK$" BY='||bank||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$BLZ$" BY='||blz||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$BCODE$" BY='||blz||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$KONTO$" BY='||konto||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$ACC$" BY='||konto||' ALL CASE=1 QUIET WORDS=1'
			   'REPLACE STRING="$KOM$" BY='||komentar||' ALL CASE=1 QUIET WORDS=1'
			   'REQUEST TITLE="ANFRAGE" BODY="Soll ich den Text ausdrucken oder speichern ?" BUTTON="_Speichern|_Drucken"'
			   button=RESULT
			   IF button=1 THEN DO
					'SAVE ALL ASK'
			   END
			   IF button=0 THEN DO
					'PRINT FORCE ALL'
			   END

			   'UNLOCK'
			   IF button=1 THEN 'OPEN "T:file.tmp"' ; ELSE 'OPEN AGAIN'
			   'LOCK CURRENT'
		  ADDRESS 'ADDRESS_BOOK.1'
		  alt=neu
		  'NEXT SELECTED'
		  'GETSELECTED'
		  neu=RESULT
	END
ADDRESS 'GOLDED.1' UNLOCK
EXIT 0
error:
ADDRESS 'GOLDED.1' UNLOCK
EXIT 10