-+-+-+-+-+-+-+-+ START OF PART 5 -+-+-+-+-+-+-+-+
X  rms_get := $get(rab);                     `7B get the record `7D
Xend;
X
Xfunction rms_update(var rab : rab$type) : unsigned;
Xbegin
X  rms_update := $update(rab);             `7B update the locked record `7D
Xend;
X
Xfunction rms_delete(var rab : rab$type) : unsigned;
Xbegin
X  rms_delete := $delete(rab);             `7B delete the locked record `7D
Xend;
$ CALL UNPACK RMS.INC;1 454190815
$ v=f$verify(v)
$ EXIT