{
{                  common deck dmdftyp
{

  TYPE
    dmt$file_type = (dmc$permanent, dmc$device, dmc$temp_named,
      dmc$temp_unnamed, dmc$catalog, dmc$temp_global, dmc$server_file),
    dmt$file_type_set = set of dmt$file_type,
    dmt$file_table_locations = (dmc$mainframe_job_file,
      dmc$mainframe_system_file, dmc$invalid_file_location,
      dmc$file_awaiting_recovery, dmc$file_location_a, dmc$file_location_b),
    dmt$valid_file_table_locations = dmc$mainframe_job_file ..
      dmc$mainframe_system_file;

  CONST
    dmc$default_file_type = dmc$temp_named;
