Vay annassını, fonksiyona gel…
DATA: USER_DATA LIKE SOUD3.
MOVE SY-UNAME TO USER_DATA-SAPNAM.
CALL FUNCTION 'SO_NAME_CONVERT'
EXPORTING
NAME_IN = USER_DATA
IMPORTING
NAME_OUT = USER_DATA
EXCEPTIONS
OFFICE_NAME_NOT_EXIST = 1
PARAMETER_ERROR = 2
SAP_NAME_NOT_EXIST = 3
USER_NOT_EXIST = 4.
IF SY-SUBRC NE 0.
ENDIF.
WRITE: USER_DATA-SAPNAM,
USER_DATA-USRNAM,
USER_DATA-OCSNAM,
USER_DATA-USRTP,
USER_DATA-USRYR,
USER_DATA-USRNO,
USER_DATA-ADRNAME.
Hiç yorum yok:
Yorum Gönder