/* REXX *** */
PARSE ARG variable .
/* extract an ISPF profile variable and return it to caller */
IF variable = '' then DO
   Say 'You must specify an ISPF profile variable name'
   EXIT 12
   END
ADDRESS ISPEXEC 'VGET ('variable')'
IF RC \= -3 THEN ,
v = VALUE(variable)
ELSE v = ''
PARSE SOURCE tso envir .
IF envir = 'FUNCTION' then ,
  RETURN(v)
else SAY variable'='v
exit 0