
*copyc ost$name
*copyc pft$permit_options

  VAR
    rav$share_keys: [STATIC, READ] array [pfc$read .. pfc$execute] of
          ost$name := ['READ', 'SHORTEN', 'APPEND', 'MODIFY', 'EXECUTE'];


