[progress Communities] [progress Openedge Abl] Forum Post: Re: Buffer-copy With Handle

  • Thread starter Thread starter atuldalvi123
  • Start date Start date
Status
Not open for further replies.
A

atuldalvi123

Guest
Thanks Guyz I am having below code ASSIGN cString = "FOR EACH " + ipcTable + " NO-LOCK" cWhereCls = "WHERE GIPR-ID = " + ipioldGIPRID cString = cString + " " + cWhereCls . CREATE BUFFER hbuffer FOR TABLE ipcTable. CREATE BUFFER hbuffer1 FOR TABLE ipcTable. CREATE QUERY hquery. hquery:SET-BUFFERS(hBuffer). hquery:QUERY-PREPARE(cString). hquery:QUERY-OPEN. hquery:GET-FIRST. REPEAT: IF hquery:QUERY-OFF-END THEN LEAVE. DO TRANSACTION: hquery:GET-CURRENT(EXCLUSIVE-LOCK). hBuffer1:BUFFER-CREATE(). hBuffer1:BUFFER-COPY(hBuffer, "GIPR-ID"). ASSIGN hBuffer1:BUFFER-FIELD("GIPR-ID"):BUFFER-VALUE = INT(ipinewGIPRID). hBuffer:BUFFER-DELETE(). hBuffer:BUFFER-RELEASE(). END. hquery:GET-NEXT. END. before creating record i want to check if the record is already exist to avoid index issue . How do i achieve this ?

Continue reading...
 
Status
Not open for further replies.
Back
Top