Sample UEB03B

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"
qanf = 2
qend = 3
Process: Alle Monate vom "qanf" bis zum "qanf" Quartal
ausgeben (DO)
Output: April, Mai, Juni, Juli, August, September

/* REXX UEB03B 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"
qanf = 2
qend = 3
  /* */
do i=1 to 12
  quart = (i+2)%3      /* (Monat + 2) ganzahldivision 3 */
  if quart>=qanf & quart<=qend then say mon.i
end
  /* */
SAY "------------ODER------------"
  /* */
do i=(qanf*3)-2 to qend*3
  say mon.i
end