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