PROCEDURE dum$get_log_ordinal, get_log_ordinal, getlo (
  log, l: name = $required
  log_ordinal, lo: (VAR) integer = $required
  status)

  "$FORMAT=OFF"
  VAR
    index: integer
    maximum_log_ordinal: (READ) integer = 8
  VAREND
  "$FORMAT=ON"

  FOR index = 0 TO maximum_log_ordinal DO
    IF $memory_string($symbol_address(lgv$log_names)+(index*31), 31) = $string(log) THEN
      log_ordinal = index
      EXIT_PROC
    IFEND
  FOREND
  EXIT_PROC WITH $status(false, 'US', 0, $string(log)//' is not a known log.')

PROCEND dum$get_log_ordinal
