
  TYPE
    cst$event_name_identifier = record
      case event_type: cst$event_type of
      = csc$page_event =
        page_event: cst$page_event_type,
      = csc$field_event =
        field_event: cst$field_event_type,
      = csc$timeout_event =
        ,
      = csc$end_of_transaction =
        ,
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc cst$event_type
*copyc cst$field_event_type
*copyc cst$page_event_type
?? POP ??
