PROC dum$select_swapped_job, selsj (job_fixed_asid, jfa: integer 0 .. 0ffffffff(16) = $required
 status)

 " This procedure attempts to make an initiated job available in the dump.

 sva = $value(job_fixed_asid) * 100000000(16)
 exchange = $rma(sva, m 0 sva)
 exchange = exchange + 100(16)
 change_processor_register  jps=exchange

PROCEND
