 PROCEDURE [XREF] fdp$get_next_event (VAR event_name: ost$name;
    VAR event_normal: boolean;
    VAR event_position: fdt$event_position;
    VAR last_event: boolean;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fdt$event_position
*copyc ost$name
*copyc ost$status
*copyc fde$condition_identifiers
?? POP ??
