PARM FILESET="@"

# SHOWSVAR - Will show what values are set for the selected
#            variables.
#
# 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

SETVAR MPEXYESPURGE 1
PURGE SYSVARLT > $NULL
DELETEVAR MPEXYESPURGE
SETVAR CIERROR 0
BUILD SYSVARLT;REC=200,1,F,ASCII;DISC=500;MSG
FILE SYSVARLT=SYSVARLT,OLD
LISTFILE /SYS/SYSTEMVAR/!FILESET,6>*SYSVARLT
SETVAR NUMBER_OF_VARS,FINFO("SYSVARLT",19)
IF CIERROR = 0
  ECHO
  WHILE NUMBER_OF_VARS > 0
    INPUT NAME;< SYSVARLT
    SETVAR NAME,UPS(LTRIM(RTRIM("!NAME")))
    INPUT VALUE < !NAME
    SETVAR VALUE RTRIM("!VALUE")
    SETVAR NAME,STR("!NAME",16,90)
    ECHO !NAME = !VALUE
    SETVAR NUMBER_OF_VARS,NUMBER_OF_VARS-1
  ENDWHILE
  ECHO
  DELETEVAR NAME
  DELETEVAR VALUE
ELSE
  ECHO No match found for this variable
ENDIF
DELETEVAR NUMBER_OF_VARS