REPORT YSETPASS.
* This program resets the different passwords of all users of a client
* to the same initial password: initpass.

DATA: CODE(8) VALUE 'initpass'.
TABLES: USR02.

SELECT * FROM USR02.
  PERFORM SET_NEW_PASS IN PROGRAM SAPMS01J USING USR02-BNAME CODE CODE.
ENDSELECT.