{ DECK: DFT$INQUIRY_MESSAGE

TYPE
  dft$inquiry_message = record
    inquiry_tracer: dft$inquiry_tracer,
    transaction_state: dft$transaction_state,
  recend,

  dft$inquiry_tracer = packed record
    transaction_digit: dft$transaction_digit,
    retransmission_digit: dft$retransmission_digit,
  recend,

  dft$transaction_digit = 0 .. 0f(16),
  dft$retransmission_digit = 0 .. 0f(16);

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