Now, define a record that sends a request to the detabase row. To define a database record, do the following:
initializeAfterLoad "Initialize the fixed size for this OSPtr subclass." self fixedSize: 2018
On the Action tab, add the initializeWith: action. Do not specify any value for Action selector.
hostVar "Return the value of field hostVar." ^self int16At: 16
hostVar: obj "Set the value of field hostVar." self int16At: 16 put: obj abtAsNumber abrAsCLangShort
password
"Return the value of field password."
^self abtCharArrayAt: 8
length: 8
password: obj
"Set the value of field password."
self abtCharArrayAt: 8
put: obj
length: 8
pad: 0
results
"Return the value of field results."
^self abtCharArrayAt: 18
length: 2000
results: obj "Set the value of field results." self abtCharArrayAt: 18 put: obj length: 2000 pad: 0
userid
"Return the value of field userid."
^self abtCharArrayAt: 0
length: 8
userid: obj
"Set the value of field userid."
self abtCharArrayAt: 0
put: obj
length: 8
pad: 0
data ^(self memcpyFrom: 0 to: self class fixedSize - 1)
initializeWith: aString
aString contents memcpyFrom: 0
to: (aString size min: self class fixedSize) -1 into: self startingAt: 0.
size ^self class fixedSize