Page History
...
RTI_WRITERELEASE returns a flag indicating success (STATUS_WRITE_OK$) or error (FS_WRITE_ERR$). These flags are defined in the RTI_READU_EQUATES insert (which includes the actual FSERRORS_100 insert).
See also
Example
Code Block |
---|
SUBROUTINE WRITERELEASE_EXAMPLE(VOID) $insert RTI_READU_EQUATES RSLT = RTI_READU(“BOOKS”, “100”, BOOKREC) BEGIN CASE CASE RSLT = STATUS_READ_OK$ * Record has been read successfully – now change it BOOKREC<20> = DATE() WRSLT = RTI_WRITERELEASE(“BOOKS”, 100, BOOKREC) * Record has been updated and the lock has been released CASE RSLT = FS_REC_DNE$ * No such record found CASE RSLT = FS_SYS_LOCK_ERR$ * Record locked CASE RSLT = FS_READ_ERR$ * Other (fatal) error END CASE RETURN 0 |