home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / ADM144.lha / ADM / ARexx / PrintAlphLst.adm < prev    next >
Encoding:
Text File  |  1994-07-26  |  2.2 KB  |  82 lines
  1.  
  2. /* $VER: List.rexx 1.3 (12.06.93)
  3.  
  4.    Written by Jan Geissler.
  5.  
  6.    Beispielscript, wie man Adressdaten per ARexx-Befehl  auslesen
  7.    und auf dem Drucker ausgeben kann.
  8.  
  9.    Written by Jan Geißler. */
  10.  
  11.  
  12. /* ----------------------------------------------------------------------
  13.    START
  14.    ---------------------------------------------------------------------- */
  15.  
  16. OPTIONS RESULTS                      /* Rückgabewerte zulassen   */
  17.  
  18. ADDRINMEM                             /* Anzahl Adressen holen    */
  19. numadr = RESULT
  20.  
  21. IF ~OPEN(datei,"PRT:","W") THEN DO   /* Ausgabedatei öffnen     */
  22.    SAY "Kann Ausgabedatei nicht öffnen!"
  23.    EXIT
  24. END
  25.  
  26. ACTIVATEFIRST                        /* Ersten Eintr. aktivieren */
  27.  
  28. /* ----------------------------------------------------------------------
  29.    AUSGABE
  30.    ---------------------------------------------------------------------- */
  31.  
  32. DO FOR numAdr
  33.  
  34.    GETADDRESS ADM                    /* Adresse -> Stemvar ADM   */
  35.  
  36.    text = ADM.COMPANY
  37.    CALL DruckZeile
  38.    text = ADM.LASTNAME || "," ADM.FIRSTNAME
  39.    IF ADM.ID ~= "" THEN text = text "(ID" ADM.ID || ")"
  40.  
  41.    CALL DruckZeile
  42.  
  43.    text = "  " ADM.ADDRESS1
  44.    CALL DruckZeile
  45.    text = "  " ADM.ADDRESS2
  46.    CALL DruckZeile
  47.    text = "  " ADM.POSTCODE ADM.CITY || "," ADM.COUNTRY
  48.    CALL DruckZeile
  49.  
  50.    text = "   "
  51.    IF ADM.TELEPHONE ~= "" THEN text = text || "Tel." ADM.TELEPHONE || ", "
  52.    IF ADM.FAX ~= "" THEN text = text || "Fax" ADM.FAX
  53.    CALL DruckZeile
  54.  
  55.    text = "   "
  56.    IF ADM.BIRTHDAY ~= "" THEN text = text || "Geb." ADM.BIRTHDAY
  57.    CALL DruckZeile
  58.  
  59.    ok = WriteLn(datei,"")            /* Leerzeile schreiben */
  60.  
  61.    ACTIVATENEXT                      /* Akt. naechsten Eintrag */
  62.  
  63. END
  64.  
  65. ok = CLOSE(datei)
  66.  
  67. EXIT                                 /* Programmende */
  68.  
  69. /* ----------------------------------------------------------------------
  70.    UNTERPROGRAMM: Zeile Schreiben
  71.    ---------------------------------------------------------------------- */
  72.  
  73. DruckZeile:
  74.  
  75.   text = STRIP(text,"T"," ")        /* Leerzeichen am Ende entfernen */
  76.   text = STRIP(text,"T",",")        /* Kommas      am Ende entfernen */
  77.  
  78.   IF text ~= "" THEN                /* Wenn Zeile nicht leer...      */
  79.   ok = WRITELN(datei,text)          /* Zeile ausgeben                */
  80.  
  81. RETURN
  82.