^_^函数创建用户并分配权限

"李渊 测试 创建用户 函数BAPI_USER_CREATE1

DATA:LS_DATA   TYPE BAPILOGOND,
     LS_ADDR   TYPE BAPIADDR3,
     LS_DEFU   TYPE BAPIDEFAUL,
     LS_PWD    TYPE BAPIPWD,
     GT_RETURN TYPE TABLE OF BAPIRET2,
     GW_RETURN LIKE LINE OF GT_RETURN,
     GV_DEST   TYPE RFCDEST,
     GT_FILE   TYPE TABLE OF BAPIPROF,
     GW_FILE   LIKE LINE OF GT_FILE.

CALL FUNCTION 'CRM_OFI_GET_RFCDEST'
  IMPORTING
    EV_RFCDEST       = GV_DEST
  EXCEPTIONS
    NO_RFCDEST       = 1
    MULTIPLE_RFCDEST = 2
    OTHERS           = 3.
IF SY-SUBRC <> 0.
ENDIF.

"LODIN DATA
LS_DATA-GLTGV = SY-DATUM - 1.
LS_DATA-GLTGB = SY-DATUM + 1.
LS_DATA-USTYP = 'A'.
"set efault data
LS_DEFU-LANGU = 'E'.
LS_DEFU-SPLD = 'LP01'.
LS_DEFU-DATFM = '4'.
LS_DEFU-DCPFM = 'X'.
LS_DEFU-TIMEFM = '0'.
"set password
LS_PWD-BAPIPWD = '123456'.
"set name
LS_ADDR-LASTNAME = 'Lee'.
"call func create user
CALL FUNCTION 'BAPI_USER_CREATE1' DESTINATION GV_DEST
  EXPORTING
    USERNAME  = 'ANDY01'
*   NAME_IN   =
    LOGONDATA = LS_DATA
    PASSWORD  = LS_PWD
    DEFAULTS  = LS_DEFU
    ADDRESS   = LS_ADDR
  TABLES
    RETURN    = GT_RETURN.

READ TABLE GT_RETURN INTO GW_RETURN WITH KEY TYPE = 'E'.
IF SY-SUBRC = 0.
  MESSAGE ID GW_RETURN-ID TYPE GW_RETURN-TYPE NUMBER GW_RETURN-NUMBER.
ELSE.
  REFRESH:GT_RETURN.
  GW_FILE-BAPIPROF = 'SAP_ALL'.
  GW_FILE-BAPITYPE = 'C'.
  GW_FILE-BAPIAKTPS = 'X'.
  APPEND GW_FILE TO GT_FILE.
  GW_FILE-BAPIPROF = 'SAP_NEW'.
  GW_FILE-BAPITYPE = 'C'.
  GW_FILE-BAPIAKTPS = 'X'.
  APPEND GW_FILE TO GT_FILE.
  "assign sap_all to user
  CALL FUNCTION 'BAPI_USER_PROFILES_ASSIGN' DESTINATION GV_DEST
    EXPORTING
      USERNAME = 'ANDY01'
    TABLES
      PROFILES = GT_FILE
      RETURN   = GT_RETURN.
  READ TABLE GT_RETURN INTO GW_RETURN WITH KEY TYPE = 'E'.
  IF SY-SUBRC = 0.
    WRITE 'Assign Profile to User error'.
  ELSE.
  ENDIF.
ENDIF.