20 lines
977 B
Rexx
20 lines
977 B
Rexx
/*REXX program test if a (REXX) variable is defined or not defined. */
|
|
tlaloc = "rain god of the Aztecs." /*assign a value to the Aztec rain god.*/
|
|
/*check if the rain god is defined. */
|
|
y= 'tlaloc'
|
|
if symbol(y)=="VAR" then say y ' is defined.'
|
|
else say y "isn't defined."
|
|
|
|
/*check if the fire god is defined. */
|
|
|
|
y= 'xiuhtecuhtli' /*assign a value to the Aztec file god.*/
|
|
if symbol(y)=="VAR" then say y ' is defined.'
|
|
else say y "isn't defined."
|
|
|
|
|
|
drop tlaloc /*un─define the TLALOC REXX variable.*/
|
|
/*check if the rain god is defined. */
|
|
y= 'tlaloc'
|
|
if symbol(y)=="VAR" then say y ' is defined.'
|
|
else say y "isn't defined."
|
|
/*stick a fork in it, we're all done. */
|