{ DECK: DFT$POLL_HEADER

  TYPE
    dft$poll_header = record
      mainframe_name: pmt$mainframe_id,
      poll_type: dft$poll_type,
    recend;

  TYPE
    dft$poll_type = (
{   Poll Types sent from Client to Server:
      dfc$normal_poll, dfc$verify_served_family, dfc$verify_queue,
      dfc$deactivate_complete, dfc$recovery_complete,

{   Poll Types sent from either mainframe:
      dfc$deactivate_server,

{   Poll Types sent from Server to Client:
      dfc$poll_reply, dfc$verify_family_reply, dfc$verify_queue_reply,
      dfc$deactivate_reply,
      dfc$req_verify_served_family, dfc$recovery_complete_reply);

{  The below table indicates for each poll type sent from client and
{  the possible expected responses from the server.
{       CLIENT                      SERVER
{    dfc$normal_poll               dfc$poll_reply
{                                  dfc$deactivate_server
{                                  dfc$req_verify_served_family
{    dfc$verify_served_family      dfc$verify_family_reply
{                                  dfc$deactivate_server
{    dfc$verify_queue              dfc$verify_queue_reply
{    dfc$deactivate_complete        -- no reply --
{    dfc$recovery_complete         dfc$recovery_complete_reply
{    dfc$deactivate_server         dfc$deactivate_reply

*copyc pmt$mainframe_id
