REPORT zsm_data_two.
TYPES: BEGIN OF ty_data,
field1 TYPE char20, "creation of structure
field2 TYPE char20,
field3 TYPE char20,
field4 TYPE char20,
END OF ty_data.
DATA: lt_data TYPE TABLE OF ty_data, "creation of internal table
ls_data TYPE ty_data. "creation of work area
PARAMETERS: p_field1 TYPE ty_data, "Assigning fields in selection screen
p_field2 TYPE ty_data,
p_field3 TYPE ty_data,
p_field4 TYPE ty_data.
AT SELECTION-SCREEN OUTPUT.
START-OF-SELECTION.
ls_data-field1 = p_field1. "Assigning values in fields
ls_data-field2 = p_field2.
ls_data-field3 = p_field3.
ls_data-field4 = p_field4.
APPEND ls_data TO lt_data. "Entering values through work area into internal table
LOOP AT lt_data INTO ls_data.
WRITE: / 'Field1:', ls_data-field1,
/ 'Field2:', ls_data-field2,
/ 'Field3:', ls_data-field3,
/ 'Field4:', ls_data-field4. "Displaying The Output Of The Program
ENDLOOP.
PARAMETERS: p_field1 TYPE ty_data, "Assigning fields in selection screen
p_field2 TYPE ty_data,
p_field3 TYPE ty_data,
p_field4 TYPE ty_data.
AT SELECTION-SCREEN OUTPUT.
START-OF-SELECTION.
ls_data-field1 = p_field1. "Assigning values in fields
ls_data-field2 = p_field2.
ls_data-field3 = p_field3.
ls_data-field4 = p_field4.
APPEND ls_data TO lt_data. "Entering values through work area into internal table
LOOP AT lt_data INTO ls_data.
WRITE: / 'Field1:', ls_data-field1,
/ 'Field2:', ls_data-field2,
/ 'Field3:', ls_data-field3,
/ 'Field4:', ls_data-field4. "Displaying The Output Of The Program
ENDLOOP.
O U T P U T :-
0 Comments