
{ COMMON DECK CMXGDF }

  PROCEDURE [XREF] cmp$get_device_file (device_file_name: ost$name;
        segment_file_fid: amt$file_identifier;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc OST$NAME
*copyc AMT$FILE_IDENTIFIER
*copyc OST$STATUS
?? POP ??
