Yes there is a way,
Since you must have already figured that you need to CPYSPLF the printer output to a physical file then the following should accomplish what you desire.
It just joins every 1st and 2nd records together into one record.
CRTPF FILE(QTEMP/DSPLOG) RCDLEN(132)
CPYSPLF FILE(QPDSPLOG) TOFILE(DSPLOG) SPLNBR(*LAST)
RUNSQL SQL('create table qtemp/hstlog as (
with X as (select rrn(A) as seq,A.* from dsplog A where left(dsplog,3)=''CPF'')
, Y as (select rrn(B) as seq,B.* from dsplog B where left(dsplog,3)='' '')
select X.dsplog as X1,Y.dsplog as Y1 from X join Y on X.seq=Y.seq-1) with data')
COMMIT(*NC)
RUNQRY QRYFILE((HSTLOG))
Cheers, Peter
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Steinmetz, Paul
Sent: Saturday, 18 February 2017 10:49 AM
To: 'Midrange Systems Technical Discussion'
Subject: [IE] Is there a way to DSPLOG LOG(QHST) OUTPUT(*PRINT) MSGID(CPF3145) to an outifle or to a spoolfile that doesn't wrap.
Is there a way to DSPLOG LOG(QHST) OUTPUT(*PRINT) MSGID(CPF3145) to an outifle or to a spoolfile that doesn't wrap.
I need an easy way to track access path rebuilds.
The below wraps, not easy to read.
I'd like to dump the output, sort descending by the time used field 00:00:01.
DSPLOG LOG(QHST) OUTPUT(*PRINT) MSGID(CPF3145)
5770SS1 V7R1M0 100423 History Log PENCOR06 2/17/17 8:39:39 Page 0001
MSGID SEV MSG TYPE
CPF3145 00 INFO Access path built for member CBG7REL0 file CBG7REL0 library CABLEFILES in 00:00:01.
QDBSRV04 QSYS 150219 QDBMAINT 0000 02/17/17 00:26:00.115878 QSYS
CPF3145 00 INFO Access path built for member CBBOREL0 file CBBOREL0 library CABLEFILES in 00:00:01.
QDBSRV05 QSYS 150220 QDBMAINT 0000 02/17/17 00:26:00.163651 QSYS
CPF3145 00 INFO Access path built for member CBIWREL0 file CBIWREL0 library CABLEFILES in 00:00:01.
QDBSRV04 QSYS 150219 QDBMAINT 0000 02/17/17 00:26:00.176451 QSYS
CPF3145 00 INFO Access path built for member CBJEREL0 file CBJEREL0 library CABLEFILES in 00:00:01.
QDBSRV04 QSYS 150219 QDBMAINT 0000 02/17/17 00:26:00.276308 QSYS
CPF3145 00 INFO Access path built for member TOLRSQ03 file TOLRSQ03 library BRFILES in 01:23:54.
QDBSRV05 QSYS 150220 QDBMAINT 0000 02/14/17 03:45:10.908309 QSYS
CPF3145 00 INFO Access path built for member TOLRSQ01 file TOLRSQ01 library BRFILES in 01:21:52.
Thank You
_____
Paul Steinmetz
IBM i Systems Administrator
Pencor Services, Inc.
462 Delaware Ave
Palmerton Pa 18071
610-826-9117 work
610-826-9188 fax
610-349-0913 cell
610-377-6012 home
psteinmetz@xxxxxxxxxx
http://www.pencor.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.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
############################################################## This correspondence is for the named person's use only. It may contain confidential or legally privileged information, or both. No confidentiality or privilege is waived or lost by any mistransmission. If you receive this correspondence in error, please immediately delete it from your system and notify the sender. You must not disclose, copy or rely on any part of this correspondence if you are not the intended recipient. Any views expressed in this message are those of the individual sender, except where the sender expressly, and with authority, states them to be the views of Veda. If you need assistance, please contact Veda :- Australia
http://www.veda.com.au/contact-us New Zealand
http://www.veda.co.nz/contact-veda ##############################################################
midrange.com
