Liebe alle,

anbei unsere HÜ

Liebe Grüße

Hans und Claudia

Programm 1:

Signal on user zu_leicht

Call checkGewicht 100

Call checkGewicht 30

Call checkGewicht 50

Exit 0

zu_leicht:

Say "zu leicht"

Exit -1

::Routine checkGewicht

Parse Arg Gewicht

Say "Gewicht:" Gewicht

If Gewicht < 50 Then Raise User zu_leicht

                               Else Say "-> ok"

Exit 0

Output:

REXXout>Gewicht: 100

REXXout>-> ok

REXXout>Gewicht: 30

REXXout>zu leicht

Programm 2:

Call on user zu_leicht

Call checkGewicht 100

Call checkGewicht 30

Call checkGewicht 50

Exit 0

zu_leicht:

Say "zu leicht"

Return

::Routine checkGewicht

Parse Arg Gewicht

Say "Gewicht:" Gewicht

If Gewicht < 50 Then Raise User zu_leicht

                               Else Say "-> ok"

Exit 0

Output:

REXXout>Gewicht: 100

REXXout>-> ok

REXXout>Gewicht: 30

REXXout>zu leicht

REXXout>Gewicht: 50

REXXout>-> ok