SET RANT ON>and
for x=1 to 1>may by
for x=1 to 13>
>>SET EXCLUSIVE ON & Not OFF, OFF is if you must share, to pack it must be ON!!!!!!!!! >>>>By the way, SET EXCLUSIVE OFF is usually only set ONCE in your program, or in the config.fpw file. In stead you add the EXCLUSIVE keyboard whenever you need it
>>for x=1 to 1 >> use ('month'+alltrim(str(x,2))+'2005') EXCLUSIVE >> delete for no=1151 >> pack >>endfor>>And if you need to PACK regularly, you should reconsider your design. PACK should typically be used about once a year to clean up the tables, not daily or weekly!
>>>SET EXCLUSIVE off >>>for x=1 to 13 >>> delete FROM ('month'+ltrim(str(x))+'2004') where no=1231 >>> pack &&File must be opened exclusively >>>endfor >>>>>>
>>>>>>for x=1 to 1 >>>>>> use (trim(str(x,2))+'2005') >>>>>> delete for no=1151 >>>>>>endfor>>>>>