Re: Journal for an order

Yes, 7.2 added "Default values for function and procedure parameters"

Charles

On Mon, Feb 29, 2016 at 11:32 AM, Smith, Mike <Mike_Smith@xxxxxxxxxxxxxxxx>
wrote:

Has that changed from V7R1 to V7R2?
From
http://www-01.ibm.com/support/knowledgecenter/ssw_ibm_i_72/rzajq/rzajqudfdisplayjournal.htm?lang=en
Shows this as an example.

Select all entries from the *CURRENT receiver of journal TESTLIB/QSQJRN.

SELECT * FROM TABLE (
DISPLAY_JOURNAL( 'TESTLIB', 'QSQJRN')) AS JT;


I can't seem to find a reference to this in the 7.1 knowledge center.

Mike
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Charles Wilt
Sent: Monday, February 29, 2016 11:00 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: Re: Journal for an order

Not enough parms...

select * from table (
*Display_Journal*(
'MJATST', 'QSQJRN', -- Journal library and name '', '', -- Receiver
library and name CAST(null as TIMESTAMP), -- Starting timestamp CAST(null
as DECIMAL(21,0)), -- Starting sequence number '', -- Journal codes '', --
Journal entries '','','','', -- Object library, Object name, Object type,
Object member '', -- User '', -- Job '' -- Program

) ) as x;

On Mon, Feb 29, 2016 at 10:38 AM, Smith, Mike <Mike_Smith@xxxxxxxxxxxxxxxx

wrote:

Thought I would give this a try to look at QAUDJRN.
Select * from table( QSYS2.DISPLAY_JOURNAL('QSYS', 'QAUDJRN')) as AJ

I'm getting a DIPSLAY_JOURNAL IN QSYS2 type *N not found.

I'm on V7R1 with TR11 installed.

Any idea what I might be missing?

Thanks

mike


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
rob@xxxxxxxxx
Sent: Wednesday, February 17, 2016 10:16 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: Re: Journal for an order

Then again, there's always another way.

SELECT journal_code, journal_entry_type, object, object_type, X.* FROM
TABLE (
QSYS2.Display_Journal(
'#MXJRN', 'BPCS_ALL',
OBJECT_LIBRARY=>'ERPLXF', OBJECT_NAME=>'IIM',
OBJECT_OBJTYPE=>'*FILE', OBJECT_MEMBER=>'IIM'
) ) AS X
ORDER BY entry_timestamp DESC


http://www-01.ibm.com/support/knowledgecenter/ssw_ibm_i_72/rzajq/rzajq
udfdisplayjournal.htm?lang=en

The trick is converting ENTRY_DATA from a blob to something useful and
parsing it out. This helps with the conversion:
SELECT journal_code, journal_entry_type, object, object_type,
cast(entry_data as char(12000)),X.* FROM TABLE (
QSYS2.Display_Journal(
'#MXJRN', 'BPCS_ALL',
OBJECT_LIBRARY=>'ERPLXF', OBJECT_NAME=>'IIM',
OBJECT_OBJTYPE=>'*FILE', OBJECT_MEMBER=>'IIM'
) ) AS X
ORDER BY entry_timestamp DESC



Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600
Mail
to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at

http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

NOTICE: This message, including any attachment, is intended as a
confidential and privileged communication. If you have received this
message in error, or are not the named recipient(s), please
immediately notify the sender and delete this message.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

NOTICE: This message, including any attachment, is intended as a
confidential and privileged communication. If you have received this
message in error, or are not the named recipient(s), please immediately
notify the sender and delete this message.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.