Sample UEB06B

Sample

Input: Eingabe am Bildschirm verlangen (PARSE EXTERNAL)                                 
(nicht vergessen dem Benutzer darüber zu "informieren"
Process: Eingaben verlangen, bis der Benutzer keine Angaben
(Enter ohne Daten) mehr macht.
Eingegebene Informationen wiederholen
Am Ende der Eingabe informieren.
Output:  Eingabe beendet!
Ausgabe aller Eingaben erst nach Beendigung der Eingabe
Eingabe n: ... eingegebene Text ...

/* REXX UEB06B Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
DO ind=1 UNTIL inp.ind=""
  /* */
   SAY "Bitte Text eingeben:"
   PARSE EXTERNAL inp.ind
  /* */
END
SAY "Eingabe beendet!"
  /* */
DO loop=1 to ind-1
  /* */
   SAY "Eingabe" loop":" inp.loop
  /* */
END
  /* */