RTCYEAR
dt.dt_year = FROMBCD(HREAD4(sc, RTCYEAR)) + 1900;
HWRITE4(sc, RTCYEAR, TOBCD(dt.dt_year - 1900));