
  CONST
*IF $true(osv$unix)
    cyc$min_ecc = (($INTEGER ('C') * 100(16)) + $INTEGER ('Y')) * 10000(16),
*ELSE
    cyc$min_ecc = (($INTEGER ('C') * 100(16)) + $INTEGER ('Y')) * 1000000(16),
*IFEND
    cyc$max_ecc = cyc$min_ecc + 9999;

