I , obcsSstartdate1, obcsSstartdate2
integer obcsSstartdate1
& obcsSstartdate1, obcsSstartdate2,
obcsSstartdate1 = 0
call CAL_FULLDATE ( obcsSstartdate1 , obcsSstartdate2,
& obcsSstartdate1, obcsSstartdate2, obcsSperiod,