  TYPE
    dmt$initv_saved_info = RECORD
      assigned_element: cmt$element_name,
      labelled: boolean,
      read_error: boolean,
      expired_label: boolean,
      expiration_date: string (10),
      fid: amt$file_identifier,
      volume_id: string (6),
      owner_id: string (14),
      character_set: amt$internal_code,
      file_accessibility_code: string (1),
      label_standard_version: string (1),
      volume_accessibility_code: string (1),
    RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc amt$internal_code
*copyc cmt$element_name
?? POP ??




