ZBlog学习笔记

程序：LSDSDF03

perform：map_itab_to_record_tab

IF LINE_EXISTS( FIELDDESCR[ TABNAME = 'M_MCHSW' ] ) AND SY-TCODE EQ 'VL02N'.
  FIELD-SYMBOLS: <F_MATNR> TYPE MATNR,
                 <F_WERKS> TYPE WERKS_D,
                 <F_CHARG> TYPE CHARG_D,
                 <F_KUNNR> TYPE KUNNR,
                 <F_KULAB> TYPE LABST.

  LOOP AT SOURCE_TAB.
    ASSIGN COMPONENT 'MATNR' OF STRUCTURE SOURCE_TAB TO <F_MATNR>.
    ASSIGN COMPONENT 'WERKS' OF STRUCTURE SOURCE_TAB TO <F_WERKS>.
    ASSIGN COMPONENT 'CHARG' OF STRUCTURE SOURCE_TAB TO <F_CHARG>.
    ASSIGN COMPONENT 'KUNNR' OF STRUCTURE SOURCE_TAB TO <F_KUNNR>.
    ASSIGN COMPONENT 'KULAB' OF STRUCTURE SOURCE_TAB TO <F_KULAB>.
    SELECT SINGLE KULAB FROM MSKU
     WHERE MATNR EQ @<F_MATNR>
       AND WERKS EQ @<F_WERKS>
       AND CHARG EQ @<F_CHARG>
       AND KUNNR EQ @<F_KUNNR>
      INTO @DATA(LV_KULAB).
    <F_KULAB> = LV_KULAB.
    MODIFY SOURCE_TAB.
  ENDLOOP.
ENDIF.