define variable m1 as memptr.
define variable m2 as memptr.
define variable cc1 as character no-undo.
cc1 = 'string1'.
define variable cc2 as character no-undo.
cc2 = 'string2'.
define variable l as integer no-undo.
l = length(cc1) + 1.
set-size(m1) = length(cc1) + 1.
set-size(m2) = length(cc2) + 1.
put-string(m1,1) = cc1.
put-string(m2,1) = cc2.
define variable m3 as memptr.
set-size(m3) = get-size(m1) + get-size(m2).
define variable idx as integer no-undo.
do idx = 1 to get-size(m1):
put-byte(m3,idx) = get-byte(m1,idx).
end.
do idx = 1 to get-size(m2):
put-byte(m3,idx + l) = get-byte(m2,idx).
end.
cc1 = ''.
cc2 = ''.
cc1 = get-string(m3,1,l).
cc2 = get-string(m3,l + 1).
message cc1 skip cc2 view-as alert-box.
set-size(m3) = 0.
set-size(m1) = 0.
set-size(m2) = 0.