MODULE get14_lifnr_name INPUT.
SELECT SINGLE butxt
FROM t001
INTO ztwms14_lifnr-butxt
WHERE bukrs = ztwms14_lifnr-bukrs.
SELECT SINGLE btext
FROM t156t
INTO ztwms14_lifnr-btext
WHERE bwart = ztwms14_lifnr-bwart
AND spras = sy-langu
AND sobkz = ''
AND kzbew = 'B'
AND kzzug = ''
AND kzvbr = ''..
ztwms14_lifnr-zdate = sy-datum.
ztwms14_lifnr-ztime = sy-uzeit.
ztwms14_lifnr-zuser = sy-uname.
ENDMODULE. " GET14_LIFNR_NAME INPUT