integer ustressstartdate2
& ustressstartdate1, ustressstartdate2,
CALL CAL_FULLDATE ( ustressstartdate1, ustressstartdate2,
& ustressstartdate1, ustressstartdate2, ustressperiod,
ustressstartdate2 = 0