Description

Method for resetting the evaluation and/or compilation flags for a repository entity.

Syntax

retval = Repository("CLEARFLAG"entID, type, tree)

Parameters

The CLEARFLAG message has the following parameters

ParameterDescription
MessageCLEARFLAG
entIDentID consists of four elements, which are '*' (asterisk) delimited:
 
  • Application name
  • Type ID
  • Class ID
  • Entity name
 Methods are executed as follows: if class specific, execute at the class level; if type specific, execute at the type level; otherwise, execute the method.
type
TypeValue
0Clear evaluation and compilation flag
1Clear evalution flag
2Clear compilation flag
treea boolean value indicating whether or not the corresponding flags in the components using this component should be cleared.

Returns

retval - null. Use Get_Status() to test for error return.

Note: Always call the Get_Status function after calling Repository().

See also

Repository() functionGet_Repos_Entities().

Example

/* Clear the compilation and evaluation flags in the CENTERWINDOW stored procedure */
Declare Function Repository, Get_Status
AppID = @APPID<1>  ;* current application
TypeID = "STPROC"  ;* OpenInsight stored procedures
ClassID = ""  ;* Not Applicable
Stored_Proc_Name = 'CENTERWINDOW'
Type = 0   ;* clear both evaluation and compilation flags
Tree = ''  ;* do not clear flags of entities using CENTERWINDOW
entid = AppID : '*' : TypeID : '*' : ClassID : '*' : Stored_Proc_Name
result = Repository("CLEARFLAG", entid, type, tree)
 
If Get_Status(ErrCode) then
  call msg(@window, 'Error Message returned: ' : ErrCode)
end
  • No labels