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.)
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
$!
