!PACKAGE()

The !PACKAGE() subroutine allows an application installer to add or remove a package licence.

Format

CALL !PACKAGE(result, name, auth.string)

where

The !PACKAGE() subroutine maintains the registered package licence data.

The subroutine returns result as zero if successful or an error code if it fails.

The subroutine can also be declared as a function:

DEFFUN PACKAGE(NAME, AUTH.STRING) CALLING "!PACKAGE"

and then used as

ERR = PACKAGE(NAME, AUTH.STRING)

Example

CALL !PACKAGE(ERR, "MYPKG", "WHDY-BJGD-LNDD-PPQH")

IF ERR THEN DISPLAY 'Error ' : ERR : ' licensing package'

See also:

Package licensing, ENTER.PACKAGE(), EXIT.PACKAGE(), PACKAGE.LICENCE, !PACKAGE()