Sample UEB09A

Sample

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
  /* */