!PACKAGE()

!PACKAGE()

Top  Previous  Next

 

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

 

 

Format

 

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

 

where

 

resultis the variable to receive status information.

 

nameidentifies the package.

 

auth.stringis the licence authorisation code.

 

 

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()