× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Ok, thank you. I'll add values.

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles Wilt
Sent: Monday, February 29, 2016 12:39 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: 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/rzajq
udfdisplayjournal.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/rza
jq
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.

--
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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.