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