/* REXX RETURN Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a = "REXX TSOISPF KURS"
CALL inrout a,"SOFTWARE"     /* Aufruf von inrout mit 2 Parametern */
SAY RESULT                   /* Ausgabe des Resultats: Sehr Gut    */
EXIT                         /* Ende der Prozedur                  */
  /* */
  /* */
inrout:
ARG inf1 inf2 inf3, inf4      /* Parameter einlesen                */
                              /*    REXX TSOISPF KURS SOFTWARE     */
SAY "Unterroutine"            /* Ausgabe: Unterroutine             */
RETURN "Sehr Gut"