Zvr Screen Design 2d3t52

*&---------------------------------------------------------------------* *& Report ZVR_SCREEN_DESIGN *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT

zvr_screen_design.

****selection screen deg *SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. *SELECTION-SCREEN SKIP 1. *PARAMETERS : p_sal TYPE c RADIOBUTTON GROUP grp1, * p_del TYPE c RADIOBUTTON GROUP grp1, * p_inv TYPE c RADIOBUTTON GROUP grp1. *SELECTION-SCREEN END OF BLOCK blk1. * *****vbak table data ****sales document header level data using parameters *SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002. *SELECTION-SCREEN SKIP 1. *PARAMETERS : p_vbeln TYPE vbak-vbeln, * p_ernam TYPE vbak-ernam, * p_erdat TYPE vbak-erdat. *SELECTION-SCREEN END OF BLOCK blk2. * ****sales document item level data using select-options *SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME TITLE text-003. *SELECTION-SCREEN SKIP 1. *DATA : wa_vbak TYPE vbak, * it_vbak TYPE TABLE OF vbak. *SELECT-OPTIONS : s_vbtyp FOR wa_vbak-vbtyp NO INTERVALS , * s_auart FOR wa_vbak-auart NO INTERVALS , * s_netwr FOR wa_vbak-netwr NO INTERVALS NO-EXTENSION. *SELECTION-SCREEN END OF BLOCK blk3. * ***likp table data ******delivery document header level data using parameters *SELECTION-SCREEN BEGIN OF BLOCK blk4 WITH FRAME TITLE text-004. *SELECTION-SCREEN SKIP 1. *PARAMETERS : p_kunag TYPE likp-kunag, * p_kunnr TYPE likp-kunnr, * p_erzet TYPE likp-erzet. *SELECTION-SCREEN END OF BLOCK blk4. * ******delivery document item level data using select-options *SELECTION-SCREEN BEGIN OF BLOCK blk5 WITH FRAME TITLE text-005. *SELECTION-SCREEN SKIP 1. *DATA : wa_lips TYPE lips, * it_lips TYPE TABLE OF lips. * *SELECT-OPTIONS : s_posnr FOR wa_lips-posnr NO INTERVALS, * s_matnr FOR wa_lips-matnr NO INTERVALS, * s_charg FOR wa_lips-charg NO INTERVALS NO-EXTENSION. *SELECTION-SCREEN END OF BLOCK blk5. * ****vbrk table data

***Billing document header data using parameters *SELECTION-SCREEN BEGIN OF BLOCK blk6 WITH FRAME TITLE text-006. *SELECTION-SCREEN SKIP 1. *PARAMETERS : p_fkart TYPE vbrk-fkart, * p_fktyp TYPE vbrk-fktyp, * p_vtweg TYPE vbrk-vtweg. *SELECTION-SCREEN END OF BLOCK blk6. * ***Billing document item level data using select-options *SELECTION-SCREEN BEGIN OF BLOCK blk7 WITH FRAME TITLE text-007. *SELECTION-SCREEN SKIP 1. *DATA : wa_vbrp TYPE vbrp, * it_vbrp TYPE TABLE OF vbrp. *SELECT-OPTIONS : s_vbeln FOR wa_vbrp-vbeln, * s_vrkme FOR wa_vbrp-vrkme, * s_vgbel FOR wa_vbrp-vgbel NO INTERVALS NO-EXTENSION. *SELECTION-SCREEN END OF BLOCK blk7.

