Sample code needed for Substitution user exit ZGGBS000

Hi,

Please help me figure out how I can copy data from field BSEG-XREF1 into the XREF1 field of a new document when clearing it.

thanks

Brian