
{     DECK: RFT$SWITCHED_CONNECTION_QUEUE
{
{     This deck defines the RHFAM switched connection queue. This
{     queue is used to transfer control of connections from one
{     job to another.

  TYPE
    rft$switched_connection_queue = record
      lock: ost$signature_lock,
      first_entry: ^rft$switched_connection,
    recend;

  TYPE
    rft$switched_connection = record
      next_entry: ^rft$switched_connection,
      connection_entry_p: ^rft$connection_entry,
      destination_job: jmt$system_supplied_name,
      destination_application: rft$application_name,
      source_job: jmt$system_supplied_name,
      connection_entry_source_job: ^rft$connection_entry,
      source_application_kind: rft$application_kinds,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc jmt$system_supplied_name
*copyc rft$rhfam_job_table
*copyc ost$signature_lock
?? POP ??
