{Define 2 character id used for identifying swap states.

  VAR
      jsv$swap_status_id_array: [static, oss$job_paged_literal, read]
         array [jmt$ijl_swap_status] of string (2) := [
               '  ',   { jmc$iss_null}
               ' R',   { jmc$iss_executing}
               'TI',   { jmc$iss_idle_tasks_initiated}
               'TJ',   { jmc$iss_job_idle_tasks_complete}
               'S0',   { jmc$iss_swapped_no_io}
               'FA',   { jmc$iss_flush_am_pages}
               'AJ',   { jmc$iss_job_allocate_swap_file}
               'AW',   { jmc$iss_wait_allocate_swap_file}
               'AF',   { jmc$iss_allocate_swap_file}
               'JW',   { jmc$iss_wait_job_io_complete}
               'JC',   { jmc$iss_job_io_complete}
               'DW',   { jmc$iss_wait_allocate_sfd}
               'AD',   { jmc$iss_allocate_sfd}
               'SD',   { jmc$iss_swapped_io_cannot_init}
               'OS',   { jmc$iss_initiate_swapout_io}
               'OW',   { jmc$iss_wait_swapout_io_init}
               'OI',   { jmc$iss_swapout_io_initiated}
               'OC',   { jmc$iss_swapout_io_complete}
               'S2',   { jmc$iss_swapped_io_complete}
               'FM',   { jmc$iss_free_swapped_memory}
               ' S',   { jmc$iss_swapout_complete}
               'IR',   { jmc$iss_swapin_requested}
               'IS',   { jmc$iss_swapin_resource_claimed}
               'IW',   { jmc$iss_wait_swapin_io_init}
               'II',   { jmc$iss_swapin_io_initiated}
               'IC'];  { jmc$iss_swapin_io_complete}
?? PUSH (LISTEXT := ON) ??
*copyc jmt$ijl_swap_status
*copyc oss$job_paged_literal
?? POP ??
