saplyphtesttest create a alv

[linyizhong]

REPORT z_alv_example.

" 数据声明
DATA: gt_data TYPE TABLE OF spfli,
gs_data TYPE spfli.

" ALV相关声明
DATA: gt_fieldcat TYPE lvc_t_fcat,
gs_fieldcat TYPE lvc_s_fcat,
gt_layout TYPE lvc_s_layo,
gt_events TYPE slis_t_event,
gs_event TYPE slis_alv_event.

" 数据选择
SELECT * FROM spfli INTO TABLE gt_data.

" 准备字段目录
PERFORM prepare_fieldcat USING 'CARRID' '航空公司' 10.
PERFORM prepare_fieldcat USING 'CONNID' '航班连接编号' 10.
PERFORM prepare_fieldcat USING 'CITYFROM' '出发城市' 20.
PERFORM prepare_fieldcat USING 'CITYTO' '目的城市' 20.
PERFORM prepare_fieldcat USING 'AIRPFROM' '出发机场' 20.
PERFORM prepare_fieldcat USING 'AIRPTO' '目的机场' 20.

" 显示ALV
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_structure_name = 'SPFLI'
it_fieldcat = gt_fieldcat
TABLES
t_outtab = gt_data
EXCEPTIONS
program_error = 1
OTHERS = 2.

IF sy-subrc <> 0.
WRITE: / 'Error in ALV display'.
ENDIF.

" 准备字段目录的子程序
FORM prepare_fieldcat USING p_fieldname p_coltext p_outputlen.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = p_fieldname.
gs_fieldcat-seltext_m = p_coltext.
gs_fieldcat-outputlen = p_outputlen.
APPEND gs_fieldcat TO gt_fieldcat.
ENDFORM.

[linyizhong]

REPORT zfull_sample.

* PARAMETERS の定義
PARAMETERS: p_id TYPE ztest_table-id OBLIGATORY,
p_name TYPE ztest_table-name,
p_date TYPE ztest_table-date,
p_time TYPE t,
p_list TYPE c LENGTH 10 AS LISTBOX VISIBLE LENGTH 10 DEFAULT 'Option1'.

* SELECT-OPTIONS の定義
SELECT-OPTIONS: s_id FOR ztest_table-id,
s_date FOR ztest_table-date.

* チェックボックス
PARAMETERS: p_check AS CHECKBOX.

* ラジオボタン
PARAMETERS: p_radio1 RADIOBUTTON GROUP rad1 DEFAULT 'X',
p_radio2 RADIOBUTTON GROUP rad1,
p_radio3 RADIOBUTTON GROUP rad1.

* リストボックス用の値の宣言と初期化
DATA: lt_listbox TYPE vrm_values,
ls_listbox TYPE vrm_value.

INITIALIZATION.
ls_listbox-key = 'Option1'.
ls_listbox-text = 'Option 1'.
APPEND ls_listbox TO lt_listbox.
ls_listbox-key = 'Option2'.
ls_listbox-text = 'Option 2'.
APPEND ls_listbox TO lt_listbox.
ls_listbox-key = 'Option3'.
ls_listbox-text = 'Option 3'.
APPEND ls_listbox TO lt_listbox.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_LIST'
values = lt_listbox.

* 内部テーブルの定義
DATA: lt_results TYPE TABLE OF ztest_table,
ls_result TYPE ztest_table.

START-OF-SELECTION.

* データ選択
SELECT * FROM ztest_table
INTO TABLE lt_results
WHERE id IN s_id
AND date IN s_date
AND name = p_name.

* 結果の表示
LOOP AT lt_results INTO ls_result.
WRITE: / ls_result-id, ls_result-name, ls_result-date.
ENDLOOP.

* チェックボックスの状態を表示
IF p_check = 'X'.
WRITE: / 'チェックボックスはチェックされています'.
ELSE.
WRITE: / 'チェックボックスはチェックされていません'.
ENDIF.

* 選択されたラジオボタンの表示
IF p_radio1 = 'X'.
WRITE: / 'ラジオボタン1が選択されています'.
ELSEIF p_radio2 = 'X'.
WRITE: / 'ラジオボタン2が選択されています'.
ELSEIF p_radio3 = 'X'.
WRITE: / 'ラジオボタン3が選択されています'.
ENDIF.

* 選択されたリストボックスの値を表示
WRITE: / '選択されたリストボックスの値:', p_list.

[RaymondGiuseppi]

What's your question, you posted in Q&A area.
(Also REUSE FMs are nowadays outdated if not obsolete)

[linyizhong]

プログラムの解説

1. PARAMETERS:

   • p_id：必須入力のIDパラメータ。
   • p_name：名前パラメータ。
   • p_date：日付パラメータ。
   • p_time：時間パラメータ。
   • p_list：リストボックスパラメータ。

2. SELECT-OPTIONS:

   • s_id：IDの範囲選択オプション。
   • s_date：日付の範囲選択オプション。

3. チェックボックス:

   • p_check：チェックボックスパラメータ。

4. ラジオボタン:

   • p_radio1, p_radio2, p_radio3：ラジオボタンパラメータ。

5. リストボックス:

   • リストボックスの値を初期化するために、INITIALIZATION イベントで VRM_SET_VALUES を使用しています。

6. データ選択と表示:

   • SELECT ステートメントでデータを選択し、WRITE ステートメントで結果を表示しています。
   • チェックボックスの状態、選択されたラジオボタン、リストボックスの選択値も表示しています。