& xx_sssstartdate1, xx_sssstartdate2, xx_sssperiod,
& , xx_sssstartdate2
integer xx_sssstartdate2
call CAL_FULLDATE( xx_sssstartdate1, xx_sssstartdate2,
xx_sssstartdate2 = 0