
{    DECK: RFC$CONDITION_CODE_RANGE


*copyc rfc$product_id

  CONST
    rfc$min_ecc = (($INTEGER ('R') * 100(16)) + $INTEGER ('F')) * 1000000(16),
    rfc$min_ecc_rhf_access_method = rfc$min_ecc,
    rfc$max_ecc_rhf_access_method = rfc$min_ecc_rhf_access_method + 9999;

