Un-Lock Users in Background

*&---------------------------------------------------------------------*
*& REPORT  ZB_LOCK_UNLOCK
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZB_LOCK_UNLOCK_2.


TABLES: USR02.
*DATA:  GROUPS   TYPE STANDARD TABLE OF BAPIGROUPS WITH HEADER LINE.
*DATA: FLAG TYPE I.
"PARAMETERS: USRID TYPE USR02-BNAME.

SELECT-OPTIONS : USRID FOR USR02-BNAME.

DATA RETURN_DUMMY LIKE BAPIRET2 OCCURS 0.
DATA: V_UFLAG TYPE USR02-UFLAG.

LOOP AT USRID.
  SELECT UFLAG INTO V_UFLAG FROM USR02 WHERE
    BNAME EQ USRID-LOW AND
    UFLAG NE '0'.
  ENDSELECT.
  IF V_UFLAG NE '0'.
    CALL FUNCTION 'BAPI_USER_UNLOCK'
    EXPORTING
         USERNAME = USRID-LOW
    TABLES
         RETURN   = RETURN_DUMMY.
    IF RETURN_DUMMY IS NOT INITIAL.
      WRITE: USRID-LOW. WRITE: ' USER IS UNLOCKED.'.
    ENDIF.
  ENDIF.
ENDLOOP.