var longchar lcjson.

​

function invertFields returns character (

    i_hb as handle,

    i_crequired as char  

):

​

    var char cexcept,cfield.

    var int ic. 

​

    do ic = 1 to i_hb:num-fields:

        cfield = i_hb:buffer-field( ic ):name.

        if lookup( cfield, i_crequired ) = 0 then

            cexcept = cexcept + ',' + cfield.

​

    end.

​

    return substring( cexcept, 2 ).

​

end function.

​

create temp-table ht.

ht:add-fields-from(

    buffer customer:handle,

    invertFields( buffer customer:handle, "CustNum,Name" )

).

ht:temp-table-prepare( 'tt' ).

hb = ht:default-buffer-handle.

​

hb:buffer-create().

assign

    hb::CustNum = 1

    hb::Name = 'test'

    .

hb:write-json( 'longchar', lcjson, true ).

message string( lcjson ).

​