Sample UEB03D

Sample

Input: Variablen mit Textzuweisung:                                 
mon.1="Januar"
mon.2="Februar"
mon.3="Maerz"
mon.4="April"
mon.5="Mai"
mon.6="Juni"
mon.7="Juli"
mon.8="August"
mon.9="September"
mon.10="Oktober"
mon.11="November"
mon.12="Dezember"
stop_mon = "August"
Process: Alle Monate bis zu "stop_mon" Monat ausgeben
(DO UNTIL)
Output: Januar, Maerz, Mai, ... August

/* REXX UEB03D Copyright YCOS Yves Colliard Software 1990-2009 */
  /* */
mon.1="Januar"
mon.2="Februar"
mon.3="Maerz"
mon.4="April"
mon.5="Mai"
mon.6="Juni"
mon.7="Juli"
mon.8="August"
mon.9="September"
mon.10="Oktober"
mon.11="November"
mon.12="Dezember"
stop_mon = "August"
  /* */
i=0
do until mon.i=stop_mon
  i=i+1
  say mon.i
end
  /* */
SAY "------------ODER------------"
  /* */
do i=1 until mon.i=stop_mon
  say mon.i
end