Re: Iseries Service Programs

["Raul A. Jager W." <raul@xxxxxxxxxx>]

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.