
  PROCEDURE [INLINE] dfp$locate_server_translation
    (    server_mainframe_id: pmt$binary_mainframe_id;
     VAR mainframe_id_ordinal: 1 .. dfc$max_number_of_mainframes;
     VAR server_found: boolean);

    server_found := FALSE;

  /search_translation_table/
    FOR mainframe_id_ordinal := 1 TO dfc$max_number_of_mainframes DO
      IF dfv$defined_server_translation [mainframe_id_ordinal] =
            server_mainframe_id THEN
        server_found := TRUE;
        RETURN;
      IFEND;
    FOREND /search_translation_table/;
  PROCEND dfp$locate_server_translation;
?? PUSH (LISTEXT := ON) ??
*copyc dfc$esm_allocation_constants
*copyc dfv$defined_server_translation
*copyc pmt$binary_mainframe_id
?? POP ??

