/* REXX FKT ARG Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a1 = "REXX"
a2 = "Yves Colliard Software"
a3 = "TSOISPF KURS"
  /* */
SAY fkt(a1,a2,a3)                 /* Ausgabe: "ENDE"          */
EXIT
  /* */
fkt:
SAY ARG()                     /* Ausgabe: 3                   */
SAY ARG(1)                    /* Ausgabe: "REXX"              */
SAY ARG(3)                    /* Ausgabe: "TSOISPF KURS"      */
SAY ARG(2,E)                  /* Ausgabe: 1                   */
SAY ARG(4,E)                  /* Ausgabe: 0                   */
SAY ARG(4,O)                  /* Ausgabe: 1                   */
IF ARG(2,E) THEN
  SAY "Parm2 angegeben" /* Ausgabe: "Parm2 angegeben"   */
ELSE
  SAY "Parm2 fehlt"
IF ARG(4,O)=1 THEN
  SAY "Parm4 fehlt"     /* Ausgabe: "Parm4 fehlt"       */
ELSE
  SAY "Parm4 angegeben"
RETURN "ENDE"       /* bei Funktion REQUIRED!            */