Hi YAsh ,
Its very simple...dont consfuse...
create a executable program type 1.
then,
give select options for the input , when execute just call the module pool by using call screen '0100'.
double click the screen number and create a screen for the report program and pass the value in the module pool...
example...
Report abc.
SELECTION-SCREEN BEGIN OF BLOCK v1 WITH FRAME TITLE text-000.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-001.
SELECTION-SCREEN POSITION 33.
PARAMETERS : p_pernr TYPE pa0001-pernr OBLIGATORY MATCHCODE OBJECT prem.
SELECTION-SCREEN COMMENT 52(5) text-002 .
SELECTION-SCREEN POSITION 57.
PARAMETERS : p_ename TYPE pa0001-ename MODIF ID abc.
SELECTION-SCREEN END OF LINE.
PARAMETERS : p_massg TYPE pa0000-massg OBLIGATORY.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(28) text-003.
SELECTION-SCREEN POSITION 33.
PARAMETERS : p_date1 TYPE pa0000-begda MODIF ID abc.
SELECTION-SCREEN COMMENT 52(12) text-004 .
SELECTION-SCREEN POSITION 65.
PARAMETERS : p_date2 TYPE pa0000-begda . "MODIF ID abc.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK v1.
DATA : lv_ename TYPE pa0001-ename.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-group1 = 'ABC'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
AT SELECTION-SCREEN.
SELECT SINGLE ename FROM pa0001 INTO lv_ename
WHERE pernr EQ p_pernr
AND begda LE sy-datum
AND endda GE sy-datum.
IF p_pernr IS NOT INITIAL.
p_ename = lv_ename.
MODIFY SCREEN.
ENDIF.
AT SELECTION-SCREEN ON p_pernr.
DATA : lv_date3 TYPE sy-datum.
SELECT SINGLE * FROM pa0000
INTO gwa_0000
WHERE pernr EQ p_pernr
AND massn = 'Y4'.
IF sy-subrc NE 0.
MESSAGE text-005 TYPE 'E'.
ELSE.
CLEAR p_date2.
p_date1 = gwa_0000-begda.
CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
EXPORTING
date = p_date1
days = 0
months = 1
signum = '+'
years = 0
IMPORTING
calc_date = p_date2.
MODIFY SCREEN.
CLEAR: gwa_0000-begda.
endif.
START-OF-SELECTION.
CALL SCREEN '0100'. " Double click the screen number and create the module pool design
Thanks
Vijay SR