*&---------------------------------------------------------------------*
*& Report ZLSUID_MAINTENANCE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZLSUID_MAINTENANCE.
TABLES: USREFUS,USR02,USR21,adcp,ADRP.
TYPES:BEGIN OF I_ITAB,
BNAME LIKE USREFUS-BNAME,
USERALIAS LIKE USREFUS-USERALIAS,
UFLAG LIKE USR02-UFLAG,
TRDAT LIKE USR02-TRDAT,
PERSNUMBER LIKE USR21-PERSNUMBER,
NAME_LAST LIKE ADRP-NAME_LAST,
NAME_FIRST LIKE ADRP-NAME_FIRST,
NAME_TEXT LIKE ADRP-NAME_TEXT,
DEPARTMENT LIKE ADCP-DEPARTMENT,
FUNCTION like ADCP-FUNCTION,
END OF I_ITAB.
*TYPES:BEGIN OF I_ITAB.
* INCLUDE TYPE USR02.
*TYPES:END OF I_ITAB.
DATA: ITAB TYPE TABLE OF I_ITAB WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK LBS WITH FRAME TITLE TEXT1.
SELECT-OPTIONS: S_BNAME FOR USR02-BNAME,
S_UFLAG FOR USR02-UFLAG.
SELECTION-SCREEN END OF BLOCK LBS.
PERFORM GETDATA.
***********数据显示*****
PERFORM DISPLAY.
*&---------------------------------------------------------------------*
*& FORM GETDATA
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM GETDATA .
SELECT USREFUS~BNAME USREFUS~USERALIAS USR02~UFLAG USR02~TRDAT USR21~PERSNUMBER
ADRP~NAME_LAST ADRP~NAME_FIRST ADRP~NAME_TEXT ADCP~DEPARTMENT ADCP~FUNCTION
INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM USREFUS
JOIN USR02 ON USR02~BNAME = USREFUS~BNAME
JOIN USR21 ON USR21~BNAME
SAP 账户清单
最新推荐文章于 2024-03-05 15:04:14 发布