SELECT WHEN OTHERWISE END - Ausfuehrung unter Bedingungen

REXX Instruktionen

Syntax:                                 
SELECT
WHEN  Kondition THEN  Instruktion
<WHEN Kondition THEN  Instruktion>
<OTHERWISE  Instruktion>
END

/* REXX SELECT Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a = 4
b = 6
mt = "TEXT2"
t1 = "TEXT1"
t2 = "TEXT2"
t3 = "TEXT3"
  /* */
SELECT
  WHEN a = 1 THEN SAY "REXX"
  WHEN a = 2 THEN SAY "TSOISPF"
  WHEN a = 4 THEN DO
    SAY "KURS"             /* Ausgabe: KURS   */
  END
  WHEN a = b THEN SAY "ALLES"
  OTHERWISE SAY "Nicht gefunden"
END
  /* */
SELECT
  WHEN mt=t1 THEN SAY mt
  WHEN mt=t3 THEN SAY mt
  OTHERWISE
    SAY mt "Ungleich"    /* Ausgabe: TEXT2 Ungleich */
    SAY "Yves Colliard"  /* Ausgabe: Yves Colliard  */
END
  /* */