extLicenseCheck (Function)

This function will check if a license is present.

Input:

id : STRING

The license id to check for.

The license id is a text of up to 50 characters, which identifies the license.

Returns: INT

Declaration:

FUNCTION extLicenseCheck : INT;
VAR_INPUT
  id : STRING;
END_VAR;

Example:

INCLUDE rtcu.inc
 
FUNCTION ShowLicense;
VAR_INPUT
  id       : STRING;
END_VAR;
VAR
  text     : STRING;
  rc       : INT;
END_VAR;
 
  // Check license
  rc := extLicenseCheck(id := id);
 
  // Build
  CASE rc OF
    1: str := "Present";
    0: str := "Not available";
    -1: str := "Not present";
    -3: str := "Generic error";
  ELSE
    str := strFormat(format := "Unknown \1", v1 := rc);
  END_CASE;
 
  DebugMsg(message := "+------------------------------+");
  DebugMsg(message := "license        : " + str);
 
END_FUNCTION;
 
PROGRAM test;
 
 
  // Show if the license is present
  ShowLicense(id := "example.license");
 
 
END_PROGRAM;