integer obcsSstartdate1
& obcsSstartdate1, obcsSstartdate2,
CALL CAL_FULLDATE ( obcsSstartdate1, obcsSstartdate2,
& obcsSstartdate1, obcsSstartdate2, obcsSperiod,
obcsSstartdate1 = 0
IF(siobSstartdate1.EQ.UNSET_I ) siobSstartdate1 = obcsSstartdate1