Label
  Exit;

Const
  UIL_file_count        = 1;

Type
  strdescr              = record
                            w_len     : [word] 0..65535;
                            b_dtype   : [byte] 0..255;
                            b_class   : [byte] 0..255;
                            a_pointer : [unsafe] unsigned;
                          end;

Var
  hierarchy             : Dwt$DRM_Hierarchy;
  UIL_filename          : [readonly] packed array [1..30] of char := 'loan_display.uid'(0);
  filenames             : array [1..UIL_file_count] of ^strdescr;
  ancilliary_filenames  : array [1..UIL_file_count] of Dwt$IDBOS_Oparam := Zero;



{ Open the UIL/DRM Hierarchy }
new(filenames[1]);
with filenames[1]^ do
  begin
  w_len      := length(UIL_filename);
  b_dtype    := 14;  { DSC$K_DTYPE_T }
  b_class    := 1;   { DSC$K_CLASS_S }
  a_pointer  := iaddress(UIL_filename);
  end;
ret_status := Dwt$Open_Hierarchy (UIL_file_count, filenames, %immed 0, hierarchy);
if ret_status <> DWT$C_DRM_SUCCESS then
  begin
  writeln('Error opening UIL files');
  goto Exit
  end;


Exit:
end.