Sample UEB02B

Sample

Input: Variablen mit Textzuweisung:                                 
monat="nn"
Process: Der Monat wird geprüft (IF Instruktion) und
abhaengig von dieser Pruefung werden Texte ausgegeben.
Wenn der Monat = "01" - Ausgabe "Januar", Monat = "02"
- Ausgabe "Februar", m Monat = "12" - Ausgabe "Dezember"
Output: je nach Monat => Januar, Februar, Maerz, ... Dezember

/* REXX UEB02B Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
monat="07"
  /* */
IF monat = "01" THEN SAY "Januar"
ELSE
  IF monat = "02" THEN SAY "Februar"
  ELSE
    IF monat = "03" THEN SAY "Maerz"
    ELSE
      IF monat = "04" THEN SAY "April"
      ELSE
        IF monat = "05" THEN SAY "Mai"
        ELSE
          IF monat = "06" THEN SAY "Juni"
          ELSE
            IF monat = "07" THEN SAY "Juli"
            ELSE
              IF monat = "08" THEN SAY "August"
              ELSE
                IF monat = "09" THEN SAY "September"
                ELSE
                  IF monat = "10" THEN SAY "Oktober"
                  ELSE
                    IF monat = "11" THEN SAY "November"
                      ELSE
                      IF monat = "12" THEN SAY "Dezember"
                      ELSE
                        NOP
    /* */