×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
The D specs are for receiving the data form the data queue, in the C I
recieve the data, if error I just re-create the data Q and then begin
the process. There is an infinite loop, I get out by puting a constant
"SALIR" in the queue. The rest of the program does the process using the
data from (ctap).
0016.00 D RcvDtaQ PR ExtPgm('QRCVDTAQ')
0017.00 D DtaqName 10A const
0018.00 D DtaqLib 10A const
0019.00 D DtaqLen 5P 0
0020.00 D Data 32766A options(*varsize)
0021.00 D WaitTime 5P 0 const
0022.00...
0057.00 /free
0058.00 dow true;
0059.00 clear ctap;
0060.00 MONITOR;
0061.00 RcvDtaQ('F_V': 'ED': long: ctap: -1);
0062.00 on-error;
0063.00 mensaje('Error en F_V al leer dtaq, reconstruye.Cod:' +
0064.00 %char(%status()) + '.-');
0065.00 system('DLTDTAQ DTAQ(ED/F_VE)');
0066.00 system('CRTDTAQ DTAQ(ED/F_V) MAXLEN(10) AUTORCL(*YES)');
0067.00 leave;
0068.00 endmon;
0069.00 if long = 5 and ctap = 'SALIR';
0070.00 mensaje('Salida normal de F_V': 'INTERNET');
0071.00 leave;
050901
To send data I use a CL and also RPG. Here is a sample:
CALL PGM(QSNDDTAQ) PARM(&QUEUE &LIB &LONG &NCTAA)
Alberto wrote:
Hi Raul, thanks for the hint !
That's very interesting, do you have any link of a sample about that?
Thanks!
Ciao.
Alberto.
"Raul A. Jager W." <raul@xxxxxxxxxx> ha scritto nel messaggio
news:mailman.34107.1277212960.2580.rpg400-l@xxxxxxxxxxxxxxx
Use a DATAQUEUE to pass the data back and receive the result. If the
batch program only need to update a file, you only need one queue.
midrange.com
