Sample UEB07B

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 "ber" enden
Jedoch bei der Ausgabe nur die Stellen 3 bis 5 ausgeben!
Output: pte, tob, vem, zem

/* REXX UEB07B 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 right(mon.i,3)="ber" then say substr(mon.i,3,3)
end
  /* */