*copyc amt$file_contents
*copyc amt$file_structure

  PROCEDURE [INLINE] fsp$dtm_structure_from_contents
    (    file_contents: amt$file_contents;
     VAR file_structure: amt$file_structure);


    IF (file_contents = 'LEGIBLE') OR (file_contents = 'LIST') OR
          (file_contents = 'OBJECT') OR (file_contents = 'ASCII_LOG') OR
          (file_contents = 'BINARY_LOG') OR (file_contents = 'FILE_BACKUP')
          THEN
      file_structure := 'DATA';
    ELSEIF (file_contents = 'SCREEN') THEN
      file_structure := 'FORM';
    ELSE
      file_structure := 'UNKNOWN';
    IFEND;

  PROCEND fsp$dtm_structure_from_contents;
