!*************************************WPE**************************************
define verb WPEDIT
   image WPEMAIN
   parameter P1 , label=FILE_NAME , prompt="File"
      value (type=$infile)
   qualifier TPU
   qualifier OUTPUT
      default
      value (type=$outfile)
   qualifier RECOVER
   qualifier CREATE
      default
   qualifier JOURNAL
      default
      value (type=$outfile)
   qualifier SECTION
      default
      value (default="TPU$SECTION",type=$infile)
   qualifier COMMAND
      default
      value (default="TPU$COMMAND",type=$infile)
   qualifier READ_ONLY
   qualifier DISPLAY
      default
      value (list,type=$infile)
   qualifier INITIALIZATION
      default
      value (type=$infile)
   qualifier START_POSITION
      nonnegatable
      value (required,list,type=$number)
   qualifier DEBUG
      value (default="TPU$DEBUG",type=$infile)
   qualifier MODIFY
   qualifier WRITE
   disallow (RECOVER and (neg JOURNAL))
   disallow (READ_ONLY and WRITE)
   disallow ((neg READ_ONLY) and (neg WRITE))