SET Method

Method for writing the entry in SYSREPOS (the master repository table) for the entity.

object = Repository('SET', entID, param1)

The SET method has the following parameters.

ParameterDescription
Message'SET'
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.
param1The contents of the row's repository entry.

null Note: Always call the Get_Status function after calling Repository.

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

/* 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
  • guides/programming/programmers_reference_manual/set.txt
  • Last modified: 2024/06/19 20:20
  • by 127.0.0.1