/* REXX CALLEXT Copyright YCOS Yves Colliard Software 1990-2009 */
/* NAME (Member):                                                 */
/*                                                                */
/* ARG() | PARSE   ARG  parm1 <, parm2>                           */
/*                                                                */
/*                                                                */
/* RETURN   <resultat>                                            */
/*                                                                */
/*================================================================*/
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
  /* */
a = "REXX TSOISPF KURS"
CALL 'YEXROUT' a,"SOFTWARE" /* Aufruf von YEXROUT mit 2 Parametern */
SAY RESULT                  /* Ausgabe des Resultats: Sehr Gut     */
EXIT                        /* Ende der Prozedur                   */
  /* */