Liebe alle,
nachstehend unsere HÜ:
Liebe Grüße Kenan
Bsp1: SAY pp("Ich") CALL testroutine /* routine is called */ SAY pp("ich") EXIT 0 pp : RETURN "<<<" || ARG(1) || ">>>" :: ROUTINE testroutine SAY pp("bin") EXIT 0 pp : RETURN "[" || ARG(1) || "]"
Bsp2:
CALL ON USER TOO_SMALL CALL ON USER TOO_BIG CALL checkWeight 100 CALL checkWeight 85 CALL checkWeight 60 CALL checkWeight 40 CALL checkWeight 50 EXIT 0 TOO_SMALL: SAY "// caught exception 'TOO_SMALL' \"; RETURN TOO_BIG : SAY "// caught exception 'TOO_BIG' \"; RETURN ::ROUTINE checkWeight PARSE ARG weight SAY '--> weight:' weight IF weight < 50 THEN RAISE USER too_small ELSE IF weight > 80 THEN RAISE USER too_big ELSE SAY '--> checked o.k.' EXIT 0
OUTPUT: REXXout>--> weight: 100 REXXout>// caught exception 'TOO_BIG' \ REXXout>--> weight: 85 REXXout>// caught exception 'TOO_BIG' \ REXXout>--> weight: 60 REXXout>--> checked o.k. REXXout>--> weight: 40 REXXout>// caught exception 'TOO_SMALL' \ REXXout>--> weight: 50 REXXout>--> checked o.k.