I created a session in which the main function is to let the user select a file, which should be stored.
I developed a programscript type 1/2/3 with main table.
See script below. Now before going into the zoom the record is inserted. And after the zoom.to$ the system should store a filed which is filled with a variable coming from the zoom-app. See fecom890.file1. This fecom890.file1 is filled after the zoom, but the execute(db.update) does not store this filed.
I tried in on.choice/after.choice but it won't work. Can somebody give me a hint.


part of the script:

choice.user.0: |Add files
on.choice:
w=shell("cd /data/specials/" & str$(fecom890.qono) & edit$(fecom890.pono,"9999"),0)
if w<>0 then
w=shell("mkdir /data/specials/" & str$(fecom890.qono) & edit$(fecom890.pono,"9999"),0)
if w<>0 then
message("There was an error creating the special, you can not continue!")
execute(end.program)
endif
endif
special=str$(fecom890.qono) & edit$(fecom890.pono,"9999")
file1=strip$(fecom890.file1)
file2=strip$(fecom890.file2)
file3=strip$(fecom890.file3)
file4=strip$(fecom890.file4)
zoom.to$("fecom8190m00x",Z.SESSION,"fecom8190m000","",0)
if strip$(fecom890.file1)="" and strip$(file1)<>"" then
fecom890.file1=file1
endif
if strip$(fecom890.file2)="" and strip$(file2)<>"" then
fecom890.file2=file2
endif
if strip$(fecom890.file3)="" and strip$(file3)<>"" then
fecom890.file3=file1
endif
if strip$(fecom890.file4)="" and strip$(file4)<>"" then
fecom890.file4=file4
endif
display.all()
execute(update.db)
after.choice:
execute(update.db)

Maybe commit.transaction() will do the trick!

Commit transaction is not required . U need to update main table field with do.occ or do.all.occ function .And then execute(update.db) will do the requisite updation .