PROCEDURE EXPOSE - Gemeinsame Variablen

REXX Instruktionen
Unterroutinen

Syntax:                                 

CALL  inrout
oder
...   inrout(<parm>)

inrout: PROCEDURE
<EXPOSE variable <variable> >

RETURN


/* REXX PROCEDURE Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a = "REXX TSOISPF KURS"
b = 12
c = 25
CALL inrout a,"SOFTWARE"      /* Aufruf von inrout mit 2 Parameter */
SAY RESULT                    /* Ausgabe der Resultat: Sehr Gut    */
SAY b                         /* Ausgabe: 36                       */
SAY c                         /* Ausgabe: 25    unveraendert       */
SAY inf1                      /* Ausgabe: INF1  unbekannt          */
EXIT                          /* Ende der Prozedur                 */
  /* */
  /* */
inrout: PROCEDURE EXPOSE b    /* die Variable b wird mit der Haupt-*/
                              /* routine geteilt                   */
ARG inf1 inf2 inf3, inf4      /* Parameter einlesen                */
                              /*    REXX TSOISPF KURS SOFTWARE     */
b = b*3                       /* b multipliziert by 3 = 36         */
c = b+100                     /* c = 136                           */
SAY b c                       /* Ausgabe: 36 136                   */
SAY "Unterroutine"            /* Ausgabe: Unterroutine             */
RETURN "Sehr Gut"