Versions Compared

Key

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

...

Repository() functionGet_Repos_Entities().

Example

 
Code Block
/* Read the source code of the CENTERWINDOW stored procedure into the variable called result */
Declare Function Repository, Get_Status
AppID = @APPID<1>  ;* current application
TypeID = "STPROC"  ;* OpenInsight stored procedures
ClassID = ""  ;* Not Applicable
Stored_Proc_Name = 'CENTERWINDOW'
entid = AppID : '*' : TypeID : '*' : ClassID : '*' : Stored_Proc_Name
result = Repository('ACCESS', entid)
*  result now contains the source code to CENTERWINDOW
 
If Get_Status(ErrCode) then
  call msg(@window, 'Error Message returned: ' : ErrCode)
end