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