how to update a buffer

[shafee212]

can any one tell me how can i update a buffer

buffer is used to store data for entire table.

i have attached the code.


-------------------------------------------

m_bufhandle = BUFFER pt_mstr:HANDLE.
DO TRANSACTION :
FOR EACH tt_fields NO-LOCK :
DO i = 1 TO m_bufhandle:NUM-FIELDS:
IF LOOKUP( m_bufhandle:BUFFER-FIELD(i):NAME, tt_fields.tt_mfieldname ) > 0 then
DO :

IF tt_value <> "" THEN
m_bufhandle:buffer-field(i):buffer-value() = tt_value.
END .
END .
END .

OUTPUT TO VALUE("trial.csv").
EXPORT DELIMITER "," m_filedsreqd.

FOR EACH pt_mstr NO-LOCK:
DO i = 1 TO m_bufhandle:NUM-FIELDS:
IF LOOKUP( m_bufhandle:BUFFER-FIELD(i):NAME, m_filedsreqd ) > 0 then
PUT UNFORMATTED m_bufhandle:buffer-field(i):buffer-value() ",".
END.
PUT SKIP .
END .
OUTPUT CLOSE.

END .
END .


END .

 

[sphipp]

Use BUFFER-VALUE to assign values to a buffer-field. In your example you have:

m_bufhandle:buffer-field(i):buffer-value() = tt_value

which assigns tt-value to the current buffer-field.

 

[shafee212]

i am doing this but getting the error message that "cannot update the fields of pt_mstr ""..

 

[RKR]

You have to read the table with an exclusive-lock. The error suggests that it has been read with no-lock.