Sample UEB07A

Sample

Input: Variablen mit Textzuweisung:                                 
mon.1="Januar"
mon.2="Februar"
mon.3="Maerz"
mon.4="April"
mon.5="Mai"
mon.6="Juni"
mon.7="Juli"
mon.8="August"
mon.9="September"
mon.10="Oktober"
mon.11="November"
mon.12="Dezember"
Process: Alle Monate ausgeben die mit einem "J" anfangen
Jedoch bei der Ausgabe nur die ersten 3 Stellen
vom Namen ausgeben!
Output: Jan, Jun, Jul

/* REXX UEB07A Copyright YCOS Yves Colliard Software 1990-2009 */
  /* */
mon.1="Januar"
mon.2="Februar"
mon.3="Maerz"
mon.4="April"
mon.5="Mai"
mon.6="Juni"
mon.7="Juli"
mon.8="August"
mon.9="September"
mon.10="Oktober"
mon.11="November"
mon.12="Dezember"
  /* */
do i=1 to 12
  if left(mon.i,1)="J" then say left(mon.i,3)
end
  /* */