RESETANDO SENHA DE USUARIO

Este report é uma dica para resetar senha de usuario, foi criado uma simples tela somente para exemplificar, vc pode utilizar a chamada do perform in program conforme sua necessidades. Este post facilita quando é necessario alterar senhas em massa.
 REPORT ZRESETPASS.
   TABLES: USR02.
   TYPE-POOLS: VRM.
   DATA: IT_LIST TYPE VRM_VALUES,
         LIST_VALUE TYPE VRM_VALUE.
   DATA: MDT TYPE SY-MANDT.
   DATA: BEGIN OF USUARIO OCCURS 0,
          BNAME LIKE USR02-BNAME,
           END OF USUARIO.
   DATA: CLIENT LIKE SY-MANDT,
         USER LIKE SY-UNAME,
         MESSAGE LIKE SM04DIC-POPUPMSG.
SELECTION-SCREEN BEGIN OF BLOCK BY1 WITH FRAME.
     PARAMETERS: P_USER TYPE USR02-BNAME AS LISTBOX VISIBLE LENGTH 20.
SELECTION-SCREEN END OF BLOCK BY1.
***********************************************************************
* INICIALIZAÇÃO
***********************************************************************
INITIALIZATION.
  PERFORM SELECIONA_DADOS.
  PERFORM CARREGA_COMBO.
START-OF-SELECTION.
  PERFORM   RESET USING P_USER.
END-OF-SELECTION.
*&#######################*
*& Form SELECIONA_DADOS
*&#######################*
* text
*#######################-*
* #> p1 text
* <# p2 text
*#######################-*
FORM SELECIONA_DADOS .
  SELECT BNAME FROM USR02 INTO TABLE USUARIO.
ENDFORM.
*&#######################*
*& Form CARREGA_COMBO
*&#######################*
* text
*#######################-*
* #> p1 text
* <# p2 text
*#######################-*
FORM CARREGA_COMBO .
  LOOP AT USUARIO.
    LIST_VALUE-KEY = USUARIO-BNAME.
    LIST_VALUE-TEXT = USUARIO-BNAME.
    APPEND LIST_VALUE TO IT_LIST.
    ENDLOOP.
    CALL FUNCTION ‘VRM_SET_VALUES’
        EXPORTING
          ID = ‘P_USER’
          VALUES = IT_LIST.
ENDFORM.
*&#######################*
*& Form reset
*&#######################*
* text
*#######################-*
* #> p1 text
* <# p2 text
*#######################-*
FORM RESET USING P_USER.
  DATA: CODE(8) VALUE ‘initpass’.
  PERFORM SET_NEW_PASS IN PROGRAM SAPMS01J USING P_USER CODE CODE.
ENDFORM.
 
Está chamada é a parte mas [...]