

  TYPE
    cmt$device_file_header = record
      length: integer,
      being_updated: ost$name,
      version: ost$name,
      changed : boolean,
    recend,

    cmt$device_file_header_v2 = record
      length: integer,
      changed : boolean,
      being_updated: ost$name,
      version: ost$name,
      status: cmt$device_file_status,
      relative_time: cmt$relative_time,
      activate_date: ost$date,
      activate_time: ost$time,
    recend,

    cmt$state_info_df_header = record
      length: integer,
      being_updated: ost$name,
      version: ost$name,
      relative_time: cmt$relative_time,
      last_update: ost$date,
      last_update_time: ost$time,
    recend;

  CONST
    cmc$being_updated = 'DEVICE FILE BEING UPDATED NOW!!',
    cmc$valid_data_in_file = 'DEVICE FILE CONTAINS VALID DATA';

?? PUSH (LISTEXT := ON) ??
*copyc OST$NAME
*copyc CMT$DEVICE_FILE_TABLE
*copyc OST$DATE
*copyc OST$TIME
?? POP ??
