Write分页输出小试例

  REPORT  ZCWWRITE2 line-size 124  no standard page heading.

tables: marc,makt,mard,ekpo,ekko.

*data: itab like table of marc with header line.
DATA : BEGIN OF itab OCCURS 0,
  matnr like MARC-MATNR ,
  werks LIKE MARC-WERKS ,
  LIFNR LIKE EKKO-LIFNR ,


  END OF itab.

*DATA : item LIKE itab OCCURS 10 WITH HEADER LINE.
DATA : NO TYPE i,
       NO1 TYPE i.

SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE t1.
  PARAMETERS: P_WERKS LIKE EKPO-WERKS OBLIGATORY.
  SELECT-OPTIONS: S_LIFNR FOR EKKO-LIFNR.

  SELECTION-SCREEN END OF BLOCK A1.

  INITIALIZATION.
  t1 = '这个程序是用来测试WRITE输出的'.

START-OF-SELECTION.

SELECT marc~matnr marc~werks ekko~lifnr UP TO 50 ROWS FROM marc
  LEFT JOIN ekko on ekko~mandt = marc~mandt

 into CORRESPONDING FIELDS OF TABLE itab

  .

*  SELECT * UP TO 30 ROWS FROM marc
*  into CORRESPONDING FIELDS OF TABLE itab.
 SORT itab by matnr.
* DELETE ADJACENT DUPLICATES FROM itab COMPARING ALL FIELDS.

 ULINE.
LOOP AT itab.
*  IF itab-lifnr is INITIAL.
* itab-lifnr = '我为什么是空的'.
*  ENDIF.
  NO = NO + 1.
  NO1 = NO mod 20.
  IF NO1 = 0.
    NEW-PAGE.

  ENDIF.
  WRITE : / sy-vline NO-GAP,  4(8) itab-matnr NO-GAP CENTERED,
            sy-vline NO-GAP,   (10) itab-werks NO-GAP,
            sy-vline NO-GAP,    (15) itab-lifnr NO-GAP CENTERED,
             sy-vline NO-GAP.
  WRITE :  124 sy-vline .


  ULINE.
  ENDLOOP.
  SKIP 1.
  WRITE : '成功'.
  TOP-OF-PAGE.
  PERFORM TOP.
  FORM TOP.
  case P_WERKS.
     when  '1008'.
       WRITE : 45  '康传集团龙华工厂'.
       WHEN OTHERS.
         WRITE :40 '其它的工厂'.
       ENDCASE.
       ULINE.
       WRITE : / sy-vline     NO-GAP,    4(8)     '物料号' NO-GAP CENTERED,
                  sy-vline    NO-GAP,    (10)    '工厂'   NO-GAP,
                  sy-vline    NO-GAP,    (15)     '供应商代号' NO-GAP CENTERED,
                  sy-vline    NO-GAP.
       WRITE : 124 sy-vline.




       ENDFORM.