
*copyc rat$entry_attributes

VAR
  rav$entry_attributes: [STATIC, READ] array[rac$name..rac$comment] of string(31) := [
                        'NAME', 'NEW_NAME', 'PATH', 'ACCESS_MODE', 'SHARE_MODE',
                        'RING', 'FORMAT', 'CLASS','STORAGE_CLASS','PRODUCT', 'VERSION', 'INTVE_PATH',
                        'COMMENT'];

