

  PROCEDURE [XREF] csp$get_event_name
    (    event_identifier: cst$event_name_identifier;
     VAR name: ost$name;
     VAR length: 0 .. osc$max_name_size;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cst$event_name_identifier
*copyc ost$name
*copyc ost$status
*copyc cse$condition_codes
?? POP ??

