 TYPE
    dft$procedure_class = (dfc$monitor_call, dfc$system_core_call, dfc$task_services_call,
      dfc$permanent_file_call, dfc$application_call);
