Question

  Asked: May 1 2008   4:14 PM GMT
  Asked by: Jlunger1


Default Journaling in V5R4


AS/400 journaling, QDFTJRN, V5R4

I created the default journal data area(QDFTJRN) with all the appropriate
upper case entries in my test library and wondered what I needed to do next. I've made
changes to several files and added and deleted records in several files
but nothing shows in my journal.
What starts the "automatic" journal recording?

Subscribe to Alerts! Get questions and answers delivered to your Inbox.


E-mail me updates on this question



   SUBSCRIBE

hidden modal window

Answer Wiki (Improve, edit or add to this answer)


 RATE THIS ANSWER
0
Click to Vote:
  •   0
  •  0



The following sequence of commands worked OK for me:


CRTLIB JRNTEST
CRTDTAARA DTAARA(JRNTEST/QDFTJRN) TYPE(*CHAR) LEN(100)
CHGDTAARA DTAARA(JRNTEST/QDFTJRN) VALUE('JRNTEST JRN *FILE *ALLOPR')
CRTJRNRCV JRNRCV(JRNTEST/JRNRCV)
CRTJRN JRN(JRNTEST/JRN) JRNRCV(JRNTEST/JRNRCV)
CRTPF FILE(JRNTEST/TESTFILE) RCDLEN(30)
STRDFU and add a record to JRNTEST/TESTFILE using option 5
DSPJRN JRN(JRNTEST/JRN)


The DSPJRN command showed the following entries:


Sequence Code Type Object Library Job Time
1 J PR QPADEV0001 4:14:40
2 J XP TESTFILE JRNTEST QPADEV0001 4:14:55
3 D CT TESTFILE JRNTEST QPADEV0001 4:14:55
4 D JF TESTFILE JRNTEST QPADEV0001 4:14:55
5 F JM TESTFILE JRNTEST QPADEV0001 4:14:55
6 D MA TESTFILE JRNTEST QPADEV0001 4:14:55
7 F MC TESTFILE JRNTEST QPADEV0001 4:14:55
8 R PT TESTFILE JRNTEST QPADEV0001 4:15:12


with entry 8 showing my new record:


Object . . . . . . . : TESTFILE Library . . . . . . : JRNTEST
Member . . . . . . . : TESTFILE
Incomplete data . . : No Minimized entry data : *NONE
Sequence . . . . . . : 8
Code . . . . . . . . : R - Operation on specific record
Type . . . . . . . . : PT - Record added

Entry specific data
Column *...+....1....+....2....+....3....+....4....+....5
00001 'Make it? '


I did nothing specific to starting the implicit journaling so you may want to double check your actions with the sequence of commands I used above.

I hope this helps,
Bruce Vining
http://www.brucevining.com/
  • AddThis Social Bookmark Button

Browse more Questions and Answers on AS/400.

Looking for relevant AS/400 Whitepapers? Visit the Search400.com Research Library.


Discuss This Answer


You must be logged-in to discuss a question. Log-in/Register

Jlunger1  |   May 2 2008  5:07PM GMT

The fact that the library already had files in it was not part of the discussion. When I add NEW files everything appears to work just like your example. What a dumb *ss to think it would work with existing files. I’m now pretty sure that the only way to get it to work for all existing files is to back it up and restore it after creating the QDFTJRN.

 

Bvining  |   May 5 2008  2:26PM GMT

From the Information Center article Automatically starting journaling:

Using a data area named QDFTJRN, you can automatically start journaling when a non-integrated file system object (data area, data queue, or file) is created, moved, or restored into the library

(bolding added by me)

Bruce Vining
http://www.brucevining.com/

 

Jlunger1  |   May 7 2008  1:41PM GMT

I think it would have been helpful if that statement was followed with a clarification that “If the file/object currently exists in the library at the time QDFTJRN is created , no journal action is taken.” Just a thought.

 

Bvining  |   May 8 2008  1:41PM GMT

Total agreement. I would suggest sending in a reader comment form on the article making just such a suggestion.

 

Gilly400  |   Jun 9 2008  11:27AM GMT

Hi,

So I guess moving the files to a temporary library and moving them back will start the journalling for them ?

Regards,

Martin Gilbert.