Versions Compared

Key

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

...

Null in all cases.

Note: Always call the Get_Status function after calling Repository.

See also

Repository() functionGETSUB MethodGet_Repos_Entities().

Example

Code Block
/* Change the list of "sub-entities" for the CENTERWINDOW stored procedure executable, overwriting the existing list. */
$insert logical
Declare Function Repository, Get_Status
AppID = @APPID<1>  ;* current application
TypeID = "STPROCEXE"  ;* OpenInsight stored procedure executables
ClassID = ""  ;* Not Applicable
Stored_Proc_Name = 'CENTERWINDOW'
Sub_Entities = @APPID<1>:"*STPROC**CENTERWINDOW" : @fm : @APPID<1> :  "*OIWIN**CENTERWINDOW"
overwrite_flag = TRUE$
entid = AppID : '*' : TypeID : '*' : ClassID : '*' : Stored_Proc_Name
 
result = Repository("SETSUB", entid, Sub_Entities, overwrite_flag)
/*  if successful, the list of sub-entities is the stored procedure (STPROC) and window (OIWIN) called "CENTERWINDOW". */
If Get_Status(ErrCode) then
  call msg(@window, 'Error Message returned: ' : ErrCode)
end