SAP账户批量加/解锁的BAPI

SU10 可以实现批量加解锁，用户贴不全，比较麻烦

SE38执行如下程序：

1. TABLES:usr02.
   
2. 
   
3. SELECT-OPTIONS:s_BNAME  FOR usr02-BNAME .
   
4. 
   
5. DATA:lv_USERNAME TYPE BAPIBNAME-BAPIBNAME.
   
6. DATA:lt_RETURN TYPE TABLE OF BAPIRET2.
   
7. 
   
8. LOOP AT s_BNAME.
   
9.   lv_USERNAME = s_BNAME-low.
   
10. 
    
11. *  CALL FUNCTION 'BAPI_USER_LOCK'
    
12. *    EXPORTING
    
13. *      USERNAME       = lv_USERNAME
    
14. *    TABLES
    
15. *      RETURN         = lt_RETURN.
    
16. 
    
17.   CALL FUNCTION 'BAPI_USER_UNLOCK'
    
18.   EXPORTING
    
19.     USERNAME       = lv_USERNAME
    
20.   TABLES
    
21.     RETURN         = lt_RETURN.
    
22. ENDLOOP.

复制代码