project BLF > class Business Component > method SaveUIstate

Description

save UI state


Parameters


imStateinputmemptr
oiReturnStatusoutputintegerReturn 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.