New to Journaling AS/400

5 pts.
Tags:
AS/400 journaling
Journaling (AS/400)
How do you start journaling files that were created long before the journal & receiver were created??

Answer Wiki

Thanks. We'll let you know when a new response is added.

Use command STRJRNPF
Phil

Discuss This Question: 3  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • TopKat
    First off determine exactly which files you want to journal. You don't want to journal a development source file! Then I would recommend that you create a library to hold the journals. Create a journal receiver: CRTJRNRCV JRNRCV(JRNLLIN/JRNLRCV) THRESHOLD(5000) + TEXT('Journal Receiver') Create the journal: CRTJRN JRN(JRNLLIB/JRNL) JRNRCV(NRNLLIB/JRNLRCV) + MNGRCV(*SYSTEM) TEXT('Journal') Start journaling: STRJRNPF FILE(DTALIB/FILE1 DTALIB/FILE2) + JRN(JRNLLIB/JRNLRCV) IMAGES(*BOTH) You can substitute *BEFORE or *AFTER for the IMAGES parameter. This will affect how large the journal becomes. Then save the files being journaled. This creates a starting point in the journal for possible restores. I create a save file in the journaling library and save the files to that save file.
    135 pointsBadges:
    report
  • Cwc
    You may also wish to omit the file open and close entries from getting journaled. Otherwise, a lot of extra space gets taken up in the receiver for information that you may not really need or care about. To do so, specify the *OPNCLO value for the OMJTRNE keyword in the STRJRNPF command. STRJRNPF FILE(DTALIB/FILE1 DTALIB/FILE2) + JRN(JRNLLIB/JRNLRCV) IMAGES(*BOTH) OMTJRNE(*OPNCLO)
    4,290 pointsBadges:
    report
  • RonKoontz
    After all that you can have a process copy the files to holding file. Then incrament the journal recv by one and dlt the old one. This way you will not have to monitor it all the time. We keep 30 days of journals for some specific files. Here is the bottom part of the journal clear... * CLEAR JOURNALS IF ITS PAST 10:00 PM */ /* CHGVAR VAR(&TIME) VALUE(230101) */ IF COND(&TIME *GE '220000') THEN(DO) LOOP: CHGVAR VAR(&RECEIVER) VALUE(&RECV *TCAT &CHRNUM) CHKOBJ OBJ(&RECEIVER) OBJTYPE(*JRNRCV) MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(INCREM)) DLTJRNRCV JRNRCV(&RECEIVER) DLTOPT(*IGNINQMSG *IGNTGTRCV) MONMSG MSGID(CPF7022) EXEC(GOTO CMDLBL(CHANGE)) INCREM: CHGVAR VAR(&DECNUM) VALUE(&DECNUM + 1) CHGVAR VAR(&CHRNUM) VALUE(&DECNUM) GOTO CMDLBL(LOOP) CHANGE: CHGJRN JRN([your journal]) JRNRCV(*GEN) SEQOPT(*RESET) + MSGQ(RON) RCVSIZOPT(*RMVINTENT) MONMSG MSGID(CPF7018 CPF0000) EXEC(DO) SNDMSG MSG('FAILED TO CHANGE JOURNALS') TOUSR(you) GOTO CMDLBL(END)
    1,780 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following