SET Method [Revelation On-Line Wiki]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== SET Method ======


 
==== Description ====
 
Method for writing the entry in SYSREPOS (the master repository table) for the entity.
 
==== Syntax ====
 
//object// = **Repository**('SET', //entID, param1//)
 
==== Parameters ====
 
The SET method has the following parameters.

^Parameter^Description^
|//Message//|'SET'|
|//entID//|//entID// 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.|
|param1|The contents of the row's repository entry.||

 
==== Returns ====
 
null
**Note:**  Always call the [[get_status|Get_Status function]] after calling Repository.
 
==== See Also ====
 
[[repository|Repository() function]], [[get|GET Method]], [[get_repos_entities|Get_Repos_Entities()]]. Also, Stored Procedures chapter in the //Guide to Application Development//.
 
==== Example ====
 
<code>
/* Change the author of the CENTERWINDOW stored procedure executable by reading the repository record and setting the

   appropriate field. */

Declare Function Repository, Get_Status

$insert sysrepos_col_equates

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

*  result now contains the entry in SYSREPOS corresponding to the CENTERWINDOW stored procedure

If Get_Status(ErrCode) then

  call msg(@window, 'Error Message returned: ' : ErrCode)

end

 

result<SYSREP_AUTHOR$> = 'Ira Krakow'

 

result = Repository("SET", entid, result)
/*  respository row is written with changed author.  Result is null.  Need to check for errors. */

If Get_Status(ErrCode) then

  call msg(@window, 'Error Message returned: ' : ErrCode)

end
</code>