***************************************************************************** *** COMMAND & MODIF IF **************************************************** TABLES : vbak, likp, vbrk. *1st block SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP. PARAMETERS : p_sal RADIOBUTTON GROUP grp1 -COMMAND sal DEFAULT 'X', p_del RADIOBUTTON GROUP grp1, p_inv RADIOBUTTON GROUP grp1. SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF BLOCK blk1. *2nd block SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002. SELECTION-SCREEN SKIP. SELECT-OPTIONS : s_vbeln FOR vbak-vbeln MODIF ID sal, s_ernam FOR vbak-ernam NO INTERVALS NO-EXTENSION MODIF ID sal, s_erdat FOR vbak-erdat NO-EXTENSION MODIF ID sal. SELECTION-SCREEN SKIP. PARAMETERS : p_vbtyp TYPE vbak-vbtyp MODIF ID sal, p_auart TYPE vbak-auart MODIF ID sal. SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF BLOCK blk2. *3rd block SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME TITLE text-003. SELECTION-SCREEN SKIP. SELECT-OPTIONS : sd_vbeln FOR likp-vbeln MODIF ID del, sd_ernam FOR likp-ernam NO INTERVALS NO-EXTENSION MODIF ID del, sd_erdat FOR likp-erdat NO-EXTENSION MODIF ID del. SELECTION-SCREEN SKIP. PARAMETERS : p_waerk TYPE likp-waerk MODIF ID del, p_bzirk TYPE likp-bzirk MODIF ID del. SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF BLOCK blk3. *4th block SELECTION-SCREEN BEGIN OF BLOCK blk4 WITH FRAME TITLE text-004. SELECTION-SCREEN SKIP. SELECT-OPTIONS : si_vbeln FOR vbrk-vbeln MODIF ID inv, si_ernam FOR vbrk-ernam NO INTERVALS NO-EXTENSION MODIF ID inv, si_erdat FOR vbrk-erdat NO-EXTENSION MODIF ID inv. SELECTION-SCREEN SKIP. PARAMETERS : p_vkorg TYPE vbak-vkorg MODIF ID inv, p_vtweg TYPE vbak-vtweg MODIF ID inv. SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF BLOCK blk4. ****modify screen based on action on radiobuttons AT SELECTION-SCREEN OUTPUT. IF p_sal = 'X'. PERFORM modify_screen USING 1 0 0 1 0 1. ELSEIF p_del = 'X'. PERFORM modify_screen USING 0 1 1 0 0 1. ELSEIF p_inv = 'X'. PERFORM modify_screen USING 0 1 0 1 1 0. ENDIF. *&---------------------------------------------------------------------* *& Form MODIFY_SCREEN *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_1 text * -->P_0 text * -->P_0 text * -->P_1 text * -->P_0 text

* -->P_1 text *----------------------------------------------------------------------* FORM modify_screen USING lv_var1 lv_var2 lv_var3 lv_var4 lv_var5 lv_var6. LOOP AT SCREEN. CASE screen-group1. WHEN 'SAL'. screen-input = lv_var1. screen-invisible = lv_var2. MODIFY SCREEN. WHEN 'DEL'. screen-input = lv_var3. screen-invisible = lv_var4. MODIFY SCREEN. WHEN 'INV'. screen-input = lv_var5. screen-invisible = lv_var6. MODIFY SCREEN. ENDCASE. ENDLOOP. ENDFORM.

" MODIFY_SCREEN

