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!