integer obcsEstartdate1
& obcsEstartdate1, obcsEstartdate2,
CALL CAL_FULLDATE ( obcsEstartdate1, obcsEstartdate2,
& obcsEstartdate1, obcsEstartdate2, obcsEperiod,
obcsEstartdate1 = 0
IF(siobEstartdate1.EQ.UNSET_I ) siobEstartdate1 = obcsEstartdate1