WikASi - Un peu de tout sur le i

1. DSPOBJD OBJ(QGPL/*ALL) OBJTYPE(*FILE) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJD)

2. SELECT ODOBSY, ODOBTP, ODOBAT, ODJRLB, ODJRNM, COUNT(*)
FROM QTEMP/DSPOBJD
WHERE ODJRLB <> ' '
GROUP BY ODOBSY, ODOBTP, ODOBAT, ODJRLB, ODJRNM
ORDER BY ODOBSY, ODOBTP, ODOBAT, ODJRLB, ODJRNM

SELECT JRNASPGRP, SYS_DNAME, JRNNAME, “TYPE”, RMTJRNS, STATE,
JRNCACHE, JRNALL, JRNFILE, JRNMBR, JRNDTAARA, JRNDTAQ, JRNIFS,
JRNAP, JRNCMTDFN, JRNLIB,
LCLJRNSYS, LCLASPGRP, LCLJRNLIB, LCLJRNNAME,
NUMJRNRCV, SIZJRNRCV, MNGRCVOPT, DLTRCVOPT, TEXT
FROM QSYS2.JOURNAL_INFO
WHERE STATE = '*ACTIVE'

SELECT JRNASPGRP, JOURNAL_LIBRARY, JOURNAL_NAME, TYPE, STATE,
LCLJRNSYS, LCLASPGRP, LCLJRNLIB, LCLJRNNAME
FROM QSYS2.JOURNAL_INFO
WHERE TYPE = '*REMOTE'

1. sur la machine distante, lancer et créer la liste de remote_journal ci-dessus dans un fichier QTEMP/JRMT

2. Sur la machine locale, lancer l'association suivante :

SELECT F1.JRNASPGRP, F1.SYS_DNAME, F1.JRNNAME, F1.“TYPE”,
F1.STATE, F1.JRNCACHE, F1.JRNALL, F1.JRNFILE, F1.JRNMBR,
F1.JRNDTAARA, F1.JRNDTAQ, F1.JRNIFS, F1.JRNAP, F1.JRNCMTDFN, F1.JRNLIB,
F2.JRNASPGRP, F2.JOURNAL_LIBRARY, F2.JOURNAL_NAME, F2.STATE,
F1.NUMJRNRCV, F1.SIZJRNRCV, F1.MNGRCVOPT, F1.DLTRCVOPT, F1.TEXT
FROM QSYS2.JOURNAL_INFO F1
INNER JOIN QTEMP/JRMT F2
ON F1.JRNASPGRP = F2.LCLASPGRP
AND F1.SYS_DNAME = F2.LCLJRNLIB
AND F1.JRNNAME = F2.LCLJRNNAME
ORDER BY F1.JRNASPGRP, F1.SYS_DNAME, F1.JRNNAME