DEFINE VERB TCS
IMAGE TCS
PARAMETER P1
          LABEL = DEVICE
          VALUE ( TYPE = $FILE )
          PROMPT = "DEVICE"

QUALIFIER SCREEN
          VALUE ( TYPE = $FILE )

QUALIFIER KEYBOARD
          VALUE ( TYPE = $FILE )