Sample UEB03A

Sample

Input: Variablen mit Textzuweisung:                                 
tag="nn"
monat="nn"
jahr="nn"
Process: Der Tag und das Quartal werden geprueft
(IF Instruktion) und abhängig von diesen Prüfungen werden
Texte ausgegeben.
Der Monatsname kann entweder durch IF Abfragen oder
durch STEM-Variablen ermittelt werden.
Wenn der Tag (Variable tag) kleiner ist als 15 werden der
Text "vor dem 15.", "Datum = 06. Januar 2008" (Beispiel)
und je nach Quartal "erstes", "zweites", "drittes" oder
"viertes Quartal" ausgegeben.
Der Text "Hallo" wird 5mal ausgegeben.
Für das zweite Quartal wird der Monatsname
zusätzlich ausgegeben.
Output: tag < 15 => vor dem 15.
=> erstes|zweites|drittes|viertes Quartal
Hallo
Hallo
Hallo
Hallo
Hallo
Quartal = 2 => April|Mai|Juni

/* REXX UEB03A Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
mon.01="Januar"
mon.02="Februar"
mon.03="Maerz"
mon.04="April"
mon.05="Mai"
mon.06="Juni"
mon.07="Juli"
mon.08="August"
mon.09="September"
mon.10="Oktober"
mon.11="November"
mon.12="Dezember"
  /* */
tag="01"
monat="02"
jahr="08"
  /* */
IF tag < "15" THEN DO
   SAY "vor dem 15."
  /* */
   SAY "Datum =" tag"." mon.monat "20"jahr
  /* */
   IF monat < "04" THEN
      SAY "erstes Quartal"
   ELSE
      IF monat < "07" THEN
         SAY "zweites Quartal"
      ELSE
         IF monat < "10" THEN
            SAY "drittes Quartal"
         ELSE
            SAY "viertes Quartal"
END /* IF tag */
  /* */
DO 5
   SAY "Hallo"
END /* DO 5 */
  /* */
IF monat > "03" & monat < "07" THEN
   SAY mon.monat