C call to retrieve transaction variant name at runtime

report zzdifran_variant .
data: tcode_variant like shdfv-tcvariant,
tcode_variant_cliidep.
parameters: test.
*New field: transaction variant
call 'DY_GET_TX_VARIANT'
id 'VARIANT' field tcode_variant
id 'CLIENT_INDEPENDENT' field tcode_variant_cliidep.

write: / 'I found txn variant:', tcode_variant.