  PROCEDURE [XREF] pup$crack_name_list (parameter_name: string ( * );
    VAR name_list_container: SEQ (REP 20 OF ost$name);
    VAR p_name_list: ^array [1 .. * ] OF ost$name;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*COPYC OST$NAME
*COPYC OST$STATUS
?? POP ??