******************************************************************************** ****** COMMAND & MODIF IF ******************************************************* ***TABLES : vbak, likp, vbrk. ****1st block ***SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. ***SELECTION-SCREEN SKIP. ***PARAMETERS : p_sal RADIOBUTTON GROUP grp1 -COMMAND sal DEFAULT 'X', *** p_del RADIOBUTTON GROUP grp1, *** p_inv RADIOBUTTON GROUP grp1. ***SELECTION-SCREEN SKIP. ***SELECTION-SCREEN END OF BLOCK blk1. ****2nd block ***SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002. ***SELECTION-SCREEN SKIP. ***SELECT-OPTIONS : s_vbeln FOR vbak-vbeln MODIF ID sal, *** s_ernam FOR vbak-ernam NO INTERVALS NO-EXTENSION MODIF ID sal, *** s_erdat FOR vbak-erdat NO-EXTENSION MODIF ID sal. ***SELECTION-SCREEN SKIP. ***PARAMETERS : p_vbtyp TYPE vbak-vbtyp MODIF ID sal, *** p_auart TYPE vbak-auart MODIF ID sal. ***SELECTION-SCREEN SKIP. ***SELECTION-SCREEN END OF BLOCK blk2. ****3rd block ***SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME TITLE text-003. ***SELECTION-SCREEN SKIP. ***SELECT-OPTIONS : sd_vbeln FOR likp-vbeln MODIF ID del, *** sd_ernam FOR likp-ernam NO INTERVALS NO-EXTENSION MODIF ID del, *** sd_erdat FOR likp-erdat NO-EXTENSION MODIF ID del. ***SELECTION-SCREEN SKIP. ***PARAMETERS : p_waerk TYPE likp-waerk MODIF ID del, *** p_bzirk TYPE likp-bzirk MODIF ID del. ***SELECTION-SCREEN SKIP. ***SELECTION-SCREEN END OF BLOCK blk3. ****4th block ***SELECTION-SCREEN BEGIN OF BLOCK blk4 WITH FRAME TITLE text-004. ***SELECTION-SCREEN SKIP. ***SELECT-OPTIONS : si_vbeln FOR vbrk-vbeln MODIF ID inv, *** si_ernam FOR vbrk-ernam NO INTERVALS NO-EXTENSION MODIF ID inv, *** si_erdat FOR vbrk-erdat NO-EXTENSION MODIF ID inv. ***SELECTION-SCREEN SKIP. ***PARAMETERS : p_vkorg TYPE vbak-vkorg MODIF ID inv, *** p_vtweg TYPE vbak-vtweg MODIF ID inv. ***SELECTION-SCREEN SKIP. ***SELECTION-SCREEN END OF BLOCK blk4. *** *******modify screen based on action on radiobuttons ***AT SELECTION-SCREEN OUTPUT. *** *** IF p_sal = 'X'. *** LOOP AT SCREEN. *** CASE screen-group1. *** WHEN 'SAL'. *** screen-input = 1. *** screen-invisible = 0. *** MODIFY SCREEN.

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***

WHEN 'DEL'. screen-input screen-invisible MODIFY SCREEN. WHEN 'INV'. screen-input screen-invisible MODIFY SCREEN. ENDCASE. ENDLOOP. ELSEIF p_del = 'X'. LOOP AT SCREEN. CASE screen-group1. WHEN 'SAL'. screen-input screen-invisible MODIFY SCREEN. WHEN 'DEL'. screen-input screen-invisible MODIFY SCREEN. WHEN 'INV'. screen-input screen-invisible MODIFY SCREEN. ENDCASE. ENDLOOP. ELSEIF p_inv = 'X'. LOOP AT SCREEN. CASE screen-group1. WHEN 'SAL'. screen-input screen-invisible MODIFY SCREEN. WHEN 'DEL'. screen-input screen-invisible MODIFY SCREEN. WHEN 'INV'. screen-input screen-invisible MODIFY SCREEN. ENDCASE. ENDLOOP. ENDIF.

= 0. = 1. = 0. = 1.

= 0. = 1. = 1. = 0. = 0. = 1.

= 0. = 1. = 0. = 1. = 1. = 0.

*********************************************************************************** **** *****selection screen deg **SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. **SELECTION-SCREEN SKIP 1. **PARAMETERS : p_sal TYPE c RADIOBUTTON GROUP grp1, ** p_del TYPE c RADIOBUTTON GROUP grp1, ** p_inv TYPE c RADIOBUTTON GROUP grp1. **SELECTION-SCREEN END OF BLOCK blk1. ** ******vbak table data *****sales document header level data using parameters **SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002. **SELECTION-SCREEN SKIP 1. **PARAMETERS : p_vbeln TYPE vbak-vbeln, ** p_ernam TYPE vbak-ernam, ** p_erdat TYPE vbak-erdat. **SELECTION-SCREEN END OF BLOCK blk2. ** *****sales document item level data using select-options **SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME TITLE text-003. **SELECTION-SCREEN SKIP 1. **DATA : wa_vbak TYPE vbak, ** it_vbak TYPE TABLE OF vbak. **SELECT-OPTIONS : s_vbtyp FOR wa_vbak-vbtyp NO INTERVALS , ** s_auart FOR wa_vbak-auart NO INTERVALS , ** s_netwr FOR wa_vbak-netwr NO INTERVALS NO-EXTENSION. **SELECTION-SCREEN END OF BLOCK blk3. ** ****likp table data *******delivery document header level data using parameters **SELECTION-SCREEN BEGIN OF BLOCK blk4 WITH FRAME TITLE text-004. **SELECTION-SCREEN SKIP 1. **PARAMETERS : p_kunag TYPE likp-kunag, ** p_kunnr TYPE likp-kunnr, ** p_erzet TYPE likp-erzet. **SELECTION-SCREEN END OF BLOCK blk4. ** *******delivery document item level data using select-options **SELECTION-SCREEN BEGIN OF BLOCK blk5 WITH FRAME TITLE text-005. **SELECTION-SCREEN SKIP 1. **DATA : wa_lips TYPE lips, ** it_lips TYPE TABLE OF lips. **

