VALUE - Inhalt der Variable

REXX Built-In Funktionen
Eigenschaft der Zeichenkette

Syntax:                                 
VALUE(info<,newinfo>)
newinfo - ersetzt inhalt von info

/* REXX VALUE Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
rexx = "TSOISPF"
c.1 = "REXX"
c.2 = "KURS"
c.3 = "Yves Colliard Software"
d = "C.3"
ix2 = 2
  /* */
SAY VALUE('c.1')                /* Ausgabe: REXX                   */
SAY VALUE(c.1)                  /* Ausgabe: TSOISPF                */
SAY VALUE('c.'!!ix2)            /* Ausgabe: KURS                   */
SAY VALUE(d)                    /* Ausgabe: Yves Colliard Software */
SAY VALUE(d,"was immer")        /* Ausgabe: Yves Colliard Software */
SAY c.3                         /* Ausgabe: was immer              */
  /* */
inf = "ABCDEFGHIJ"
do i=1 to length(inf)
  x=VALUE("MEINE_"substr(inf,i,1)"_VAR",i "Info -" substr(inf,i,1))
end
say MEINE_A_VAR                 /* Ausgabe: 1 Info - A */
say MEINE_B_VAR                 /* Ausgabe: 2 Info - B */
say MEINE_C_VAR                 /* Ausgabe: 3 Info - C */
say MEINE_D_VAR                 /* Ausgabe: 4 Info - D */
say MEINE_E_VAR                 /* Ausgabe: 5 Info - E */
say MEINE_F_VAR                 /* Ausgabe: 6 Info - F */
say MEINE_G_VAR                 /* Ausgabe: 7 Info - G */
say MEINE_H_VAR                 /* Ausgabe: 8 Info - H */
say MEINE_I_VAR                 /* Ausgabe: 9 Info - I */