SAP 账户清单

*&---------------------------------------------------------------------*
*& 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