LOCK USER

 
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.