
  PROCEDURE [INLINE] dfp$form_inquiry_tracer
    (    transaction_count: integer;
         retransmission_count: integer;
     VAR inquiry_tracer: dft$inquiry_tracer);

  { This procedure forms an "inquiry tracer" value from the least significant
  { hexidecimal digit of the specified transaction_count and retransmission_count.


    TYPE
      converter_record = record
        CASE boolean OF
        = TRUE =
          full_integer: integer,
        = FALSE =
          unpacked_integer: unpacked_value,
        CASEND,
      recend,

      unpacked_value = packed record
        fill: 0 .. 0fffffffffffffff(16),
        leftmost_hex_digit: 0 .. 0f(16),
      recend;

    VAR
      converter: converter_record;


      converter.full_integer := transaction_count;
      inquiry_tracer.transaction_digit:= converter.unpacked_integer.leftmost_hex_digit;
      converter.full_integer := retransmission_count;
      inquiry_tracer.retransmission_digit:= converter.unpacked_integer.leftmost_hex_digit;

  PROCEND dfp$form_inquiry_tracer;

?? PUSH (LISTEXT := ON) ??
*copyc dft$inquiry_message
?? POP ??
