home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / adm / arexx / adm-arexxmakros.lha / Ausdruck / Serienbrief_ASCII.adm < prev    next >
Text File  |  1995-06-04  |  935b  |  48 lines
  1. /* $VER: Serienbrief_ASCII.adm 1.0 (13.5.95)
  2.  
  3.    Druckt einen Brief an alle Einträge. Das Formular muß dazu
  4.    per Filerequester ausgewählt werden
  5.    (bspw. Serienbrief_ASCII.form).
  6.  
  7.    von Jan Geißler.
  8.  
  9. */
  10.  
  11. OPTIONS RESULTS    /* Rückgabewerte einschalten */
  12.  
  13. reqname = "rexxreqtools.library"
  14. if ~show("L", reqname) then
  15.   if ~addlib(reqname, 0, -30, 0) then do
  16.      say reqname "not found!"
  17.      EXIT
  18.   end
  19.  
  20. dir   = ""
  21. file  = ""
  22. title = "Briefformular öffnen"
  23. ok    = "OK"
  24.  
  25. filename = rtfilerequest(dir,file,title,ok)
  26. if filename = "" then do
  27.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  28.   EXIT
  29. end
  30.  
  31.  
  32. /* --- Druckschleife */
  33.  
  34. ADDRINMEM          /* Anzahl Adr. im Speicher herausfinden*/
  35. numadr = RESULT
  36. ACTIVATEFIRST      /* ersten Eintrag aktivieren */
  37.  
  38. DO FOR numAdr
  39.    GETADDRESS ADM
  40.    IF ADM.lastname = "" THEN DO
  41.       PRINTLETTER filename 3
  42.    END
  43.    ELSE DO
  44.       PRINTLETTER filename 1
  45.    END
  46.    ACTIVATENEXT
  47. END
  48.