
{* cyp$get_file_identifier *}

  PROCEDURE [XREF] cyp$get_file_identifier (file: cyt$file;
    VAR file_identifier: amt$file_identifier;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cyt$file
*copyc cyt$file_control_block
*copyc ost$status
*copyc cye$exception_conditions
?? POP ??

