Re: What was the last volume used on a save

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Y'all

I think someone else addressed this, but a repeat isn't bad - this looks 
like newsgroup formatting, where text was often only plain, no 
formatting. So bold text was surrounded by asterisks, underline by 
underscores, and italic by slashes. There was a poster to these groups, 
C.R. Pence, who used these in his posts all the time.

My signature below is in bold with HTML but might show up with asterisks 
- this might be something in the tools David uses for these lists.

*Regards*

*Vern Hamberg*

IBM Champion 2025 <cid:part1.aTkRXg1T.ueQRkgDA@centurylink.net> CAAC 
(COMMON Americas Advisory Council) IBM Influencer 2023

On 3/21/2025 12:05 AM, Evan Harris wrote:
> Hi Dan
>
> II am  not at work now)but I have copied the text from the email into
> notepad and removed the asterisks - the code looks like what I originally
> had but no absolute guarantees:
>
> SELECT
>      A.FROM_JOB,
>      A.FROM_JOB_USER,
>      A.FROM_JOB_NAME,
>      A.FROM_JOB_NUMBER,
>      REGEXP_SUBSTR(MESSAGE_SECOND_LEVEL_TEXT, ( '(saved on
> volumes\s+)(.+?)(\s)'), 1, 1,'',2 ) as "Volume",
>      DATE(A.MESSAGE_TIMESTAMP) as START_DATE,
>      TIME(A.MESSAGE_TIMESTAMP) as START_TIME FROM
> TABLE(QSYS2.HISTORY_LOG_INFO( START_TIME => (CURRENT_TIMESTAMP -
> 24 hours ) )) A
> WHERE A.FROM_JOB_NAME LIKE 'BACKUPJOB'
>      AND A.MESSAGE_ID = 'CPC3701'
> ORDER BY A.MESSAGE_TIMESTAMP DESC
> FETCH FIRST 1 ROW ONLY;
>
>
>
>
>
>
> On Fri, Mar 21, 2025 at 4:48 PM Dan Bale<dan.bale@xxxxxxxxxxxxxxxxxxxxx>
> wrote:
>
> > Hi Evan,
> >
> > Somewhere between your actual source code and what you pasted below got
> > asterisks "inserted" in your email.  Out of curiosity, are you copying the
> > source code from RSS and pasting it in the email?  RSS does a lot of
> > colorizing of the code, and I wonder if that's where all the asterisks are
> > coming from.  Would you please try copying your original source code and
> > pasting into Notepad, then copying from Notepad to email?
> >
> > - Dan Bale
> >
> > -----Original Message-----
> > From: MIDRANGE-L<midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
> > Evan Harris
> > Sent: Thursday, March 20, 2025 5:32 PM
> > To: Midrange Systems Technical Discussion<midrange-l@lists.midrangecom>
> > Subject: Re: What was the last volume used on a save
> >
> > Hi Don
> >
> > I had a crack at this out of interest this morning using the
> > HISTROY_LOG_INFO SQL service. It might not be quite what you want but
> > perhaps it provides a starting point or alternative approach.
> >
> > SELECT
> >      A.FROM_JOB,
> >      A.FROM_JOB_USER,
> >      A.FROM_JOB_NAME,
> >      A.FROM_JOB_NUMBER,
> >      *REGEXP_SUBSTR*(MESSAGE_SECOND_LEVEL_TEXT, ( '(saved on
> > volumes\s+)(.+?)(\s)'), *1*, *1*,'',*2* ) as "Volume",
> >      *DATE*(A.MESSAGE_TIMESTAMP) as START_DATE,
> >      *TIME*(A.MESSAGE_TIMESTAMP) as START_TIME FROM
> > TABLE(QSYS2.HISTORY_LOG_INFO( START_TIME *=>* (*CURRENT_TIMESTAMP* -
> > *24* hours ) )) A
> > WHERE A.FROM_JOB_NAME LIKE 'BACKUPJOB'
> >      AND A.MESSAGE_ID = 'CPC3701'
> > ORDER BY A.MESSAGE_TIMESTAMP DESC
> > FETCH FIRST *1* ROW ONLY;
> >
> > Change the job name to whatever your backup job is called.
> > The fields are mostly to return something, except for the REGEXP_SUBSTR
> > which is extracting the volume ID from the SECOND_LEVEL_TEXT.
> > You might need to tweak the start time and how many hours the query looks
> > back from current timestamp.
> > I sorted by timestamp in descending order and fetched the first row only
> > so as to get the last record (that was my thinking anyway) - there might be
> > a better way to do this.
> > I have used similar queries with the db2 command in strqsh to return
> > specific values into (for example) a specific data area, so I will leave
> > that part as an exercise for you.
> >
> > *** CONFIDENTIALITY NOTICE: The information contained in this
> > communication may be confidential, and is intended only for the use of the
> > recipients named above. If the reader of this message is not the intended
> > recipient, you are hereby notified that any dissemination, distribution, or
> > copying of this communication, or any of its contents, is strictly
> > prohibited. If you have received this communication in error, please return
> > it to the sender immediately and delete the original message and any copy
> > of it from your computer system. If you have any questions concerning this
> > message, please contact the 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:https://lists.midrange.com/mailman/listinfo/midrange-l
> > or email:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > athttps://archive.midrange.com/midrange-l.
> >
> > Please contactsupport@xxxxxxxxxxxxxxxxxxxx for any subscription related
> > questions.