Description
Method for setting the entity's shareable flag in the repository.
Syntax
retval = Repository("SETSHAREABLE" , entID, param1)
Parameters
The 'SETSHAREABLE method has the following parameters.
| Parameter | Description |
|---|---|
| Message | "SETSHAREABLE" |
| entID | entID consists of four elements, which are '*' (asterisk) delimited: |
| |
| 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. | |
| param1 | Shareable flag to set. 0 = shareable flag disabled; 1 = shareable flag enabled. |
Returns
Null, regardless of whether the function succeeded.
Note: Always call the Get_Status function after calling Repository.
See also
Repository() function, GETSHAREABLE Method, Get_Repos_Entities().
Example
/* Set the shareable flag for the for the BTREEREADTEST window executable */
Declare Function Repository, Get_Status
AppID = @APPID<1> ;* current application
TypeID = "OIWINEXE" ;* OpenInsight window executable
ClassID = "" ;* Not Applicable
Stored_Proc_Name = 'BTREEREADTEST'
flag = '1'
entid = AppID : '*' : TypeID : '*' : ClassID : '*' : Stored_Proc_Name
result = Repository("SETSHAREABLE", entid, flag)
/* Even if the publishable flag is set, result is null, so need to check for errors */
If Get_Status(ErrCode) then
call msg(@window, 'SETSHAREABLE method error ' : ErrCode : '.')
return 1
end
