PROCEDURE dum$fetch_field_info fetch_field_info (
  type_name, type, t: name = $required
  field_name, field, f: name = $required
  offset, o: (VAR) integer = $required
  length, l: (VAR) integer = $required
  )

  VAR
    temp_length: integer
    temp_offset: integer
  VAREND

  temp_string = $string(type_name) // ' field=' // $string(field_name) // ..
        ' offset=temp_offset length=temp_length'
  include_line sl=temp_string
  offset = temp_offset
  length = temp_length

PROCEND dum$fetch_field_info
