I xx_genstartdate, xx_genperiod,
integer xx_genstartdate(4)
I xx_gen_file, xx_genstartdate, xx_genperiod,
I xx_genstartdate,