
{    DECK: RFT$RHFAM_JOB_TABLE
{
{    This deck contains the definitions for maintaining
{    the status of all RHFAM jobs.

  TYPE
    rft$rhfam_job_table = record
      lock: ost$signature_lock,
      first_entry: ^rft$rhfam_job_table_entry,
      last_entry: ^rft$rhfam_job_table_entry,
    recend;

  TYPE
    rft$rhfam_job_table_entry = record
      next_entry: ^rft$rhfam_job_table_entry,

{     The remainder of this structure is aligned on a word boundary.  This
{     isolates the next_entry pointer from the remainder of the structure
{     and allows the entries on either side of a locked entry to be
{     relinked through the locked entry.  If this is not done, dual cpus
{     may conflict.

      lock: ALIGNED [0 MOD 8] ost$global_task_id,
      job_name: jmt$system_supplied_name,
      application_entry: ^rft$application_table_entry,
    recend;

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