用write输出带有表头的格式化数据报表

作业1 建立程序ZBC2_<YN>_HM1.
1 进入ABAP数据字典，查看表sflight的表结构
2 建立内表it_sflight和工作区wa_sflight，数据类型与sflight相同
3 建立选择屏幕，其中carrid字段，要求用户选择一项，connid和fldate字段，用户可以选定一定范围的数据
4 根据用户的选择，输出数据，
要求输出的字段：carrid connid fldate price currency planetype seatsmax seatsocc
注意，对于金额类型的字段，输出时一般还要输出它的币种。
此外，不同币种输出的格式还不尽相同，在用WRITE语句输出金额字段时需要相应的调整语句。具体语法通过系统帮助查看。
5 将输出的数据格式化，要求有表头，每个单元格有横线和竖线区分。表头的颜色与数据的颜色不一样，每行数据的主键字段与普通字段颜色不一样。

选择屏幕：

执行效果：


主程序代码：

1. REPORT  ZLXG_HM1 LINE-SIZE 107.
   
2. DATA:WA_SFLIGHT TYPE SFLIGHT.
   
3. DATA:IT_SFLIGHT TYPE STANDARD TABLE OF SFLIGHT.
   
4. 
   
5. PARAMETERS:PA_CARR TYPE SFLIGHT-CARRID.
   
6. SELECT-OPTIONS:SO_CONN FOR WA_SFLIGHT-CONNID,
   
7.                SO_FLDA FOR WA_SFLIGHT-FLDATE.
   
8. 
   
9. SELECT *
   
10.   FROM SFLIGHT
    
11.   INTO CORRESPONDING FIELDS OF TABLE IT_SFLIGHT
    
12.   WHERE CARRID = PA_CARR
    
13.   AND CONNID IN SO_CONN
    
14.   AND FLDATE IN SO_FLDA.
    
15. 
    
16. FORMAT COLOR COL_HEADING. "头部显示COL_HEADING颜色
    
17. ULINE.
    
18. WRITE:/ SY-VLINE, AT 2(10) 'carrid'(001) ,"SY-VLINE:竖线  2(10)：在第2个位置 输出长度为10的字符串
    
19.         SY-VLINE, AT 14(10)'connid'(002),
    
20.         SY-VLINE, AT 26(20)'fldate'(003),
    
21.         SY-VLINE, AT 48(10)'price'(004),
    
22.         SY-VLINE, AT 60(10)'currency'(005),
    
23.         SY-VLINE, AT 72(10)'planetype'(006),
    
24.         SY-VLINE, AT 84(10)'seatsmax'(007),
    
25.         SY-VLINE, AT 96(10)'seatsocc'(008),
    
26.         SY-VLINE.
    
27. ULINE.
    
28. FORMAT RESET."颜色重置结束
    
29. 
    
30. LOOP AT IT_SFLIGHT INTO WA_SFLIGHT.
    
31. WRITE:/ SY-VLINE, AT 2(10)  WA_SFLIGHT-carrid COLOR COL_KEY,
    
32.         SY-VLINE, AT 14(10) WA_SFLIGHT-connid COLOR COL_KEY,
    
33.         SY-VLINE, AT 26(20) WA_SFLIGHT-fldate COLOR COL_KEY,
    
34.         SY-VLINE, AT 48(10) WA_SFLIGHT-price CURRENCY WA_SFLIGHT-currency,
    
35.         SY-VLINE, AT 60(10) WA_SFLIGHT-currency,
    
36.         SY-VLINE, AT 72(10) WA_SFLIGHT-planetype,
    
37.         SY-VLINE, AT 84(10) WA_SFLIGHT-seatsmax,
    
38.         SY-VLINE, AT 96(10) WA_SFLIGHT-seatsocc,
    
39.         SY-VLINE.
    
40.         ULINE.
    
41. ENDLOOP.

复制代码