Page History
...
null = Compilation failed. Use Get_Status() to test for error return.
...
Note: Stored procedures can be recompiled using the Recompile_Proc subroutine.
Note: Always call the Get_Status function after calling Repository().
See also
Repository() function, Recompile_Proc, Repository("COMPILE"), Get_Repos_Entities().
Example
| Code Block |
|---|
/* Compile the window INV_ENTRY, as well as event code in the window */
Declare Function Repository, Get_Status
AppID = @APPID<1> ;* current application
TypeID = "OIWIN" ;* OpenInsight windows
ClassID = "" ;* Not Applicable
Win_Name = 'INV_ENTRY'
recompile_if_unchanged = ''
cleanup_orphan_entities = ''
creserve_linemarks = ''
entid = AppID : '*' : TypeID : '*' : ClassID : '*' : Win_Name
result = Repository("TCOMPILE", entid, recompile_if_unchanged, cleanup_orphan_entities, preserve_linemarks)
* test result
begin case
case result = ''
If Get_Status(ErrCode) then
call msg(@window, 'Error Message returned: ' : ErrCode)
end
case result = 1
call msg(@window, 'Tree Compilation not needed')
case result<1> = 2
call msg(@window, 'Tree compilation successful, compiled at ' : result<2>)
end case |
