home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / FINALBASE1_1.DMS / in.adf / Fbase / beispiel.RX05 < prev    next >
Encoding:
Text File  |  1993-09-06  |  744 b   |  35 lines
  1. /* Programm zum erstellen einer Adress-Datei für Serien-Briefe */
  2.  
  3. dummy = open(adr, "Text_Adressen", "Write")
  4.                  /* Textdatei zum Schreiben öffnen  */
  5.  
  6. dummy = writeln(adr,"Name,Vorname,Adresse,Ort")
  7.                  /* Erste Zeile mit Feldnamen für Text-
  8.                     verarbeitung schreiben         */
  9.  
  10. SuchPara
  11.    7 @          /* Alle Personen mit Telefonanschluß     */
  12. EndPara       /* sollen einen Brief erhalten     */
  13.  
  14. xrc = 0
  15. do while xrc = 0
  16.    Suchen
  17.    xrc = xrc + rc
  18.    if rc = 50
  19.       then iterate
  20.    Transfer
  21.    xrc = xrc + rc
  22.    fname = getclip(0)
  23.    vname = getclip(1)
  24.    str     = getclip(3)
  25.    hnr     = getclip(4)
  26.    plz     = getclip(5)
  27.    ort     = getclip(6)
  28.    zeile = fname','vname','str hnr','plz ort
  29.    dummy = writeln(adr, zeile)
  30. end
  31.  
  32. dummy = close(adr)
  33.  
  34. exit
  35.