表头定义:
FORM TOP_OF_PAGE.
PERFORM TITLE USING
SY-LINSZ '公司名称(CHINA)'
'公司英文名称(CHINA)'.
WRITE :75 '表名称'.
ENDFORM. "TOP_OF_PAGE
页脚定义:
FORM FOOT.
SKIP.SKIP.
WRITE :/ 'Prepared by:',30 'Approved by:',60 'Checked by QC:',
100'WH:',135 'PAGE:',SY-PAGNO.
ENDFORM. "Foot
表体略...................
输出表内容:
FORM ALV_HEADER .
CLEAR: GT_EVENTS. REFRESH: GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'TOP_OF_PAGE'.
FS_EVENTCAT-FORM = 'TOP_OF_PAGE'.
APPEND FS_EVENTCAT TO GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'END_OF_LIST'.
FS_EVENTCAT-FORM = 'FOOT'.
APPEND FS_EVENTCAT TO GT_EVENTS.
ENDFORM.
FORM TOP_OF_PAGE.
PERFORM TITLE USING
SY-LINSZ '公司名称(CHINA)'
'公司英文名称(CHINA)'.
WRITE :75 '表名称'.
ENDFORM. "TOP_OF_PAGE
页脚定义:
FORM FOOT.
SKIP.SKIP.
WRITE :/ 'Prepared by:',30 'Approved by:',60 'Checked by QC:',
100'WH:',135 'PAGE:',SY-PAGNO.
ENDFORM. "Foot
表体略...................
输出表内容:
FORM ALV_HEADER .
CLEAR: GT_EVENTS. REFRESH: GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'TOP_OF_PAGE'.
FS_EVENTCAT-FORM = 'TOP_OF_PAGE'.
APPEND FS_EVENTCAT TO GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'END_OF_LIST'.
FS_EVENTCAT-FORM = 'FOOT'.
APPEND FS_EVENTCAT TO GT_EVENTS.
ENDFORM.