RPG Net pgm with dataq

Hi. I need some help with net pgm. This is my stuff:

1- ADDPJE SBSD(LIBINO/INOSBS) PGM(LIBINO/TST44R)

2- TST44R read a InoDtaq

3- In WrkActJob I can view the INOSBS with TST44R 3 times (default)

4- I have a pgm TST43R that write a LIBINO/INODTAQ. I run it.

5- I run TST44R and in WorkActJob its appears only twice.
When I run TST44R twice, its disapper from INOSBS.

MY QUESTION: how I can do to not disappear (like NEP pgm)

This is TST44R source:

ddqname s 10A INZ(‘INODTAQ’)

ddqlib s 10A INZ(‘LIBINO’)

ddqsndlen s 5 0 INZ(14)

ddqlen s 5 0
ddqsnddata s 50a

dParm1 s Like(dqdata)

ddqdata s 50a
ddqwait s 5 0

Eval dqwait=-1

call ‘QRCVDTAQ’

parm dqname

parm dqlib

parm dqlen

parm dqdata

parm dqwait

Eval Parm1=%Trim(dqdata)

c/Exec sql
C+ INSERT INTO QGPL/TSTPF (NAME) VALUES(:Parm1)
c/End-exec

Return