home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d970
/
adm.lha
/
ADM
/
ARexx
/
PrintAlphLst.adm
< prev
next >
Wrap
Text File
|
1993-06-13
|
2KB
|
82 lines
/* $VER: List.rexx 1.3 (12.06.93)
Written by Jan Geissler.
Beispielscript, wie man Adressdaten per ARexx-Befehl auslesen
und auf dem Drucker ausgeben kann.
Written by Jan Geißler. */
/* ----------------------------------------------------------------------
START
---------------------------------------------------------------------- */
OPTIONS RESULTS /* Rückgabewerte zulassen */
ADDRINMEM /* Anzahl Adressen holen */
numadr = RESULT
IF ~OPEN(datei,"PRT:","W") THEN DO /* Ausgabedatei öffnen */
SAY "Kann Ausgabedatei nicht öffnen!"
EXIT
END
ACTIVATEFIRST /* Ersten Eintr. aktivieren */
/* ----------------------------------------------------------------------
AUSGABE
---------------------------------------------------------------------- */
DO FOR numAdr
GETADDRESS ADM /* Adresse -> Stemvar ADM */
text = ADM.COMPANY
CALL DruckZeile
text = ADM.LASTNAME || "," ADM.FIRSTNAME
IF ADM.ID ~= "" THEN text = text "(ID" ADM.ID || ")"
CALL DruckZeile
text = " " ADM.ADDRESS1
CALL DruckZeile
text = " " ADM.ADDRESS2
CALL DruckZeile
text = " " ADM.POSTCODE ADM.CITY || "," ADM.COUNTRY
CALL DruckZeile
text = " "
IF ADM.TELEPHONE ~= "" THEN text = text || "Tel." ADM.TELEPHONE || ", "
IF ADM.FAX ~= "" THEN text = text || "Fax" ADM.FAX
CALL DruckZeile
text = " "
IF ADM.BIRTHDAY ~= "" THEN text = text || "Geb." ADM.BIRTHDAY
CALL DruckZeile
ok = WriteLn(datei,"") /* Leerzeile schreiben */
ACTIVATENEXT /* Akt. naechsten Eintrag */
END
ok = CLOSE(datei)
EXIT /* Programmende */
/* ----------------------------------------------------------------------
UNTERPROGRAMM: Zeile Schreiben
---------------------------------------------------------------------- */
DruckZeile:
text = STRIP(text,"T"," ") /* Leerzeichen am Ende entfernen */
text = STRIP(text,"T",",") /* Kommas am Ende entfernen */
IF text ~= "" THEN /* Wenn Zeile nicht leer... */
ok = WRITELN(datei,text) /* Zeile ausgeben */
RETURN