<snip>
>

>lcId = SYS(2015)+TRANS(Application.ThreadId)
>

>
>Unfortunately this also changes the size of the id and because the value isn't a fixed length it's harder to optmize the id. ThreadIds can be up to 5 digits wide.
>

You can easily make it a fixed length.

lcId = SYS(2015) + TRANSFORM(Application.ThreadId, "@L 99999")