integer siobEstartdate2
& siobEstartdate1, siobEstartdate2,
CALL CAL_FULLDATE ( siobEstartdate1, siobEstartdate2,
& siobEstartdate1, siobEstartdate2, siobEperiod,
siobEstartdate2 = UNSET_I
IF(siobEstartdate2.EQ.UNSET_I ) siobEstartdate2 = obcsEstartdate2