FKT( ) RETURN - Funktion

REXX Instruktionen
Unterroutinen

Syntax:                                 

SAY  funktion(<parameter> <,parameter>)
var1 = funktion(<parameter> <,parameter>)
IF  funktion(<parameter> <,parameter>) = ...
...
EXIT
/*
funktion:
ARG() | PARSE   ARG parm1 <, parm2>

RETURN   resultat


/* REXX FKT Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a = "REXX TSOISPF KURS"
SAY infunk(a,"SOFTWARE")     /* Aufruf von infunk mit 2 Parametern */
                   /* die Funktion wird durch das Resultat ersetzt */
                   /* Ausgabe von: "Sehr Gut"                      */
EXIT                         /* Ende der Prozedur                  */
  /* */
  /* */
infunk:
                              /* Parameter bearbeiten              */
                              /*    REXX TSOISPF KURS SOFTWARE     */
  /* */
SAY ARG()                     /* Ausgabe: 2                        */
SAY ARG(1)                    /* Ausgabe: REXX TSOISPF KURS        */
SAY ARG(2)                    /* Ausgabe: SOFTWARE                 */
  /* */
PARSE ARG p1, p2
SAY p1                        /* Ausgabe: REXX TSOISPF KURS        */
SAY p2                        /* Ausgabe: SOFTWARE                 */
  /* */
SAY "Funktion"                /* Ausgabe: Funktion                 */
RETURN "Sehr Gut"             /* bei Funktion REQUIRED!            */