*&---------------------------------------------------------------------*
*& Report ZPPR001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zppr001.
TYPE-POOLS: slis.
DATA: gt_mrp TYPE TABLE OF zmrp_control WITH HEADER LINE,
gs_user TYPE zmrp_user.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
gs_fieldcat TYPE slis_fieldcat_alv,
gs_layout TYPE slis_layout_alv,
gs_ucomm TYPE slis_formname VALUE 'USER_COMMAND',
gs_status TYPE slis_formname VALUE 'FRM_PF_STATUS_SET',
l_grid TYPE REF TO cl_gui_alv_grid.
START-OF-SELECTION.
PERFORM process_data.
PERFORM output_data.
*&---------------------------------------------------------------------*
*& Form PROCESS_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM process_data .
SELECT SINGLE * FROM zmrp_user
INTO CORRESPONDING FIELDS OF gs_user
WHERE uname = sy -uname.
SELECT * FROM zmrp_co
*& Report ZPPR001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zppr001.
TYPE-POOLS: slis.
DATA: gt_mrp TYPE TABLE OF zmrp_control WITH HEADER LINE,
gs_user TYPE zmrp_user.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
gs_fieldcat TYPE slis_fieldcat_alv,
gs_layout TYPE slis_layout_alv,
gs_ucomm TYPE slis_formname VALUE 'USER_COMMAND',
gs_status TYPE slis_formname VALUE 'FRM_PF_STATUS_SET',
l_grid TYPE REF TO cl_gui_alv_grid.
START-OF-SELECTION.
PERFORM process_data.
PERFORM output_data.
*&---------------------------------------------------------------------*
*& Form PROCESS_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM process_data .
SELECT SINGLE * FROM zmrp_user
INTO CORRESPONDING FIELDS OF gs_user
WHERE uname = sy -uname.
SELECT * FROM zmrp_co