CALL RETURN - Intern

REXX Instruktionen
Unterroutinen

Syntax:                                 

CALL   name   <parameter> <,parameter>

SAY   RESULT
...
EXIT
/*
name:

ARG() | PARSE  ARG parm1 <, parm2>

RETURN   <resultat>


/* REXX CALLINT 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:
                              /* Parameter bearbeiten              */
                              /*    REXX TSOISPF KURS SOFTWARE     */
  /* */
SAY ARG()                     /* Ausgabe: 2                        */
SAY ARG(1)                    /* Ausgabe: REXX TSOISPF KURS  parm1 */
SAY ARG(2)                    /* Ausgabe: SOFTWARE           parm2 */
  /* */
PARSE ARG p1 p2 p3, p4
SAY p1                        /* Ausgabe: REXX               parm1 */
SAY p2                        /* Ausgabe: TSOISPF            parm1 */
SAY p3                        /* Ausgabe: KURS               parm1 */
SAY p4                        /* Ausgabe: SOFTWARE           parm2 */
  /* */
SAY "Unterroutine"            /* Ausgabe: Unterroutine             */
RETURN "Sehr Gut"             /* bei CALL optional                 */