SE71 FORM的制作程序

DATA : TIT1(20) TYPE C.
TIT1 = '总部'.
DATA SPFLI TYPE TABLE OF SPFLI WITH HEADER LINE.
SELECT * INTO TABLE SPFLI FROM SPFLI.
*调用form
CALL FUNCTION 'OPEN_FORM'
EXPORTING
FORM = 'YTFORM01'.
*输出标题
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'TIT'
FUNCTION = 'SET'
TYPE = 'BODY'
WINDOW = 'SUB1'.
*输出内容
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'DATA'
FUNCTION = 'SET'
TYPE = 'BODY'
WINDOW = 'MAIN'.
*循环输出表内容
LOOP AT SPFLI.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WASPFLI'
FUNCTION = 'SET'
TYPE = 'BODY'
WINDOW = 'MAIN'.
ENDLOOP.
*关闭窗口
CALL FUNCTION 'CLOSE_FORM'.