omron — Example

V+ AceServer Module Documentation AUTO $string.val AUTO LOC trans.val ; Save the original position of the pointer saved.ptr = ptr ; Write some data CALL sv.write_bool(TRUE, handle, ptr) CALL sv.write_byte(8, handle, ptr) CALL sv.write_double(100.1, handle, ptr) CALL sv.write_short(2, handle, ptr) CALL sv.write_single(121.2, handle, ptr) CALL sv.write_string("Text", handle, ptr) CALL sv.write_trans(NULL, handle, ptr) ; Read the data that was written CALL sv.read_bool(handle, saved.ptr, bool.val) CALL sv.read_byte(handle, saved.ptr, byte.val) CALL sv.read_double(handle, saved.ptr, double.val) CALL sv.read_short(handle, saved.ptr, short.val) CALL sv.read_single(handle, saved.ptr, single.val) CALL sv.read_string(handle, saved.ptr, $string.val) CALL sv.read_trans(handle, saved.ptr, trans.val) .END ACE Reference Guide, 18317-000 Rev A Page 744