请注意程序中的五处红色标记的代码,其他代码请用户自己按自己的需要进行修改
*&---------------------------------------------------------*
*& REPORT CREATE TRANSFER *
*&---------------------------------------------------------*
*& Create date : 2007/06/21 *
*& Program type : Report *
*&---------------------------------------------------------*
*& Modifications : *
*& Date | Programmer |Change request | Description *
*& *
*&-------------------------------------------------------- *
REPORT zsdpr_yfdj MESSAGE-ID zmc01 NO STANDARD PAGE HEADING LINE-SIZE 500.
************************************************************
* TABLES
************************************************************
TABLES : zadtb_yf.
TYPE-POOLS: slis.
************************************************************
*INTERNAL TABLE DEFINITION
************************************************************
DATA: BEGIN OF gs_it,
lfdat(10),
vbeln(50),
zstation(20),
END OF gs_it.
DATA : gt_it LIKE gs_it OCCURS 0 WITH HEADER LINE.
DATA : gt_itab LIKE zadtb_yf OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF gs_yf OCCURS 0 .
*1内表增加一个选中字段
DATA: gv_check TYPE c.
INCLUDE TYPE zadtb_yf.
DATA: END OF gs_yf.
DATA : gt_yf LIKE gs_yf OCCURS 0 WITH HEADER LINE.