!***********************************READBACK************************************
define verb RDBACK
   image SYS$SYSTEM:READBACK
   parameter P1 , label INPUT , prompt="Input save set"
      value (required,type=$infile)
   parameter P2 , label OUTPUT , prompt="Output save set"
      value (list,type=$outfile)
   parameter P2 , label COPYLIST , prompt="Copy list"
      value (list,type=$infile)
   qualifier NOCRC
       nonnegatable
   qualifier BLOCKSIZE
       nonnegatable
       value(required,type=$number)
   qualifier LOG