Page History
...
Repository() function, WRITE Method, Get_Repos_Entities().
Example
| Code Block |
|---|
/* Write a message called SAMPLE_MESSAGE to the repository, making it SHAREABLE and PUBLISHABLE */
declare function repository, get_status
AppID = @APPID<1> ;* current application
TypeID = "MSG" ;* OpenInsight message
ClassID = "" ;* Not Applicable
Message_Name = 'SAMPLE_MESSAGE'
entid = AppID : '*' : TypeID : '*' : ClassID : '*' : Message_Name
MsgRec = 'This is a test message'
/* MsgRec contains the text of the message. See Msg() for complete message row to write */
* write the record
retval = Repository("NEW", EntID, "", 1, 1, "", "", "", "", "", "MSG", MsgRec)
/* check if write completed correctly */
If Get_Status(ErrCode) then
call msg(@window, 'Error Message returned: ' : ErrCode)
end |
