PARM P1,P2=".."

# GETSVAR - Will get the system variable and set a local variable
#                   with the same name to that value. 
#
# If you find this useful I would appreciate an e-mail
# just to let me know you liked or disliked it.
#
# John Krussel - Nordstrom
# e-mail: john.krussel@nordstrom.com

DELETEVAR !P1 > $NULL
SETVAR SYS_VAR_ERROR 0
IF FINFO("/SYS/SYSTEMVAR/!P1","EXISTS") THEN
  INPUT NVAR < /SYS/SYSTEMVAR/!P1
  IF "!P2" = ".."
    SETVAR !P1,RTRIM("!NVAR")
  ELSE
    SETVAR !P2,RTRIM("!NVAR")
  ENDIF
  DELETEVAR NVAR
ELSE
  ECHO --- System variable does not exist ---
  SETVAR SYS_VAR_ERROR 101
ENDIF