**SELECT-OPTIONS : s_posnr FOR wa_lips-posnr NO INTERVALS, ** s_matnr FOR wa_lips-matnr NO INTERVALS, ** s_charg FOR wa_lips-charg NO INTERVALS NO-EXTENSION. **SELECTION-SCREEN END OF BLOCK blk5. ** *****vbrk table data ****Billing document header data using parameters **SELECTION-SCREEN BEGIN OF BLOCK blk6 WITH FRAME TITLE text-006. **SELECTION-SCREEN SKIP 1. **PARAMETERS : p_fkart TYPE vbrk-fkart, ** p_fktyp TYPE vbrk-fktyp, ** p_vtweg TYPE vbrk-vtweg. **SELECTION-SCREEN END OF BLOCK blk6. ** ****Billing document item level data using select-options **SELECTION-SCREEN BEGIN OF BLOCK blk7 WITH FRAME TITLE text-007. **SELECTION-SCREEN SKIP 1. **DATA : wa_vbrp TYPE vbrp, ** it_vbrp TYPE TABLE OF vbrp. **SELECT-OPTIONS : s_vbeln FOR wa_vbrp-vbeln, ** s_vrkme FOR wa_vbrp-vrkme, ** s_vgbel FOR wa_vbrp-vgbel NO INTERVALS NO-EXTENSION. **SELECTION-SCREEN END OF BLOCK blk7.

************************************************************************** ****declaration of work area * internal table to fill dropdown entries *DATA : wa_list TYPE vrm_value, * it_list TYPE TABLE OF vrm_value, * lv_id TYPE vrm_id. * ****dropdown list for parameter input field *PARAMETERS p_course TYPE c LENGTH 35 VISIBLE LENGTH 15 AS LISTBOX. * ****fill dropdown internal table *AT SELECTION-SCREEN OUTPUT. *

* wa_list-key = 'ABAP'. * wa_list-text = 'Advance Business Application Programming'. * APPEND wa_list TO it_list. * CLEAR wa_list. * * wa_list-key = 'CA'. * wa_list-text = 'Cross Application'. * APPEND wa_list TO it_list. * CLEAR wa_list. * * wa_list-key = 'OABAP'. * wa_list-text = 'Object Advance Business Application Programming'. * APPEND wa_list TO it_list. * CLEAR wa_list. * * wa_list-key = 'SD'. * wa_list-text = 'Sales & Distribution'. * APPEND wa_list TO it_list. * CLEAR wa_list. * * wa_list-key = 'MM'. * wa_list-text = 'Material Management'. * APPEND wa_list TO it_list. * CLEAR wa_list. * ****attach dropdown internal table to dropdown input field * lv_id = 'P_COURSE'. * CALL FUNCTION 'VRM_SET_VALUES' * EXPORTING * id = lv_id "p_course * values = it_list * EXCEPTIONS * id_illegal_name = 1 * OTHERS = 2. * IF sy-subrc <> 0. ** Implement suitable error handling here * ENDIF.

