Page History
...
Null
Note: Always call the Get_Status function after calling Repository.
See also
Repository() function, GETUPDATEPERMIT Method, Get_Repos_Entities().
Example
Code Block |
---|
/* Add the user 'EDWARD' to the list of users with update permission for the CENTERWINDOW stored procedure executable */ Declare Function Get_Repos_Entities, Repository, Get_Status declare subroutine fsmsg AppID = @APPID<1> ;* current application TypeID = "STPROCEXE" ;* OpenInsight stored procedure executables ClassID = "" ;* Not Applicable Stored_Proc_Name = 'CENTERWINDOW' entid = AppID : '*' : TypeID : '*' : ClassID : '*' : Stored_Proc_Name result = Repository("GETUPDATEPERMIT", entid) /* result now contains a field mark delimited list of users who have udpate permission to CENTERWINDOW in Field 1. */ If Get_Status(ErrCode) then call msg(@window, 'Error in GETUPDATEPERMIT method call: ': ErrCode : '.') return 1 end locate 'EDWARD' in result using @fm setting loc else result = result : @fm : 'EDWARD' retval = Repository("SETUPDATEPERMIT", entid, result) /* retval is null. Use Get_Status() to determine if an error occurred. */ If Get_Status(ErrCode) then call msg(@window, 'Error in SETUPDATEPERMIT method call: ': ErrCode : '.') return 1 end end |