home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / FINALBASE1_1.DMS / in.adf / Fbase / beispiel.RX04 < prev    next >
Encoding:
Text File  |  1993-09-06  |  1.1 KB  |  43 lines
  1. /*  Datenübergabe von EBase ins ARexx-Programm    */
  2.  
  3. dummy = open(win, "con:10/100/500/80/ARexxTest", "Write")
  4.  
  5. ErsterSatz         /* ersten Satz lesen */
  6.  
  7. xrc = 0
  8. do while xrc = 0     /* Stoppen, wenn RC > 0 */
  9.  
  10.    Transfer 0 1 2    /* Felder 0 (Name), 1 (Vorname)     */
  11.    xrc = xrc + rc    /* und 2 (Geburtsdatum) übertragen  */
  12.  
  13.              /* Daten ins Programm holen           */
  14.              /* Man beachte -> getclip("Name ")        */
  15.              /* Wird das Leerzeichen hinter Name weg-  */
  16.              /* gelassen, wird Nichts gefunden           */
  17.  
  18.    name   = getclip(0)
  19.    vname  = getclip(1)
  20.    gebdat = subword(getclip(2), 1, 1)
  21.                           /* Daten weiterverarbeiten */
  22.    if name = "Rumpelstilzchen" then do
  23.       tag = substr(gebdat, 1, 2)
  24.       mon = substr(gebdat, 3, 2)
  25.       jhr = substr(gebdat, 5, 4)
  26.       zeile = vname' 'name' hat am 'tag'.'mon'.'jhr' Geburtstag'
  27.       dummy = writeln(win, zeile)
  28.    end
  29.  
  30.    SatzLesenV         /* nächsten Satz lesen  */
  31.    xrc = xrc + rc
  32.  
  33. end
  34.  
  35. dummy = writeln(win, " ")
  36. dummy = writeln(win, "Alles gelesen? Dann bitte RETURN drücken!")
  37. zeile = readln(win);
  38.  
  39. dummy = close(win)
  40. exit
  41.  
  42.  
  43.