Hi Rob, thanks a lot for the link
Best regards
Jean-Paul DELPIRE
Consultant iSeries
Courriel jdelpire@xxxxxxxxxxxxxxx
______________________________________________________
www.mondialrelay.fr
-----Message d'origine-----
De : MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] De la part de Rob Berendt
Envoyé : lundi 27 février 2017 14:36
À : Midrange Systems Technical Discussion
Objet : Re: Using RCVJRNE for replication process of specific tables with specific filters - how to monitor it ?
Got some chores to do but here's a few things
Larry Youngren “High Availability on a Shoestring.”
http://iprodeveloper.com/author/larry-youngren
http://iprodeveloper.com/database/disaster-recovery-shoestring
I didn't seem him listed for COMMON this year though
https://commons17.sched.com/directory/speakers
Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
From: Jean Paul DELPIRE <jdelpire@xxxxxxxxxxxxxxx>
To: "midrange-l@xxxxxxxxxxxx" <midrange-l@xxxxxxxxxxxx>
Date: 02/27/2017 08:25 AM
Subject: Using RCVJRNE for replication process of specific tables
with specific filters - how to monitor it ?
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>
Hello,
I would like to put in a place a never ending replication process with
some filters to apply on a set of tables (3).
I have a problem with the rcvjrne command.
I have one exit program for each tables.
Each time a detach of the journal receiver occur my program stop.
What message(s) do I have to monitor in the cl program in order not to
stop the process and not to miss any transactions ?
Do you advice to use a data area for storing the sequence number ?
This is an example of my cl program.
DCL VAR(&SEQ_NUMBER) TYPE(*DEC) LEN(10 0)
DEBUT: RTVDTAARA DTAARA(TMEVT_FAST) RTNVAR(&SEQ_NUMBER)
CHGVAR VAR(&SEQ_NUMBER) VALUE(&SEQ_NUMBER + 1)
RCVJRNE JRN(JRNDEV) EXITPGM(RCVTMEVT_1) FILE((TMEVT)) +
RCVRNG(*CURCHAIN) JRNCDE((R)) ENTTYP(PT PX UP +
DL) ENTFMT(*TYPE3) DELAY(*NEXTENT) +
FROMENT(&SEQ_NUMBER) TOENT(*NONE)
MONMSG MSGID(CPF7062 CPF7054) CMPDTA(*N) EXEC(DO)
RcvMsg MsgType( *EXCP ) Rmv( *YES ) */
GOTO CMDLBL(DEBUT)
ENDDO
ENDPGM
Thanks a lot by advance for your help
[
https://www.mondialrelay.fr/img/logos/sign_outlook_fr.gif]
Jean-Paul DELPIRE
Consultant iSeries
Courriel : jdelpire@xxxxxxxxxxxxxxx
www.mondialrelay.fr <
http://www.mondialrelay.fr>
[
https://www.mondialrelay.fr/signatures/Handler.aspx?Type=Img&Pays=FR]<
https://www.mondialrelay.fr/signatures/Handler.aspx?Type=Link&Pays=FR>
midrange.com
