Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save EdgardoEhiyan/da94c085296776a297636d240222d855 to your computer and use it in GitHub Desktop.
Save EdgardoEhiyan/da94c085296776a297636d240222d855 to your computer and use it in GitHub Desktop.
Statment SQL QSYS2.DISPLAY_JOURNAL ( for Object /Date/ and recivers(start-end)
SELECT ENTRY_TIMESTAMP as JE_TIME, CURRENT_USER as CURRENT_USR,
SEQUENCE_NUMBER, JOURNAL_ENTRY_TYPE,JOB_NAME,
JOB_USER, JOB_NUMBER,PROGRAM_NAME,
OBJECT,OBJECT_TYPE,PATH_NAME,
CAST(cast(substring(entry_data, 1, 32) as char(32) for bit data) as CHAR(32) CCSID 1141) as F1,
CAST(cast(substring(entry_data, 33, 130) as char(130) for bit data) as CHAR(130) CCSID 1141) as F2,
HEX(cast(substring(entry_data, 163, 258) as char(258) for bit data)) as F3,
HEX(cast(substring(entry_data, 421, 6) as char(6) for bit data)) as N1,
HEX(cast(substring(entry_data, 427, 11) as char(11) for bit data)) as N2,
HEX(cast(substring(entry_data, 438, 4) as char(4) for bit data)) as N3
FROM
TABLE(QSYS2.DISPLAY_JOURNAL('ÑMXJRN','HOMEX',
STARTING_RECEIVER_LIBRARY=>'ÑMXJRN',STARTING_RECEIVER_NAME=>'HOME251846',
ENDING_RECEIVER_LIBRARY=>'ÑMXJRN',ENDING_RECEIVER_NAME=>'HOME251851',
STARTING_TIMESTAMP =>TIMESTAMP('20200624051200'),
ENDING_TIMESTAMP => TIMESTAMP('20200624053959'))) as K
where object like '%TEPFILS%'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment