*&---------------------------------------------------------------------*
*& Report Z_SALAH_SC06
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_SALAH_SC06.
**********************************************************************
*REPORT DESCRIBE:报表提升练习
*DEVELOPER:SALAH
*DEVELOP DATE:20190916
*MODIFY DATE:
*FUNCTION SPEC:
*KEY USER:
**********************************************************************
TYPE-POOLS:SLIS,VRM.
TABLES:MARD,MARA,MAKT,MARC,MSEG,MKPF.
DATA GT_VALUE TYPE VRM_VALUES.
DATA GS_VALUE TYPE VRM_VALUE.
TYPES:BEGIN OF TYP_01,
MBLNR TYPE MSEG-MBLNR,
MJAHR TYPE MSEG-MJAHR,
ZEILE TYPE MSEG-ZEILE,
CPUDT TYPE MKPF-CPUDT,
CPUTM TYPE MKPF-CPUTM,
END OF TYP_01.
DATA GT_OUT TYPE STANDARD TABLE OF TYP_01.
DATA GS_OUT TYPE TYP_01.
DATA GT_MSEG TYPE STANDARD TABLE OF TYP_01.
DATA GS_MSEG TYPE TYP_01.
DATA GT_MKPF TYPE STANDARD TABLE OF TYP_01.
DATA GS_MKPF TYPE TYP_01.
TYPES:BEGIN OF TYP_02,
MATNR TYPE MARA-MATNR,
ERSDA TYPE MARA-ERSDA,
ERNAM TYPE MARA-ERNAM,
AENAM TYPE MARA-AENAM,
WERKS TYPE MARC-WERKS,
PSTAT TYPE MARC-PSTAT,
LGORT TYPE MARD-LGORT,
MAKTX TYPE MAKT-MAKTX,
SPRAS TYPE MAKT-SPRAS,
CBOX TYPE C,
COLOR TYPE CHAR04,
END OF TYP_02.
DATA GT_OUT1 TYPE STANDARD TABLE OF TYP_02.
DATA GS_OUT1 TYPE TYP_02.
TYPES:BEGIN OF TYP_03,
MATNR TYPE MARA-MATNR,
LGORT TYPE MARD-LGORT,
WERKS TYPE MARC-WERKS,
MBLNR TYPE MSEG-MBLNR,
MJAHR TYPE MSEG-MJAHR,
ZEILE TYPE MSEG-ZEILE,
CPUDT TYPE MKPF-CPUDT,
CPUTM TYPE MKPF-CPUTM,
END OF TYP_03.
DATA GT_01 TYPE STANDARD TABLE OF TYP_03.
DATA GS_01 TYPE TYP_03.
DATA GT_OUT2 TYPE STANDARD TABLE OF TYP_03.
DATA GS_OUT2 TYPE TYP_03.
DATA GT_FIELDCAT TYPE LVC_T_FCAT.
DATA GS_FIELDCAT TYPE LVC_S_FCAT.
DATA IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV .
DATA IS_FIELDCAT LIKE LINE OF IT_FIELDCAT.
DATA GS_LAYOUT TYPE LVC_S_LAYO.
DEFINE FIELDCAT.
CLEAR GS_FIELDCAT.
GS_FIELDCAT-COL_POS = &1.
GS_FIELDCAT-FIELDNAME = &2.
GS_FIELDCAT-SCRTEXT_L = &3.
APPEND GS_FIELDCAT TO GT_FIELDCAT.
END-OF-DEFINITION.
DEFINE FIELDCAT1.
CLEAR IS_FIELDCAT.
IS_FIELDCAT-COL_POS = &1.
IS_FIELDCAT-FIELDNAME = &2.
IS_FIELDCAT-SELTEXT_L = &3.
APPEND IS_FIELDCAT TO IT_FIELDCAT.
END-OF-DEFINITION.
**********************************************************************
*SEL SCREEN
**********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK BL01 WITH