abap调用代码块

1：abap 调用代码块。

*&---------------------------------------------------------------------*
*& Report ZHANSEN31
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZHANSEN31.
data lv_text1(10) TYPE c VALUE 'basic list'.
data lv_text2(20) type c VALUE 'list2'.

START-OF-SELECTION.   " event block.
  DO 5 TIMES.
    PERFORM lf_output_line using sy-index.  "执行事件块
  ENDDO.

form lf_output_line USING p_index.
  write: / p_index.
ENDFORM.