MODULE F_GETLKI

IDENT "V01"

DEFINE TYPE RADIX
   KEYWORD ASCII, DEFAULT
   KEYWORD HEXIDECIMAL

DEFINE SYNTAX FILELOCK
   IMAGE "UTIL_EXE:F_GETLKI"
   PARAMETER P1, LABEL=FILE, PROMPT="File",
      VALUE(NOCONCATENATE,REQUIRED,TYPE=$FILE)
   DISALLOW <F_GETLKI>RADIX

DEFINE VERB F_GETLKI
   IMAGE "UTIL_EXE:F_GETLKI"
   QUALIFIER RMS_LOCK, LABEL=RMS_LOCK, SYNTAX=FILELOCK
   PARAMETER P1, LABEL=LOCK, PROMPT="Resource_name",
      VALUE(REQUIRED,NOCONCATENATE,TYPE=$QUOTED_STRING)
   QUALIFIER RADIX, LABEL=RADIX, VALUE(DEFAULT="ASCII",TYPE=RADIX), NONNEGATABLE
   SYNONYM GETLOCK
   DISALLOW RMS_LOCK AND RADIX