********************************************************** *****F1 help for selection screem field **DATA lv_cust TYPE c LENGTH 10. **SELECT-OPTIONS s_kunnr FOR lv_cust. ** *****F1 Help for SELECT-OPTION field **AT SELECTION-SCREEN ON HELP-REQUEST FOR s_kunnr-low. ** PERFORM f1_help. *****F1 Help for SELECT-OPTION field **AT SELECTION-SCREEN ON HELP-REQUEST FOR s_kunnr-high. ** PERFORM f1_help. ** ***&---------------------------------------------------------------------* ***& Form F1_HELP ***&---------------------------------------------------------------------* *** text ***----------------------------------------------------------------------* *** --> p1 text *** <-- p2 text ***----------------------------------------------------------------------* **FORM f1_help . ** ** "call FM to attach f1 help ** CALL FUNCTION 'DSYS_SHOW_FOR_F1HELP' ** EXPORTING *** APPLICATION = 'SO70' ** dokclass = 'TX' ** doklangu = sy-langu ** dokname = 'ZF1_CUST' *** doktitle = 'Documentation for customer input field' *** HOMETEXT = ' ' *** OUTLINE = ' ' *** VIEWNAME = 'STANDARD' *** Z_ORIGINAL_OUTLINE = ' ' *** CALLED_FROM_SO70 = ' ' *** SHORT_TEXT = ' ' *** APPENDIX = ' ' *** IMPORTING *** APPL = *** PF03 = *** PF15 = *** PF12 = ** EXCEPTIONS ** class_unknown = 1 ** object_not_found = 2 ** OTHERS = 3 ** . ** IF sy-subrc <> 0. *** Implement suitable error handling here ** ENDIF. ** **ENDFORM. " F1_HELP

****************************************************** **f1 help for selection screem field *PARAMETERS p_kunnr TYPE kna1-kunnr. * ***F1 Help for parameter field *AT SELECTION-SCREEN ON HELP-REQUEST FOR p_kunnr. ** CALL fm TO attach f1 HELP * CALL FUNCTION 'DSYS_SHOW_FOR_F1HELP' * EXPORTING * application = 'SO70' * dokclass = 'TX' * doklangu = sy-langu * dokname = 'ZF1_CUST' * doktitle = 'Documentation for customer input field' * hometext = ' ' * outline = ' ' * viewname = 'STANDARD' * z_original_outline = ' ' * called_from_so70 = ' ' * short_text = ' ' * appendix = ' ' ** IMPORTING ** appl = pf03 ** = ** PF15 = PF12 ** = ** * EXCEPTIONS * class_unknown = 1 * object_not_found = 2 * OTHERS = 3. * IF sy-subrc <> 0. ** implement suitable error handling here * ENDIF.

*** *** ******************************************************************************* ******f4 for SELECT-OPTION input field ******declaration of TYPES structure ***TYPES : BEGIN OF ty_f4_kunnr, *** kunnr TYPE kna1-kunnr, *** name1 TYPE kna1-name1, *** telf1 TYPE kna1-telf1, *** ort01 TYPE kna1-ort01, *** regio TYPE kna1-regio, *** adrnr TYPE kna1-adrnr, *** END OF ty_f4_kunnr. ******declaration of work area & internal table ***DATA : wa_f4_kunnr TYPE ty_f4_kunnr, *** it_f4_kunnr TYPE TABLE OF ty_f4_kunnr, *** wa_retval TYPE ddshretval, *** it_retval TYPE TABLE OF ddshretval. *** ******selection screen design ***SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. ***SELECTION-SCREEN SKIP 1. ***SELECT-OPTIONS s_kunnr FOR wa_f4_kunnr-kunnr. ***SELECTION-SCREEN SKIP 1. ***SELECTION-SCREEN END OF BLOCK blk1. *** ******F4 for select-optioon input field ***AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_kunnr-low. *** PERFORM f4_help_kunnr. *** ***AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_kunnr-high. *** PERFORM f4_help_kunnr. *** ****&---------------------------------------------------------------------* ****& Form F4_HELP_KUNNR ****&---------------------------------------------------------------------* **** text ****----------------------------------------------------------------------* **** --> p1 text **** <-- p2 text ****----------------------------------------------------------------------* ***FORM f4_help_kunnr . *** ****fetch data from kna1 to attach for f4 help *** SELECT kunnr *** name1 *** telf1 *** ort01 *** regio *** adrnr FROM kna1 *** INTO TABLE it_f4_kunnr

