Pack Action Script

[John Cunradi]

I have an action script that does some things like delete records, import, etc.

During the action script, I run a "pack" of a table. But, after the pack occurs, the action script stops running. The pack appears to work fine and, when removed, all the other functions (after the pack)of the action script work perfectly.

This is the code used:

dim tbl as p
tbl=table.current()
tbl.pack()
end

I've tried variations of the packs' code (removing lines, etc.)but no luck.

Unfortunatley, I cannot make the pack the last action in the script.

Any ideas what I'm doing wrong?

Thanks.

[Stan Mathews]

RE: Pack Action Script

You can't pack a table unless you can obtain exclusive use.

You will have to have other users out of your application, and the table closed from any previous operations. When your pack command attempts to execute, the previous operation in your script must not yet be finished.

[CraigSchumacker]

RE: Pack Action Script

John:

What happens if you take out the word "end" just after the pack... I don't use action scripting much, but it's probably terminating the script...

Craig

[John Cunradi]

RE: Pack Action Script

Then, is there a way to make sure that the other operations are finished before the pack occurs?

For now, I do not have the prior-to-pack actions running silently. They appear to be finishing before getting to the pack function.

Could it be that the Post-pack actions attempt to begin before the pack is completed? If so, is there a way to make the pack finish before continuing to the next actions?

If this helps, the reason for the pack is to re-set an auto-incrementing field to "1" when records are deleted and then new records are appended into the table.

Thanks.

[John Cunradi]

RE: Pack Action Script

Thanks Craig,

That did the trick. Now everything works like a charm.

[Stan Mathews]

RE: Pack Action Script

John,

Sorry I didn't see the real problem in your earlier post.

As for the exclusive use question...

Msg ID: 36750
Subject: RE: table.isopen Not!
Author: Jerry Brightbill
Date: 03-08-2001 08:24
File:

Nick
A somewhat simpler way to check if a table is open is to try to open it in exclusive mode. If it is already open you will get an error which you can trap.

on error goto error_flag

myflag = .T.
tbl = table.open(name,FILE_RW_EXCLUSIVE)
if myflag = .F.
tbl.close()
itis = "T"
else
itis = "F"
end if

trace.writeln(itis)

error_flag:
myflag = .F.
resume next

This from Jerry covers the question quite nicely. I am "marking as code" the code you would use to enclose the xbasic statements which needed exclusive use of your table, for clarity. Of course you might need to modify the "tbl" pointer name if you had used it elsewhere.

Stan