lcPeriod = "07-2007" SELECT Table1 DELETE FOR month = lcPeriod>
>curmon=07-2007 >lnMonths3 = Val(Substr(curmon , At("-", curmon )+1)) * 12 + Val(curmon ) - 1 >CVAR3 = Str(Int(lnMonths3 / 12), 4)+Padl(Int(lnMonths3) % 12 + 1, 2, "0") >Select Table1 >delete for month=m.cvar3 >pack >>In 07-2007, 07 is month and 2007 is year