This statement takes a key buffer supplied by the KeyBufferItem parameter and breaks it down into individual segments, in KeyItem1 to KeyItem4. A key buffer is returned by the MakeKey function.

The system workarea SysError is set to a non-zero value if an error occurs, otherwise zero.

This example makes a key buffer from a date and a string and passes it to FindRecord. If the record is not found the buffer is broken into strings, which are used to print a message.

string KeyBuffer, s1, s2
date dDespatch

dDespatch = "13-10-95"

KeyBuffer = MakeKey (dDespatch, "Stores")
FindRecord EQ, KeyBuffer

if syserror then

KeyValues KeyBuffer, s1, s2
Print "record", s1, s2, "not found"

end if