I've tried to create a AFS script for this sessions. But after the first api-call the session doesn't do anything anymore, and I've to kill it. This is te afs-script I use:
stpapi.handle.subproc("tpppc2811m000", "tpppc2131m000", "add")
stpapi.handle.subproc("tpppc2131m000", "tpppc2111m000", "add")
stpapi.application.option("tpppc2131m000", 1, 1, r.mess)
...

and the standard code in tpppc2811m000 is:
init.form:
.....
run.processes()
.....
function run.processes()
{
...
old.process = called.process
on case called.process
...
case "2131":
if int.fina then
called.process = last.process
else
last.process = "2131"
if not processno.2131 then
processno.2131 =
activate("tpppc2131m000")
endif
switch.to.process(processno.2131)
endif
break
case "2132":
....
...
}

How can i solve it?
thanks really.

I solve it with a new session copy of tpppc2811m000 with this new code:
|#WMAHB01.BN
choice.cont.process:
on.choice:
run.processes()
after.choice:
kill.processes()
execute(end.program)
|#WMAHB01.EN

and api code is:

stpapi.handle.subproc("tppcs2811m000", "tpppc2131m000", "add")
stpapi.continue.process("tppcs2811m000", r.mess)
if isspace(r.mess) then
stpapi.handle.subproc("tpppc2131m000", "tpppc2111m000", "add")
stpapi.application.option("tpppc2131m000", 1, 1, r.mess)
if isspace(r.mess) then
...

thanks!!