PROCEDURE dum$display_os_build_level, display_os_build_level, disobl, disbl (
  output, o: file = $output
  status)

  VAR
    build_level_string: string (31)
    local_status: status
  VAREND

  display_memory a=$symbol_address(osv$build_level) b=22 e=monitor p=0 am=pva o=$null status=local_status
  IF NOT local_status.normal THEN
    display_memory a=$symbol_address(osv$build_level) b=22 e=monitor p=1 am=pva o=$null status=local_status
    IF NOT local_status.normal THEN
      put_line l='     The OS build level is not retrievable.' o=output
      EXIT PROCEDURE
    IFEND
  IFEND

  build_level_string = ' '
  build_level_string = '     '//$memory_string($symbol_address(osv$build_level) 22 monitor 0 pva)
  put_line l=build_level_string o=output

PROCEND dum$display_os_build_level
