?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE : Basic Access Methods : Validate File Identifier' ??
MODULE fsm$validate_file_identifier;

{ PURPOSE:
{   The purpose of this module is to provide an interface that validates
{   a file_identifier.

?? NEWTITLE := 'Global Declarations Referenced By This Module', EJECT ??
*copyc baf$task_file_entry_p
?? OLDTITLE ??
*copyc fsh$validate_file_identifier
?? NEWTITLE := '[XDCL, #GATE] fsp$validate_file_identifier', EJECT ??

  PROCEDURE [XDCL, #GATE] fsp$validate_file_identifier
    (    file_identifier: amt$file_identifier;
     VAR file_id_is_valid: boolean);

    VAR
      file_instance: ^bat$task_file_entry;

    file_id_is_valid := baf$task_file_entry_p (file_identifier) <> NIL;

  PROCEND fsp$validate_file_identifier;
?? OLDTITLE ??
MODEND fsm$validate_file_identifier;
