
  CONST
    dpc$critical_window_msg_size = dpc$console_row_size - dpc$date_time_size,
    dpc$date_time_size = 18;

  TYPE
    dpt$critical_window_date_time = RECORD
      CASE 0 .. 2 OF
      = 0 =
        string_part: string (dpc$date_time_size),
      = 1 =
        hms: ost$hms_time,
        space_1_a: string (1),
        mdy: ost$mdy_date,
        space_1_b: string (1),
      = 2 =
        hour: string (2),
        colon_1: string (1),
        minute: string (2),
        colon_2: string (1),
        second: string (2),
        space_2_a: string (1),
        month: string (2),
        slash_1: string (1),
        day: string (2),
        slash_2: string (1),
        year: string (2),
        space_2_b: string (1),
      CASEND,
    RECEND;

*copyc dpc$console_row_size
*copyc ost$date
*copyc ost$time
