!*********************************************
!* DCL command definitions of the verb CLEAR *
!*********************************************

define verb CLEAR
  parameter P1
    label=OPTION
    prompt="Clear what"
    value(required,type=CLEAR_OPTION)

define type CLEAR_OPTION
  keyword SCREEN
    syntax=CLEAR_SCREEN
    value

define syntax CLEAR_SCREEN
  image CLEAR_SCREEN
  qualifier DEVICE
    nonnegatable
    value(required,type=$device)