/* start*/

/* "Ueberweis1.rexx"
   Diese ARexx-Programm öffnet nacheinander mehrere Formularfiles und schreibt
   sie zusammen in ein File. Das erzeugte File ("SammelFormular") kann von
   Ueberweis2.rexx als Eingabefile benutzt werden.
*/

OPTIONS RESULTS

IF 0=OPEN('OutFile','Formulare/SammelFormular','Write') THEN
   DO
     SAY "Kann Datei nicht öffnen."
     EXIT 10
   END

ADDRESS 'UeberweisRexx'
SetPath "Formulare"

IF RESULT=1 THEN
   DO
     SAY "Fehler beim Setzen des Pfades."
     EXIT 10
   END

DO anzahl=1 TO 4

  ADDRESS 'UeberweisRexx'
  IF anzahl=1 THEN LoadForm "Ueberweis1.form"
  IF anzahl=2 THEN LoadForm "Ueberweis2.form"
  IF anzahl=3 THEN LoadForm "Ueberweis3.form"
  IF anzahl=4 THEN LoadForm "Ueberweis4.form"

  IF RESULT=1 THEN
     DO
       SAY "Fehler beim Laden eines Formulars."
       EXIT 10
     END

  DO i=0 TO 12

    ADDRESS 'UeberweisRexx'
    GetText i
    text=RESULT

    ADDRESS 'REXX'
    WriteLn('OutFile',text)

  END

END

IF CLOSE('OutFile')=0 THEN
   DO
     SAY "Fehler beim Schließen der Datei."
     EXIT 10
   END

SAY "Datei SammelFormular fertig geschrieben."