表单

*&---------------------------------------------------------------------*
*& Report  ZCWWRITE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZCWWRITE line-size 124 line-count 125 no standard page heading.

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

DATA: FM_NAME TYPE RS38L_FNAM.

*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.

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 30 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.
 ULINE.
LOOP AT itab.
  IF itab-lifnr is INITIAL.
 itab-lifnr = '我为什么是空的'.
  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.

       end-OF-SELECTION .

       CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
            EXPORTING
              FORMNAME                 = 'ZCWWRITE'
            IMPORTING
              FM_NAME                  = FM_NAME
            EXCEPTIONS
              NO_FORM                  = 1
              NO_FUNCTION_MODULE       = 2
              OTHERS                   = 3.

        IF SY-SUBRC <> 0 .

        ENDIF.

        CALL FUNCTION FM_NAME
            EXPORTING
              G_WERKS                  = P_WERKS

            TABLES
              ITAB                    = ITAB