report zvvv_bc_userwork_lock.
include zvvv_bc_userwork_top.

if sy-batch ne 'X'. exit. endif.
authority-check object 'S_ADMI_FCD' id 'S_ADMI_FCD' field 'PADM'.
if sy-subrc ne 0. exit. endif.

data: jobname(32) type c.
write: sy-repid, sy-datum, sy-uzeit.
call function 'GET_JOB_RUNTIME_INFO'
   importing jobname                 = jobname
  exceptions no_runtime_info         = 1
             others                  = 2.
if sy-subrc ne 0.
  write: / 'Не могу получить данные задания ....'. exit.
endif.
write: / jobname.
import zuserlup from database zvvvbcusr(bl) id jobname.
if sy-subrc ne 0.
  write: / 'Нет данных для блокирования пользователей ....'. exit.
endif.
loop at zuserlup.
  write: / zuserlup-mandt, zuserlup-uname.
  call function 'TH_DELETE_USER'
    exporting user            = zuserlup-uname
              client          = zuserlup-mandt
   exceptions authority_error = 1
              others          = 2.
  if sy-subrc ne 0. write 'НЕ'. endif.
  write: 'отключен'.
  if sy-subrc ne 0. write sy-subrc. endif.
  call function 'ZVVV_USER_LOCK'
    exporting user_name           = zuserlup-uname
              mandant             = zuserlup-mandt
   exceptions user_name_not_exist = 1
              user_is_locked      = 2
              user_bad_update     = 3
              authority_error     = 4
              others              = 5.
  if sy-subrc ne 0. write 'НЕ'. endif.
  write: 'блокирован'.
  if sy-subrc ne 0. write sy-subrc. endif.
endloop.
delete from zvvvbcusr where zvvvbcusr = jobname and relid = 'BL'.