integer obcsNstartdate2
& obcsNstartdate1, obcsNstartdate2,
CALL CAL_FULLDATE ( obcsNstartdate1, obcsNstartdate2,
& obcsNstartdate1, obcsNstartdate2, obcsNperiod,
obcsNstartdate2 = 0
IF(siobNstartdate2.EQ.UNSET_I ) siobNstartdate2 = obcsNstartdate2