Sample UEB04B

Sample

Input: Variablen mit Textzuweisung:                                 
monat="nn"
Process: Der Monat wird geprüft (SELECT 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 UEB04B Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
monat="07"
  /* */
SELECT
  WHEN monat = "01" THEN SAY "Januar"
  WHEN monat = "02" THEN SAY "Februar"
  WHEN monat = "03" THEN SAY "Maerz"
  WHEN monat = "04" THEN SAY "April"
  WHEN monat = "05" THEN SAY "Mai"
  WHEN monat = "06" THEN SAY "Juni"
  WHEN monat = "07" THEN SAY "Juli"
  WHEN monat = "08" THEN SAY "August"
  WHEN monat = "09" THEN SAY "September"
  WHEN monat = "10" THEN SAY "Oktober"
  WHEN monat = "11" THEN SAY "November"
  WHEN monat = "12" THEN SAY "Dezember"
  OTHERWISE
    SAY "OUPS?!"
END /* Select */
/* */