Description

Method for adding module identifiers to repository entities.

Syntax

retval = Repository("ADDMODULE", entID, module_name)

Parameters

The ADDMODULE method has the following parameters.

ParameterDescription
MessageADDMODULE
entIDentID consists of four elements, which are '*' (asterisk) delimited:
 
  • Application name
  • Type ID
  • Class ID
  • Entity name
module_nameThe name of the module to add to the entity's SYSREPOS record.

Returns

Null.

Remarks

The module name is field 8 within the SYSREPOS record for the Entity. The module name allows for the creation of named modules within OpenInsight. The RDK tool has an option within the Repository View creation to create RDKs based on Modules. The RDK tool will then build deployments based on the module name.

This is available in OpenInsight 9.2 and above. In 9.2 it is a programmatic function only. In 9.2.1, the Module Manager was introduced to create and organize Modules.

Note: Always call the Get_Status function after calling Repository.

See also

Repository() function,SETMODULE method, REMOVEMODULE method, CLEARMODULE method, GETMODULE method

Example

* Add a Module Name to an Entity
Declare Function Repository
* Create an array of entities to use Module methods against
reposStack  = ""
reposStack := @appid<1> : "*OIWIN**CUSTOMERS" : @fm
reposStack := @appid<1> : "*OIWINEXE**CUSTOMERS" : @fm
reposStack := @appid<1> : "*POPUP**CUSTOMERS"
addThisModuleName = "CUSTOMER_INVOICE"
* Add a Module name to the entities
rPos = 0
rFlag = ""
module = ""
Loop
   Remove thisEntity From reposStack at rPos setting rFlag
      var = Repository( "ADDMODULE", thisEntity, addThisModuleName )
      If Get_Status(ErrCode) then
         call msg(@window, 'Error Message returned: ' : ErrCode)
      end
   While rFlag
Repeat
  • No labels