Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

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

Code Block
/* 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