函数创建用户并分配权限详解编程语言

"李渊 测试 创建用户 函数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.