Description
save UI state
Parameters
imState | input | memptr | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/business.p)
empty temp-table tUIstate.
viLen = get-size(imState).
if viLen > 0
then do while true:
viSeq = viSeq + 1.
create tUIstate.
assign tUIstate.tiSegmentSeq = viSeq
tUIstate.tiSegmentLength = minimum (viLen - viPos + 1, 8000)
tUIstate.tcSegmentValue = get-string(imState, viPos, tUIstate.tiSegmentLength).
if viLen - viPos < 8000
then leave.
assign viPos = viPos + 8000.
end.