PROCEDURE dum$display_global_page_queue_l, display_global_page_queue_l, disgpql (
  output, o: file = $output)

  VAR
    c$pql_entry_length: (READ) integer = 13
    c$page_queue_list_count: (READ) integer = 37

    c$page_queue_list: (READ) ARRAY 0 .. c$page_queue_list_count OF string 0 .. 25 =
      ('Free                     ', ..
       'Avail                    ', ..
       'Avail Modified           ', ..
       'Wired                    ', ..
       'Shared - task services   ', ..
       'Shared - PF execute      ', ..
       'Shared - PF non - execute', ..
       'Shared - Device File     ', ..
       'Shared - File Server     ', ..
       'Shared - Other           ', ..
       'Shared - Site 01         ', ..
       'Shared - Site 02         ', ..
       'Shared - Site 03         ', ..
       'Shared - Site 04         ', ..
       'Shared - Site 05         ', ..
       'Shared - Site 06         ', ..
       'Shared - Site 07         ', ..
       'Shared - Site 08         ', ..
       'Shared - Site 09         ', ..
       'Shared - Site 10         ', ..
       'Shared - Site 11         ', ..
       'Shared - Site 12         ', ..
       'Shared - Site 13         ', ..
       'Shared - Site 14         ', ..
       'Shared - Site 15         ', ..
       'Shared - Site 16         ', ..
       'Shared - Site 17         ', ..
       'Shared - Site 18         ', ..
       'Shared - Site 19         ', ..
       'Shared - Site 20         ', ..
       'Shared - Site 21         ', ..
       'Shared - Site 22         ', ..
       'Shared - Site 23         ', ..
       'Shared - Site 24         ', ..
       'Shared - Site 25         ', ..
       'Shared - IO Error Shared ', ..
       'Shared - IO Error Swapped', ..
       'Flawed                   ')

    data_string: string
    index: integer
    output_file: file
    pql: integer
    temp_string: string
  VAREND

  output_file = output.$eoi
  put_line l=' Command: DISPLAY_GLOBAL_PAGE_QUEUE_L                                           ' o=output_file
  put_line l='                                                      AGE                       ' o=output_file
  put_line l='                            FWD   BKW   COUNT  COUNT  INTERVAL  MINIMUM  MAXIMUM' o=output_file
  put_line l=' PAGE FRAME QUEUE ID        (16)  (16)  (16)   (10)   (10)      (10)     (10)   ' o=output_file
  put_line l=' -------------------------  ----  ----  -----  -----  --------  -------  -------' o=output_file

  pql = $symbol_address(mmv$gpql)

  FOR index = 0 TO c$page_queue_list_count DO
   IF (index < 9) OR ($memory(pql 6) <> 0) THEN
     data_line = '                                                                                '
     data_line(2, 25) = c$page_queue_list(index)
     temp_string = '          '//$strrep($memory(pql 2) 16)
     data_line(29, 4) = $substr(temp_string $strlen(temp_string)-3 4)
     temp_string = '          '//$strrep($memory(pql+2 2) 16)
     data_line(35, 4) = $substr(temp_string $strlen(temp_string)-3 4)
     temp_string = '          '//$strrep($memory(pql+4 2) 16)
     data_line(41, 5) = $substr(temp_string $strlen(temp_string)-4 5)
     temp_string = '          '//$strrep($memory(pql+4 2) 10)
     data_line(48, 5) = $substr(temp_string $strlen(temp_string)-4 5)
     temp_string = '          '//$strrep($memory(pql+6 1) 10)
     data_line(60, 3) = $substr(temp_string $strlen(temp_string)-2 3)
     temp_string = '          '//$strrep($memory(pql+7 4) 10)
     data_line(67, 5) = $substr(temp_string $strlen(temp_string)-4 5)
     temp_string = '          '//$strrep($memory(pql+11 2) 10)
     data_line(76, 5) = $substr(temp_string $strlen(temp_string)-4 5)
     put_line l=data_line o=output_file
   IFEND
   pql = pql + c$pql_entry_length
 FOREND

PROCEND dum$display_global_page_queue_l
