?? RIGHT := 110 ??
MODULE iim$vt_validate_file_identifier;
?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc amt$local_file_name
*copyc bat$task_file_table
?? POP ??

*copyc bap$validate_file_identifier

?? TITLE := '[XDCL] iip$vt_validate_file_identifier', EJECT ??

  PROCEDURE [XDCL] iip$vt_validate_file_identifier (file_identifier: amt$file_identifier;
    VAR file_name: amt$local_file_name;
    VAR file_id_is_valid: boolean);

    VAR
      file_instance: ^bat$task_file_entry;

    file_instance := NIL;
    bap$validate_file_identifier (file_identifier, file_instance, file_id_is_valid);
    IF file_instance <> NIL THEN
      file_name := file_instance^.local_file_name;
    ELSE
      file_name := '';
    IFEND;

  PROCEND iip$vt_validate_file_identifier;
MODEND iim$vt_validate_file_identifier;
