OpenVMS-related news and updates about the current state of system development.
-
Topic author
sms
- Master
- Posts: 373
- Joined: Fri Aug 21, 2020 5:18 pm
- Reputation: 0
-
Status:
Offline
Post
by sms » Sun Mar 03, 2024 1:45 am
Code: Select all
I've started getting my daily e-mail messages:
From: V87::SYSTEM
To: ITS::SMS
CC:
Subj: * LICENSE/PAK EXPIRATION WARNING *
Licenses/PAKs have terminated or will terminate in 30 days.
For more information: SHOW LICENSE
--------
According to the Service Platform:
x86 community licenses good through April 1, 2024
A timely update would be gratefully received. (By more than me, I'd
guess.)
-
pocketprobe
- Valued Contributor
- Posts: 76
- Joined: Sat Apr 15, 2023 11:53 pm
- Reputation: 0
-
Status:
Offline
Post
by pocketprobe » Sun Mar 03, 2024 10:47 am
Would you be able to share said script?
And I do concur about the PAK refresh.
-
martin
- Valued Contributor
- Posts: 73
- Joined: Tue Mar 22, 2022 6:47 pm
- Reputation: 0
- Location: England
-
Status:
Offline
Post
by martin » Sun Mar 03, 2024 12:38 pm
$ SHOW LICENCE gives you the information and the warning.
Martin
- Retired System Manager: VMS/UNIX/UNICOS/Linux.
- Started on a VAX 11/782 in 1984 with VMS 3.6.
-
Topic author
sms
- Master
- Posts: 373
- Joined: Fri Aug 21, 2020 5:18 pm
- Reputation: 0
-
Status:
Offline
Post
by sms » Sun Mar 03, 2024 3:52 pm
Code: Select all
> Would you be able to share said script?
Sure. It's not much. The script (SYS$MANAGER:DAILY.COM) for my
daily self-resubmitting batch job includes the following:
$!
$! Check the license PAKs.
$!
$ CPR = "SYS$MANAGER:LICENSE_CHECK.COM"
$ IF (F$SEARCH( CPR) .NES. "")
$ THEN
$!
$ @ 'CPR'
$!
$ ELSE
$!
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT " Missing LICENSE_CHECK procedure."
$ WRITE SYS$OUTPUT ""
$!
$ ENDIF
$!
This assumes that someone would check DAILY.LOG before it's too late.
It might be safer for DAILY.COM to send a mail message if the
LICENSE_CHECK script is missing.
ITS $ type SYS$MANAGER:LICENSE_CHECK.COM
$! 16 March 2016. SMS.
$!
$! License/PAK expiration check.
$!
$ days = 30
$ user = "sms"
$!
$ if p1 .nes. ""
$ then
$ days = p1
$ endif
$!
$ define /user_mode sys$error nl:
$ define /user_mode sys$output nl:
$ show license /warning_interval = 'days'
$!
$ if ($STATUS .ne. %X10000001)
$ then
$!
$ pipe ( -
write sys$output -
" Licenses/PAKs have terminated or will terminate in ''days' days." ; -
write sys$output "For more information: SHOW LICENSE" -
) | -
mail /subject = " * LICENSE/PAK EXPIRATION WARNING *" -
sys$input 'user'
$!
$ endif
$!
-
mister.moderator
- Site Admin
-
Active Contributor
- Posts: 31
- Joined: Thu Apr 27, 2023 11:14 am
- Reputation: 0
-
Status:
Offline
Post
by mister.moderator » Mon Mar 04, 2024 3:14 am
Noted. I will check with the Community Manager about when the update to the x86 PAK on the Portal is coming.
VMS Forum Moderator
VMS Forum Administrator
-
soutbarr
- Active Contributor
- Posts: 32
- Joined: Wed Mar 13, 2024 4:45 pm
- Reputation: 0
-
Status:
Offline
Post
by soutbarr » Wed Mar 20, 2024 7:39 pm
News? It's getting more pressing.
-
mister.moderator
- Site Admin
-
Active Contributor
- Posts: 31
- Joined: Thu Apr 27, 2023 11:14 am
- Reputation: 0
-
Status:
Offline
Post
by mister.moderator » Thu Mar 21, 2024 12:21 pm
We will have a new PAK soon for x86 community users.
VMS Forum Moderator
VMS Forum Administrator