integer siobSstartdate2
& siobSstartdate1, siobSstartdate2,
CALL CAL_FULLDATE ( siobSstartdate1, siobSstartdate2,
& siobSstartdate1, siobSstartdate2, siobSperiod,
siobSstartdate2 = UNSET_I
IF(siobSstartdate2.EQ.UNSET_I ) siobSstartdate2 = obcsSstartdate2