integer obcsWstartdate2
& obcsWstartdate1, obcsWstartdate2,
CALL CAL_FULLDATE ( obcsWstartdate1, obcsWstartdate2,
& obcsWstartdate1, obcsWstartdate2, obcsWperiod,
obcsWstartdate2 = 0
IF(siobWstartdate2.EQ.UNSET_I ) siobWstartdate2 = obcsWstartdate2