INTEGER atempstartdate1
& atempstartdate1, atempstartdate2,
I atempstartdate1, atempstartdate2,
& atempfile, atempstartdate1, atempstartdate2,
atempstartdate1 = 0