VSI OpenVMS Forum

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