RE: STRWCH question -- MIDRANGE-L

Hi Joe,

Yes, I am aware the watch must be ended and restarted for any change to
the watch program.

I have added dspjob and dmpclpgm into the program but even that is not
showing all the cl commands but the dmpclpgm at least shows all the
variables for me to investigate further.

Appreciate the date details tomorrow.

Thanks
Don

Don Brown

Senior Consultant

[1]OneTeam IT Pty Ltd
P: 1300 088 400

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Joe
Wood
Sent: Wednesday, 24 September 2025 11:08 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: STRWCH question

Don - clle watch pgms are memory resident and any change/compilation to
the *pgm will not take place until you end and restart the watch.

I’ll look for timestamp advice tomorrow.

----------------
Joe Wood
----------------

E: wood3875@xxxxxxxxx
M: 801-891-5223
L: [2]http://www.linkedin.com/in/josephgwood

On Tue, Sep 23, 2025 at 5:44 PM Don Brown via MIDRANGE-L <
midrange-l@xxxxxxxxxxxxxxxxxx> wrote:

> I am testing a watch program to process messages from the QSYSMSG
> message queue.
>
> In the program I have at the very beginning to enable verbose
> debugging while I do testing
>
> chgjob log(4 0 *seclvl) logclpgm(*yes)
>
> But I can find any active or ended job or spool file with the joblog
> details. I know the program is being called as I receive an email
> that is generated from the watch program.
>
> My second question is in the event data provided to the watch program
> there is Message timestamp, type char(8) that I want to convert to a
> value that can be used in a message but what I have tried has failed
> and searching has not been successful in finding the format this value
is in.
>
> 378
> 17A
> CHAR(8)
> Message timestamp
>
> Any suggestions or links appreciated.
>
> Thanks
> Don
>
>
> Brisbane - Sydney - Melbourne
>
>
> Don Brown
>
> Senior Consultant
>
>
>
>
> P: 1300 088 400
>
>
>
>
> DISCLAIMER. Before opening any attachments, check them for viruses and
> defects. This email and its attachments may contain confidential
> information. If you are not the intended recipient, please do not
> read, distribute or copy this email or its attachments but notify
> sender and delete it. Any views expressed in this email are those of
> the individual sender
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To
> subscribe, unsubscribe, or change list options,
> visit: [3]https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> [4]https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
> related questions.
>
>
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: [5]https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
[6]https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
Message protected by MailGuard: e-mail anti-virus, anti-spam and content
filtering.
[7]https://www.mailguard.com.au

References

Visible links
1. https://www.oneteamit.com.au/
2. http://www.linkedin.com/in/josephgwood
3. https://lists.midrange.com/mailman/listinfo/midrange-l
4. https://archive.midrange.com/midrange-l.
5. https://lists.midrange.com/mailman/listinfo/midrange-l
6. https://archive.midrange.com/midrange-l.
7. https://www.mailguard.com.au/