Sample UEB02A

Sample

Input: Variablen mit Textzuweisung:                                 
tag="nn"
monat="nn"
jahr="nn"
Process: Der Tag und das Quartal werden geprueft und
abhaengig von diesen Pruefungen werden Texte ausgegeben.
Wenn der Tag (Variable tag) kleiner ist als 15
wird der Text "vor dem 15." ausgegeben.
Je nach Quartal werden die Texte "erstes", "zweites",
"drittes" oder "viertes Quartal" ausgegeben.
Output: tag < 15 => vor dem 15.
je nach Quartal => erstes|zweites|drittes|viertes Quartal

/* REXX UEB02A Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
tag="01"
monat="07"
jahr="96"
  /* */
IF tag < "15" THEN
   SAY "vor dem 15."
  /* */
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"