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
Software/Hardware used:
Software/Hardware used:
ASKED:
March 25, 2011 7:27 PM
UPDATED:
March 28, 2011 7:37 PM
RELATED QUESTIONS
- How to modify OPRMONE
- DSPLY SQL value is zeros
- RPGLE Trigger - Return Changed Field
- How to operating with Multiple Member PF in RPG ?
- How Do I compile these in order to use them? I am new to ILE and recently downloaded the following code. But I don't know how to compile them (CRTRPGMOD, CRTSRVPGM, CRTBNDRPG) so that I can use it. Any help would be appreciated.
Answer Wiki:
Last Wiki Answer Submitted:
Be the first to answer this question.
All Answer Wiki Contributors:
Be the first to answer this question.
To see all answers submitted to the Answer Wiki: View Answer History.
…how I can do to not disappear (like NEP pgm)
The simple answer is not to execute the RETURN at the end of your program.
See the discussion after your comment in the Data queues in RPG thread.
Choose this thread or the other one for any continuation.
Tom