PROC dum$convert_int_to_usage_string, convert_int_to_usage_string, convert_integer_to_usage_string (
  value            : integer 0..31 = $required
  usage_string, us : var of string = $optional
  status           : var of status = $optional
  )

  ws = '('
  crev usage k=string d=0..4
  usage(0) = 'read'
  usage(1) = 'shorten'
  usage(2) = 'append'
  usage(3) = 'modify'
  usage(4) = 'execute'

  uset = $value(value)
  FOR i = 0 TO 4 DO
    IF uset <> (uset / 2 * 2) THEN
      ws = ws // ' ' // usage(4-i)
    IFEND
    uset = uset / 2
  FOREND
  ws = ws // ' )'
  IF $specified(us) THEN
    $value(usage_string) = ws
  ELSE
    disv ws
  IFEND

PROCEND dum$convert_int_to_usage_string

