PARM P1
PARM P2
# SETSVAR - will set the system variable.
#
# 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

IF FINFO("/SYS/SYSTEMVAR/!P1","EXISTS") THEN
  PURGE /SYS/SYSTEMVAR/!P1
ENDIF
SETVAR NVARVALUE "!P2"
BUILD /SYS/SYSTEMVAR/!P1;REC=20,,F,ASCII;DISC=1;NOCCTL
FILE NVARFILE=/SYS/SYSTEMVAR/!P1,OLD
ECHO !NVARVALUE>*NVARFILE
ALTSEC /SYS/SYSTEMVAR/!P1;REPPAIR=(R,W:@.@)
SETVAR !P1 "!NVARVALUE"
DELETEVAR NVARVALUE