ABAP顾问
分类:
2007-12-09 21:27:41
REPORT z_barry_user_pass.
TABLES: usr02,xu400 .
DATA: msgid LIKE sy-msgid,
msgno LIKE sy-msgno,
param.
usr02-bname = 'BARRY'.
xu400-newcode = 'BARRY'.
CALL 'XXPASS'
ID 'CODE' FIELD xu400-newcode
ID 'CODX' FIELD usr02-bcode
ID 'NAME' FIELD usr02-bname
ID 'VERS' FIELD usr02-codvn
ID 'MESG' FIELD msgno
ID 'ARBG' FIELD msgid.
WRITE usr02-bcode .