{
{ PURPOSE:
{   The purpose of this procedure is to search the system_file_table
{   for the global_file_name and return a value indicating the
{   presence of an existing system_file_table entry.
{
{       DMP$LOCATE_EXISTING_SFT_ENTRY (GLOBAL_FILE_NAME, FILE_KIND,
{             EXISTING_SFT_ENTRY, STATUS)
{
{   GLOBAL_FILE_NAME: (input) This parameter specifies the global_file_name
{         to locate in the system_file_table.
{
{   FILE_KIND: (input) This parameter specifies the kind of file.
{
{   EXISTING_SFT_ENTRY: (output) This parameter returns an ordinal value
{         indicating the presence of an entry in the system_file_table
{         for the file.
{
{   STATUS: (output) This parameter returns the request status.
{
