
{
{  PURPOSE:
{     The purpose of the NAT$GT_JOB_SAP is to describe an open Service Access Points in a job.
{
{  DESIGN:
{     The structure resides in the job paged segment accessible to all tasks in a job.
{     Access to all open SAPs is controlled via a single signature lock (i.e., while one SAP
{     is being accessed no other SAP in the job can be accessed.
{

  TYPE
    nat$gt_job_sap = record
      sap_id: nat$gt_sap_identifier,
      selector: nat$gt_sap_identifier,
      next_sap: ^nat$gt_job_sap,
      priority: nlt$ta_priority,
      shared_sap_server: boolean,
    recend,

    nat$gt_job_sap_list = record
      lock: ost$signature_lock,
      first_sap: ^nat$gt_job_sap,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc nat$gt_sap_identifier
*copyc nlt$ta_priority
*copyc ost$signature_lock
?? POP ??
