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