REPORT zfico_lockuser.
TABLES : usr02.
DATA:gv_user LIKE usr02 OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: gv_bname FOR usr02-bname.
PARAMETERS:gv_lock1 TYPE c RADIOBUTTON GROUP lock ,
gv_lock2 TYPE c RADIOBUTTON GROUP lock .
SELECTION-SCREEN END OF BLOCK bl1.
START-OF-SELECTION.
IF gv_bname IS NOT INITIAL.
IF gv_lock1 = 'X'.
WRITE: / '锁定帐号:'.
LOOP AT gv_bname.
UPDATE usr02 SET uflag = '64' WHERE bname = gv_bname-low.
WRITE gv_bname-low.
ENDLOOP.
ELSEIF gv_lock2 = 'X'.
WRITE: / '解锁帐号:'.
LOOP AT gv_bname.
UPDATE usr02 SET uflag = '0' WHERE bname = gv_bname-low.
WRITE gv_bname-low.
ENDLOOP.
ENDIF.
ELSE.
RETURN.
ENDIF.
阅读(521) | 评论(0) | 转发(0) |