
*copyc cst$event_type
*copyc cst$x_position
*copyc cst$y_position
*copyc cst$page_event_type
*copyc cst$field_number
*copyc cst$character_position
*copyc cst$line_number
*copyc cst$field_event_type

  TYPE
    cst$event_identifier = record
      case event_type: cst$event_type of
      = csc$page_event =
        page_event_x_position: cst$x_position,
        page_event_y_position: cst$y_position,
        page_event: cst$page_event_type,
      = csc$field_event =
        field_event_field_number: cst$field_number,
        field_event_character_position: cst$character_position,
        field_event_line_number: cst$line_number,
        field_event: cst$field_event_type,
      = csc$timeout_event =
        ,
      = csc$end_of_transaction =
        ,
      casend,
    recend;

