Define Verb  XDCL

  Image  "HERE:XDCL"

    Parameter  P1 , Value(Type=$INFILE)

    Qualifier  SAVE , Nonnegatable

    Qualifier  RESTORE , Nonnegatable

      Disallow  SAVE AND RESTORE