*** WHERE land1 = 'US'. *** ****call FM to attach internal table data to F4 help *** CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' *** EXPORTING **** DDIC_STRUCTURE = ' ' *** retfield = 'KUNNR' **** PVALKEY = ' ' *** dynpprog = sy-rog *** dynpnr = '1000' **** dynprofield = 'S_KUNNR-LOW' **** STEPL = 0 *** window_title = 'F4 help Customer number' **** VALUE = ' ' *** value_org = 'S' **** multiple_choice = 'X' **** DISPLAY = ' ' **** CALLBACK_PROGRAM = ' ' **** CALLBACK_FORM = ' ' **** CALLBACK_METHOD = **** MARK_TAB = **** IMPORTING **** _RESET = *** TABLES *** value_tab = it_f4_kunnr **** FIELD_TAB = *** return_tab = it_retval **** DYNPFLD_MAPPING = *** EXCEPTIONS *** parameter_error = 1 *** no_values_found = 2 *** OTHERS = 3 *** . *** IF sy-subrc <> 0. **** Implement suitable error handling here *** ELSE. *** READ TABLE it_retval INTO wa_retval INDEX 1. *** s_kunnr-sign = 'I'. *** s_kunnr-option = 'EQ'. *** s_kunnr-low = wa_retval-fieldval. *** s_kunnr-high = wa_retval-fieldval. *** APPEND s_kunnr. *** ENDIF. *** ***ENDFORM. " F4_HELP_KUNNR ***

*****************************************************************************

****f4 for parameter input field ****declaration of TYPES structure *TYPES : BEGIN OF ty_f4_kunnr, * kunnr TYPE kna1-kunnr, * name1 TYPE kna1-name1, * telf1 TYPE kna1-telf1, * ort01 TYPE kna1-ort01, * regio TYPE kna1-regio, * adrnr TYPE kna1-adrnr, * END OF ty_f4_kunnr. ****declaration of work area & internal table *DATA : wa_f4_kunnr TYPE ty_f4_kunnr, * it_f4_kunnr TYPE TABLE OF ty_f4_kunnr. * *SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. *SELECTION-SCREEN SKIP 1. *PARAMETERS : p_kunnr TYPE kna1-kunnr. *SELECTION-SCREEN SKIP 1. *SELECTION-SCREEN END OF BLOCK blk1. * ****F4 for parameter input field *AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_kunnr. **fetch data from kna1 to attach for f4 help * SELECT kunnr * name1 * telf1 * ort01 * regio * adrnr FROM kna1 * INTO TABLE it_f4_kunnr * WHERE land1 = 'US'. * **call FM to attach internal table data to F4 help * CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' * EXPORTING ** DDIC_STRUCTURE = ' ' * retfield = 'KUNNR' ** PVALKEY = ' ' * dynpprog = sy-rog * dynpnr = '1000' * dynprofield = 'P_KUNNR' ** STEPL = 0 ** WINDOW_TITLE = ** VALUE = ' ' * value_org = 'S' ** multiple_choice = 'X' ** DISPLAY = ' ' ** CALLBACK_PROGRAM = ' ' ** CALLBACK_FORM = ' ' ** CALLBACK_METHOD = ** MARK_TAB = ** IMPORTING ** _RESET = * TABLES * value_tab = it_f4_kunnr ** FIELD_TAB = ** RETURN_TAB = ** DYNPFLD_MAPPING = * EXCEPTIONS

* parameter_error = 1 * no_values_found = 2 * OTHERS = 3 * . * IF sy-subrc <> 0. ** Implement suitable error handling here * ENDIF.

