{
{     This procedure will set a swapout/swapin status in a particular
{  AJL entry.
{
{  SET_AJL_SWAP_STATUS (AJL, SWAP_STATUS)
{
{  AJL: (input) The Active Job List ordinal.
{
{  SWAP_STATUS: (input) The associated swapout/swapin status.
{
