RE: WRKWCH suggestions to replace HALCYON joblog monitor -- MIDRANGE-L

Paul,

That helped and worked.
That is what I needed.

CHGVAR VAR(&RPLDTAOCH) VALUE(%SST(&EVENTDATA 441 4))
CHGVAR VAR(&RPLDTALCH) VALUE(%SST(&EVENTDATA 445 4))
CHGVAR VAR(&RPLDTAOFF) VALUE(%BIN(&RPLDTAOCH 1 4))
CHGVAR VAR(&RPLDTALEN) VALUE(%BIN(&RPLDTALCH 1 4))
CHGVAR VAR(&RPLDTAOFF) VALUE(&RPLDTAOFF + 1)
CHGVAR VAR(&MSGDATA) VALUE(%SST(&EVENTDATA &RPLDTAOFF &RPLDTALEN))

RTVMSG MSGID(&CPFMSG) MSGF(QSYS/QPQMSGF) MSGDTA(&MSGDATA) MSG(&MSGTXT) MSGLEN(&MSGLEN) SECLVL(&SECLVL) SECLVLLEN(&SECLEN)

&SECLVL now has the message as I need it without having to reconstruct it.

&N Cause . . . . . : An error was detected while processing the spooled file portion of a print request for file CCFT8141 number in job 790361/CPAGDEPP/CM_PURGE created on system at . Processing of the print request ended

Paul

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Roy
Sent: Wednesday, September 05, 2018 8:36 AM
To: Midrange Systems Technical Discussion
Subject: RE: WRKWCH suggestions to replace HALCYON joblog monitor

Hello,
look at the example here
http://www-01.ibm.com/support/docview.wss?uid=nas8N1011571

the message data must be retrieved from the evendata received as parameter
by the watch program

CHGVAR VAR(&RPLDTAOCH) VALUE(%SST(&EVENTDATA 441 4))

CHGVAR VAR(&RPLDTALCH) VALUE(%SST(&EVENTDATA 445 4))

CHGVAR VAR(&RPLDTAOFF) VALUE(%BIN(&RPLDTAOCH 1 4))
CHGVAR VAR(&RPLDTALEN) VALUE(%BIN(&RPLDTALCH 1 4))
CHGVAR VAR(&RPLDTAOFF) VALUE(&RPLDTAOFF + 1)
CHGVAR VAR(&MSGDATA) VALUE(%SST(&EVENTDATA &RPLDTAOFF
&RPLDTALEN))

then the RTVMSG command can be used to recreate the message text...

Paul

From: "Steinmetz, Paul" <PSteinmetz@xxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxx>
Date: 05/09/2018 14:10
Subject: RE: WRKWCH suggestions to replace HALCYON joblog monitor
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>

Rob,

That did not work.

&CPFMSG - PQT3073
RTVMSG MSGID(&CPFMSG) MSGF(QSYS/QPQMSGF) MSGDTA(&MSGVAR) MSG(&MSGTXT)
MSGLEN(&MSGLEN) SECLVL(&SECLVL) SECLVLLEN(&SECLEN)

&MSGTXT was loaded as below.
Error detected while processing spooled file. Processing of the print
request ended.

&MSGVAR was loaded with all blanks.

&SECLVL
&N Cause . . . . . : An error was detected while processing the spooled
file portion of a print request for file number in job // created on
system at . Processing of the print request ended. &NRecovery . . . :
See t
he job log for previous messages containing more details. Correct the
error and submit the print request again. &N Technical description . . . .
. . . . : The internal message identifier (ID) is .

Paul

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Rob
Berendt
Sent: Wednesday, September 05, 2018 7:50 AM
To: Midrange Systems Technical Discussion
Subject: RE: WRKWCH suggestions to replace HALCYON joblog monitor

No, you do not have to concatenate the data. Simply use the RTVMSG. In
the example I gave the message data was INPUT data not output data. It
takes the message id, message file, message file library and message data
as INPUT and returns you the fully formed message.

Rob Berendt