! TESTDEV.CLD version 2.1

DEFINE TYPE CVRG_TYP
  KEYWORD RANDOM , LABEL=CVRG_RND , DEFAULT , NONNEGATABLE ,		! random seeks over specified or implied volume
          VALUE(DEFAULT=12345678,TYPE=$NUMBER)				! > to specify an alternate random seed
  KEYWORD SEQUENTIAL , LABEL=CVRG_SEQ , NONNEGATABLE			! seek sequentially

DEFINE TYPE SEEK_TYP
  KEYWORD MEGABYTE , LABEL=SEEK_MEG , DEFAULT , NONNEGATABLE ,		! seek volume in megabytes, 0 for entire volume
          VALUE(DEFAULT=0,TYPE=$NUMBER)
  KEYWORD FROM_LBN , LABEL=SEEK_LBS , NONNEGATABLE ,			! seek lower limit logical block number (inclusive)
          VALUE(REQUIRED,TYPE=$NUMBER)
  KEYWORD TO_LBN , LABEL=SEEK_LBE , NONNEGATABLE ,			! seek upper limit logical block number (inclusive)
          VALUE(REQUIRED,TYPE=$NUMBER)

DEFINE VERB TESTDEV
  IMAGE "SYS_TOOLS:TESTDEV"

  PARAMETER P1 , LABEL=TDV_NAME , PROMPT="Device" , VALUE(REQUIRED)	! device name, can be logical name

! Values typical of VMS activity would be reflected by /BLOCK=4 /SEEK=MEGABYTE=100
  QUALIFIER BLOCK_PER_IO , LABEL=TDV_BLCK , DEFAULT , NONNEGATABLE ,	! IO size in 512 byte blocks
            VALUE(DEFAULT=1,TYPE=$NUMBER)
  QUALIFIER COVERAGE , LABEL=TDV_CVRG , DEFAULT, NONNEGATABLE ,		! random or sequential seek pattern
            VALUE(TYPE=CVRG_TYP)
  QUALIFIER IO , LABEL=TDV_IO , DEFAULT , NONNEGATABLE ,		! number of IO's to perform
            VALUE(DEFAULT=1000,TYPE=$NUMBER)
  QUALIFIER SEEK_RANGE , LABEL=TDV_SEEK , DEFAULT , NONNEGATABLE ,	! seek lower/upper bound
            VALUE(LIST,TYPE=SEEK_TYP)
  QUALIFIER STREAM , LABEL=TDV_STRM , DEFAULT , NONNEGATABLE ,		! number of parallel IO's to device
            VALUE(DEFAULT=1,TYPE=$NUMBER)

  DISALLOW SEEK_MEG AND (SEEK_LBS OR SEEK_LBE)				! seek specification can be either physical or logical
  DISALLOW CVRG_RND AND CVRG_SEQ					! sequential and random coverage mutually exclusive
  DISALLOW TDV_STRM AND CVRG_SEQ 					! sequential coverage operates over single stream only