
*copyc ost$name
*copyc pft$permit_options

  VAR
    rav$access_keys: [STATIC, READ] array [pfc$read .. pfc$control] of
          ost$name := ['READ', 'SHORTEN', 'APPEND', 'MODIFY', 'EXECUTE',
          'CYCLE', 'CONTROL'];


