FWD » Core Development » Runtime Infrastructure

{g-vars.i &vsh="shared"}

def temp-table bigtable no-undo

   field big-txt as clob

   field big-bin as blob.

// create database record

def var ptr as memptr.

// clob tests

create bigtable.

// file to database clob

copy-lob from file "/tmp/clob_input.txt" to bigtable.big-txt.

// database to file

copy-lob from bigtable.big-txt to FILE "/tmp/clob_output-1.txt".

// clob database to memptr

copy-lob from bigtable.big-txt to ptr.

// memptr to database clob - invalid test case - throws recordOrThrowError(12008)

//copy-lob from ptr to something.big-txt.

set-size(ptr) = 0.

// file to memptr

copy-lob from file "/tmp/clob_input.txt" to ptr.

// clean-up

set-size(ptr) = 0.

delete bigtable.

// blob tests

create bigtable.

// file to database clob

copy-lob from file "/tmp/blob_input.bin" to bigtable.big-bin.

// database to file blob

copy-lob from bigtable.big-bin to FILE "/tmp/blob_output-1.bin".

// blob database to memptr

copy-lob from bigtable.big-bin to ptr.

PUT-BYTE(ptr,1) = 65.

// memptr to database blob

copy-lob from ptr to bigtable.big-bin.

set-size(ptr) = 0.

// blob file to memptr

copy-lob from file "/tmp/blob_input.bin" to ptr.

// memptr to blob file

copy-lob from ptr to file "/tmp/blob_output-2.bin".

set-size(ptr) = 0.

message "Lob test done".

readkey PAUSE 60.

publish "pop-program".

leave.

end.