Sample UEB04A

Sample

Input: Variablen mit Textzuweisung:                                 
tag="nn"
monat="nn"
jahr="nn"
Process: SELECT Instruktion verwenden, um den Text "erstes",
"zweites", "drittes" oder "viertes Quartal" auszugeben.
Für das erste Quartal wird der Monatsname zusätzlich
ausgegeben.
Output: erstes|zweites|drittes|viertes Quartal
1. Quartal => Januar|Februar|Maerz

/* REXX UEB04A 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="07"
  /* */
SELECT
   WHEN monat < "04" THEN DO
      SAY "erstes Quartal"
      SAY mon.monat
   END
   WHEN monat < "07" THEN
      SAY "zweites Quartal"
   WHEN monat < "10" THEN
      SAY "drittes Quartal"
   OTHERWISE
      SAY "viertes Quartal"
END /* SELECT */
  /* */