DATA: it_spfli LIKE spfli OCCURS 10 WITH HEADER LINE.
START-OF-SELECTION.
* read flights
SELECT * FROM spfli INTO TABLE it_spfli UP TO 10 ROWS.
* display header
ULINE (61).
WRITE: / sy-vline NO-GAP,
(3) 'Flg'(001) COLOR COL_HEADING NO-GAP, sy-vline NO-GAP,"(001),...这些好像不要也可以
(4) 'Nr'(002) COLOR COL_HEADING NO-GAP, sy-vline NO-GAP,
(20) 'Von'(003) COLOR COL_HEADING NO-GAP, sy-vline NO-GAP,
(20) 'Nach'(004) COLOR COL_HEADING NO-GAP, sy-vline NO-GAP,
(8) 'Zeit'(005) COLOR COL_HEADING NO-GAP, sy-vline NO-GAP.
"61 = 55 + 6.(6代表六个vline),3,4,20,20这些长度分别是与各个字段对应的,不能改变
ULINE /(61).
* display flights
LOOP AT it_spfli.
WRITE: / sy-vline NO-GAP,
it_spfli-carrid COLOR COL_KEY NO-GAP, sy-vline NO-GAP,
it_spfli-connid COLOR COL_NORMAL NO-GAP, sy-vline NO-GAP,
it_spfli-cityfrom COLOR COL_NORMAL NO-GAP, sy-vline NO-GAP,
it_spfli-cityto COLOR COL_NORMAL NO-GAP, sy-vline NO-GAP,
it_spfli-deptime COLOR COL_NORMAL NO-GAP, sy-vline NO-GAP.
ENDLOOP.
ULINE /(61).
评论