guides:programming:programmers_reference_manual:setaccesspermit

SETACCESSPERMIT Method

Method for updating the list of users who have access (i.e. reading) permission for this entity.

Note: SETACCESSPERMIT cannot be used against columns or tables.

retval = Repository('SETACCESSPERMIT', entID, param1)

The SETACCESSPERMIT method has the following parameters.

ParameterDescription
Message'SETACCESSPERMIT'
entIDentID consists of four elements, which are '*' (asterisk) delimited:


* Application name
* Type ID
* Class ID
* Entity name

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.
param1field mark delimited list of users to be granted access permission to this entity.

Null in all cases.

Note: Always call the Get_Status function after calling Repository.

Repository() function, GETACCESSPERMIT Method, Get_Repos_Entities(). Also, Stored Procedures chapter in the Guide to Application Development.

/* Add the user 'EDWARD' to the list of users with access permission for the CENTERWINDOW stored procedure */

Declare Function Get_Repos_Entities, Repository, Get_Status

declare subroutine fsmsg

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("GETACCESSPERMIT", entid)

/*  result now contains a field mark delimited list of users who have access permission to CENTERWINDOW in Field 1. */

If Get_Status(ErrCode) then

  call msg(@window, 'Error code ' : ErrCode : ' returned from Repository.')

  return 1

end

 

locate 'EDWARD' in result using @fm setting loc else

  result = result : @fm : 'EDWARD'

  retval = Repository("SETACCESSPERMIT", entid, result)

  /*  retval is null.  Use Get_Status() to determine if an error occurred. */

  If Get_Status(ErrCode) then

    call msg(@window, 'Error code ' : ErrCode : ' returned from Repository.')

    return 1

  end

end
  • guides/programming/programmers_reference_manual/setaccesspermit.txt
  • Last modified: 2024/06/19 20:20
  • by 127.0.0.1