Liebe alle,

hier unsere HÜ.

Grüße

Claudia und Hans

Programm 1:

gewicht = 30

Select

When gewicht < 60 then do 3

say "leicht"

say "lightweight"

end

when gewicht = 60 then say "genau 60 kg"

when gewicht > 80 then say "schwer"

otherwise say "between 60 and 80"

End

Output:

REXXout>leicht

REXXout>lightweight

REXXout>leicht

REXXout>lightweight

REXXout>leicht

REXXout>lightweight

Programm 2:

pattern = ", "

text = "12, Herr, Alfred, Müller, Wien, heinzgasse, 12"

PARSE VAR text ID (pattern) Anrede (pattern) Vorname (pattern) Nachname (pattern) Ort (pattern) Strasse (pattern) Hausnummer

SAY pp(ID)

SAY pp(Anrede)

SAY pp(Strasse)

EXIT

PP : RETURN "[" || ARG(1) || "]" -- "pretty print" ;)

Output:

REXXout>[12]

REXXout>[Herr]

REXXout>[heinzgasse]

_________________________________

Johann Wolfschwenger (er/ihn, he/him)

Forschungsservice (Forschungsinformationssystem PURE)
Research Service Center (Research Information System PURE)

Wirtschaftsuniversität Wien
Vienna University of Economics and Business
Building AR, 6.10, Welthandelsplatz 1, 1020 Vienna, Austria

Tel: +43-1-313 36-5107

Fax: +43-1-313 36-905107