복잡한 입력팝업 간단하게 만들기

쓸데가 언제가 있겠지?

아래는 소스

*출처: 원페이퍼

START-OF-SELECTION.

PERFORM call_popup.

FORM call_popup.

TABLES : sflight.

DATA: lv_carrid TYPE s_carr_id,

lt_werks TYPE gds_selrange_werks_tab,

lv_check TYPE xfeld,

lv_radio1 TYPE xfeld,

lv_radio2 TYPE xfeld.

DATA : lt_att TYPE sci_atttab ,

ls_att TYPE sci_attent.

DATA : l_ref TYPE REF TO data.

CREATE DATA l_ref TYPE REF TO xfeld.

* parameters

GET REFERENCE OF lv_carrid INTO l_ref.

ls_att-kind = 'S'.

ls_att-text = 'Parameter'.

ls_att-obligatory = 'Y'.

ls_att-ref = l_ref.

APPEND ls_att TO lt_att.

* SELECT-OPTIONS

GET REFERENCE OF lt_werks INTO l_ref.

ls_att-kind = 'S'.

ls_att-text = 'Select Option'.

ls_att-ref = l_ref.

APPEND ls_att TO lt_att.

* Check box

GET REFERENCE OF lv_check INTO l_ref.

ls_att-kind = 'C'.

ls_att-text = 'Check box'.

ls_att-ref = l_ref.

APPEND ls_att TO lt_att.

* Radio button

GET REFERENCE OF lv_radio1 INTO l_ref.

ls_att-kind = 'R'.

ls_att-text = 'Radio 1'.

ls_att-button_group = 'MOD'.

ls_att-ref = l_ref.

APPEND ls_att TO lt_att.

GET REFERENCE OF lv_radio2 INTO l_ref.

ls_att-kind = 'R'.

ls_att-text = 'Radio 2'.

ls_att-button_group = 'MOD'.

ls_att-ref = l_ref.

APPEND ls_att TO lt_att.

CALL METHOD cl_ci_query_attributes=>generic

EXPORTING

p_name = 'TEST'

p_title = 'TEST2'

p_attributes = lt_att

* p_message =

p_display = ''

* receiving

* p_break =

.

BREAK-POINT.

ENDFORM.