
  CONST
*IF $true(osv$unix)
    pmc$min_ecc = (($INTEGER ('P') * 100(16)) + $INTEGER ('M')) * 10000(16);
*ELSE
    pmc$min_ecc = (($INTEGER ('P') * 100(16)) + $INTEGER ('M')) * 1000000(16);
*IFEND