****************************************************************************** *****displaying all radiobutton in single line **SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. **SELECTION-SCREEN SKIP 1. ** **SELECTION-SCREEN BEGIN OF LINE. **PARAMETERS : pr_sal RADIOBUTTON GROUP grp1. **SELECTION-SCREEN COMMENT 10(20) text-002. **SELECTION-SCREEN END OF LINE. ** **SELECTION-SCREEN BEGIN OF LINE. **PARAMETERS : pr_del RADIOBUTTON GROUP grp1. **SELECTION-SCREEN COMMENT 10(20) text-003. **SELECTION-SCREEN END OF LINE. ** **SELECTION-SCREEN BEGIN OF LINE. **PARAMETERS : pr_inv RADIOBUTTON GROUP grp1. **SELECTION-SCREEN COMMENT 10(20) text-004. **SELECTION-SCREEN END OF LINE. ** **SELECTION-SCREEN SKIP 1. **SELECTION-SCREEN END OF BLOCK blk1.

***************************************************************************** ****displaying all radiobutton in single line *SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. *SELECTION-SCREEN SKIP 1. * *SELECTION-SCREEN BEGIN OF LINE.

*SELECTION-SCREEN COMMENT 3(20) text-002. *PARAMETERS : pr_sal RADIOBUTTON GROUP grp1. *SELECTION-SCREEN END OF LINE. * *SELECTION-SCREEN BEGIN OF LINE. *SELECTION-SCREEN COMMENT 15(20) text-003. *PARAMETERS : pr_del RADIOBUTTON GROUP grp1. *SELECTION-SCREEN END OF LINE. * *SELECTION-SCREEN BEGIN OF LINE. *SELECTION-SCREEN COMMENT 30(20) text-004. *PARAMETERS : pr_inv RADIOBUTTON GROUP grp1. *SELECTION-SCREEN END OF LINE. * *SELECTION-SCREEN SKIP 1. *SELECTION-SCREEN END OF BLOCK blk1.

**************************************************************************** *****displaying all radiobutton in single line **SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. **SELECTION-SCREEN SKIP 1. ** **SELECTION-SCREEN BEGIN OF LINE. **SELECTION-SCREEN COMMENT 3(20) text-002. **PARAMETERS : pr_sal RADIOBUTTON GROUP grp1. **SELECTION-SCREEN END OF LINE. ** **SELECTION-SCREEN BEGIN OF LINE. **SELECTION-SCREEN COMMENT 3(20) text-003. **PARAMETERS : pr_del RADIOBUTTON GROUP grp1. **SELECTION-SCREEN END OF LINE. ** **SELECTION-SCREEN BEGIN OF LINE. **SELECTION-SCREEN COMMENT 3(20) text-004. **PARAMETERS : pr_inv RADIOBUTTON GROUP grp1. **SELECTION-SCREEN END OF LINE. ** **SELECTION-SCREEN SKIP 1. **SELECTION-SCREEN END OF BLOCK blk1. **

***************************************************************************** ****displaying all radiobutton in single line *SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. *SELECTION-SCREEN SKIP 1. * *SELECTION-SCREEN BEGIN OF LINE. *SELECTION-SCREEN COMMENT 3(12) text-002. *PARAMETERS : pr_sal RADIOBUTTON GROUP grp1. *SELECTION-SCREEN COMMENT 27(12) text-003. *PARAMETERS : pr_del RADIOBUTTON GROUP grp1. *SELECTION-SCREEN COMMENT 50(12) text-004. *PARAMETERS : pr_inv RADIOBUTTON GROUP grp1. *SELECTION-SCREEN END OF LINE. * *SELECTION-SCREEN SKIP 1. *SELECTION-SCREEN END OF BLOCK blk1.

****************************************************************************** *****displaying all radiobutton in single line **SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. **SELECTION-SCREEN SKIP 1. ** **SELECTION-SCREEN BEGIN OF LINE. **PARAMETERS : pr_sal RADIOBUTTON GROUP grp1. **SELECTION-SCREEN COMMENT 3(20) text-002. **PARAMETERS : pr_del RADIOBUTTON GROUP grp1. **SELECTION-SCREEN COMMENT 27(20) text-003. **PARAMETERS : pr_inv RADIOBUTTON GROUP grp1. **SELECTION-SCREEN COMMENT 50(20) text-004. **SELECTION-SCREEN END OF LINE. ** **SELECTION-SCREEN SKIP 1. **SELECTION-SCREEN END OF BLOCK blk1.