{
{     This procedure will rebuild an AJL entry as part of swapin processing.
{
{  CONSTRUCT_AJL_ENTRY (AJL, AJL_ENTRY, KJL_ENTRY_O, SWAP_LIST_ENTRY_P)
{
{  AJL: (input) Active job list index.
{
{  AJL_ENTRY: (input) Contents of the index.
{
{  KJL_ENTRY_O: (input) Ordinal of the associated KJL entry.
{
{  SWAP_LIST_ENTRY_P: (input) A pointer to the swapout list entry for the job.
{
