Input: Zahl beim Aufruf mitgeben (UEB09A 77)
Process: Prüfen, dass ein numerischen Parameter gegeben wurde
und dass nur ein Parameter gegeben wurde
(PARSE ARG oder ARG())
Diese Unterroutine multipliziert diese Zahl mit 12 und
addiert 25.
Das Ergebnis ausgeben als "Resultat:" nnnn
Output: z.B. Eingabe=77 => 77 * 12 +25 = 949
Resultat: 949
/* REXX UEB09A Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R */
/* einschalten des interaktiven Trace Modus */
/* */
IF ARG()<> 1 THEN DO
SAY "Falsche Eingabe"
EXIT
END
/* */
IF DATATYPE(ARG(1))<> "NUM" THEN DO
SAY "Nicht numerische Eingabe"
EXIT
END
/* */
SAY "Resultat:" (ARG(1)*12) + 25
/* */