Sample UEB03E

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 WHILE)
Output: Januar, Maerz, Mai, ... August

/* REXX UEB03E 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=1
please_stop="N"
do while please_stop="N"
  if mon.i=stop_mon then please_stop="Y"
  say mon.i
  i=i+1
end
  /* */
SAY "------------ODER------------"
  /* */
please_stop="N"
do i=1 while please_stop="N"
  if mon.i=stop_mon then please_stop="Y"
  say mon.i
end
  /* */
SAY "------------ODER------------"
  /* */
i=0
do while mon.i<>stop_mon
  i=i+1
  say mon.i
end