CONST
*IF $true(osv$unix)
  rmc$min_ecc = (($INTEGER ('R') * 100(16)) + $INTEGER ('M')) * 10000(16),
*ELSE
  rmc$min_ecc = (($INTEGER ('R') * 100(16)) + $INTEGER ('M')) * 1000000(16),
*IFEND

  rmc$min_ecc_resource_management = rmc$min_ecc,
  rmc$max_ecc_resource_management = rmc$min_ecc_resource_management + 9999,

  rmc$resource_management_id = 'RM';

