Versions Compared

Key

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

...

Null

Note: Always call the Get_Status function after calling Repository.

See also

Repository() functionGETUPDATEPERMIT MethodGet_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