Displaying the contents of a journal

Have you ever tried to display the contents of a journal to see what has changed in a file (using DSPJRN) but couldn't work out which fields have changed?

Now you can by following these simple steps!

 
		
1.	Display the journal to an outfile, using the following command:

DSPJRN 	JRN(Library /Journal) FILE((Library / File)) ENTTYP(*RCD) OUTPUT(*OUTFILE) OUTFILFMT(*TYPE3)
		OUTFILE(QTEMP/QRY1) ENTDTALEN(*CALC)           

2.	Create a Query that will join the outfile (QRY1 in QTEMP) to the physical file whose journal contents you want to see.

	I.	Specify File Selections:

		File . . . . . . . . .   QRY1          
  Library  . . . . . .     QTEMP       
Member . . . . . . . .   *FIRST        
Format . . . . . . . .   QJORDJE3      
File ID  . . . . . . .   T01           
                                       
File . . . . . . . . .   File       
  Library  . . . . . .     Library  
Member . . . . . . . .   *FIRST        
Format . . . . . . . .   Format        
File ID  . . . . . . .   T02           

	II.	Specify Type of Join:

		Type of join . . . . . . . .   1    1=Matched records

		and chose a match that will never work:

		Field             Test     Field          
 		T01.JOENTL  _     EQ  _    T02.FIELDA___      

	III.	Select and Sequence Fields:

		Use F21 to select all, then deselect the last T01 field (T01.JOESD)

	IV.	Select Output Type and Output Form:

		Output type  . . . . . . . .   3    3=Database file

File . . . . . . . . .   QRY2         
  Library  . . . . . .     QTEMP      
Member . . . . . . . .   *FILE
	
	V.	Run the Query

3.	Copy the records from the outfile (QRY1) to the file created by the Query (QRY2) using the following command:

	CPYF 	FROMFILE(QRY1) TOFILE(QRY2) MBROPT(*ADD)
FMTOPT(*NOCHK)

4.	Now use another Query (or any other file utility) to display the changes, together with their field names.