
  PROCEDURE [XREF] nlp$tm_get_device_by_name
    (    local_device_name: cmt$element_name;
     VAR local_device_id: nlt$device_identifier;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_name
*copyc nlt$device_identifier
*copyc ost$status
?? POP ??
