Hi,

I try to develop a session like ordering system in tdsls4102s00 in relation with tdsls4503s000.

I found some threads inhere and created sessions/forms and code as hown below. But only thing I get is the detail-sesion in bottom but upper session is not shown at all.

Any idea of mistakes I make or things I forgot?

Session 1: Detail, form type 3
Session 2: List, form type 2

Code session 1:

declaration:
long child, instruction

before.program:
sattr.combined = COMBINED.BOTTOM


form.1:
init.form:
ignore.first.event = TRUE
process.communication.handler.start()
execute(first.set)

choice.end.program:
before.choice:
if child then
kill(child)
child = 0
endif

choice.first.set:
after.choice:
instruction = first.set
activate.display.process()

functions:
function process.communication.handler.start()
{
status.off()
child = activate("bibbmlist0001")
status.on()
instruction = 0
activate.display.process()
}

function activate.display.process()

{
status.off()
if ( child ) then
switch.to.process(child,
SWITCH.SAME.SIZE +
SWITCH.WITHOUT.INTERACTION)
endif
status.on()
}

Session 2:

declaration:
long instruction

before.program:
sattr.combined = COMBINED.TOP
sattr.slave = TRUE
fattr.toplines = 1
fattr.scrollbar = false
wait.for.switch()

form.1:
init.form:
while true
import("instruction",
instruction)
on case instruction
case last.set:
execute(last.set)
break
case first.set:
execute(first.set)
break

case start.set:
blank.all()
break

default:
endcase
switch.to.process(parent)
endwhile