
PROCEDURE qcp$get_correction_level (
 os_version_file, ovf :file = $required
 system_level, sl     : (VAR) name = $required
 status)

VAR
 level_string: string
 local_status: status
VAREND

$system.include_file f=os_version_file status=local_status
IF local_status.normal THEN
 IF $variable(level_id, defined) THEN
  system_level = level_id
 ELSE
  level_string = $trim($substr(version_id,16,6))
  system_level = $name('level_'//level_String)
 IFEND
ELSE
 EXIT procedure WITH local_status WHEN NOT local_status.normal
IFEND

PROCEND qcp$get_correction_level
