Liebe alle,

hier unsere HÜ.

MFG,

Jana und Birgit

### 1 ###

CALL ON ANY /* intercept anything that is not caught explicitly */
CALL ON USER GRUNDSTUFE /* intercept a user exception GRUNDSTUFE*/
CALL ON USER UNTERSTUFE /* intercept a user exception UNTERSTUFE */
CALL ON USER OBERSTUFE /* intercept a user exception OBERSTUFE */
CALL stufe 1
CALL stufe 2
CALL stufe "oberstufe" /* <- this is line # 7 */
CALL stufe 4 /* <- this is line # 8 */
CALL stufe 3
CALL stufe "grundstufe" /* <- this is line # 10 */
CALL stufe "uni" /* <- this is line # 11 */
EXIT 0
ANY : SAY "in Linie:" SIGL "Exception:" CONDITION("C"); RETURN
grundstufe: SAY "[caught exception 'GRUNDSTUFE' ]"; RETURN
unterstufe: SAY "[ caught exception 'UNTERSTUFE']"; RETURN
oberstufe:SAY "[caught exception 'OBERSTUFE' ]"; RETURN
::ROUTINE stufe
PARSE ARG stufe
SAY ':STUFE:' STUFE
IF STUFE =1 | stufe = "grundstufe" THEN RAISE USER grundstufe;
if stufe = 2 | stufe = "unterstufe" then raise user unterstufe;
if stufe =3 | stufe = "oberstufe" then raise user oberstufe
ELSE IF stufe > 3 THEN RAISE USER irrelevant
ELSE SAY '--> checked o.k.'


RAISE USER  something_raised
EXIT 0

OUTPUT.

:STUFE: 1

[caught exception 'GRUNDSTUFE' ]

:STUFE: 2

[ caught exception 'UNTERSTUFE']

:STUFE: oberstufe

[caught exception 'OBERSTUFE' ]

:STUFE: 4

in Linie: 8 Exception: USER IRRELEVANT

:STUFE: 3

[caught exception 'OBERSTUFE' ]

:STUFE: grundstufe

[caught exception 'GRUNDSTUFE' ]

:STUFE: uni

in Linie: 11 Exception: USER IRRELEVANT

Process finished with exit code 0

### 2 ###

Program rexx.rexx

SAY "1. Wie ist dein Vorname??"
PARSE PULL Vorname
SAY "Dein Vorname ist" pp(Vorname)
say -- empty line
SAY "2.Wie ist dein Nachname?"

parse PULL Nachname
SAY "Dein Nachname ist" pp(Nachname)
say -- empty line
SAY "3. Wie alt bist du??"
parse pull alt
if alt <25 then say "Du bist" alt "Jahre alt. Wow, du bist jung!"
if alt >= 25 then say "Du bist" alt "Jahre alt. Wow, du bist klug!"
EXIT
PP : RETURN "[" || ARG(1) || "]" -- "pretty print" ;)

File „myinput.txt”:

Max

Bauer

44

Moritz

Fischer

12

## in CMD:

C:\Users\jkorunov> cd IdeaProjects\untitled

C:\Users\jkorunov\IdeaProjects\untitled>rexx.rexx <myinput.txt

1. Wie ist dein Vorname??

Dein Vorname ist [Max]

2.Wie ist dein Nachname?

Dein Nachname ist [Bauer]

3. Wie alt bist du??

Du bist 44 Jahre alt. Wow, du bist klug!