工具函数：把一个工作区中非空字段值付给另一个工作区相同字段_SAP刘梦_新浪博客...

​​

FUNCTION ZFM_MOVE_CORRESPONDING
 .
 
 *"----------------------------------------------------------------------
 
 *"*"Local interface:
 
 *"  IMPORTING
 
 *"     REFERENCE(IS_INPUT) OPTIONAL
 
 *"     REFERENCE(IV_STRUCTURE) OPTIONAL
 
 *"  CHANGING
 
 *"     REFERENCE(CS_INPUT) OPTIONAL
 
 *"----------------------------------------------------------------------

  FIELD-SYMBOLS : 
                《 L_FIELD》       TYPE  ANY ,                                  "从工作区结构 
                《 L_FIELD_C 》  TYPE  ANY .                                  "到工作区结构 
* 
   DATA  : LT_IDETAILS  TYPE ABAP_COMPDESCR_TAB  WITH  HEADER  LINE . 
   DATA  : LR_REF_TABLE_DES  TYPE  REF  TO CL_ABAP_STRUCTDESCR . 


  LR_REF_TABLE_DES ?= 
        CL_ABAP_TYPEDESCR =>DESCRIBE_BY_NAME ( IV_STRUCTURE  ) . 

   CLEAR LT_IDETAILS[] . 
  LT_IDETAILS[]  = LR_REF_TABLE_DES ->COMPONENTS[] . 

   "循环判断结构每个字段 
   LOOP  AT LT_IDETAILS . 
     ASSIGN  COMPONENT LT_IDETAILS -NAME  OF  STRUCTURE IS_INPUT  TO  《 L_FIELD 》   . 
     IF SY-SUBRC = 0 AND  IS NOT INITIAL. 
       ASSIGN  COMPONENT LT_IDETAILS -NAME  OF  STRUCTURE CS_INPUT  TO  《  L_FIELD_C   》 .
IF SY-SUBRC = 0 
           《  L_FIELD_C   》 =   《 L_FIELD 》 .
endif. 
     ENDIF . 
   ENDLOOP . 



ENDFUNCTION .


测试程序：
REPORT  YLM_TEST026.


DATA: LW_SPFLI LIKE SPFLI.
DATA: LW_SPFLI2 LIKE SPFLI.

SELECT SINGLE * FROM SPFLI INTO LW_SPFLI.


CALL FUNCTION 'ZFM_MOVE_CORRESPONDING'
  EXPORTING
    IS_INPUT     = LW_SPFLI
    IV_STRUCTURE = 'SPFLI'
  CHANGING
    CS_INPUT     = LW_SPFLI2.

IF 1 = 2.

ENDIF.

注释：因为字段负号中尖括号会被web解码时误读，故外面加了书名号： 《  L_FIELD_C  》

字段符合赋值后，必须判断subr再操作，不然可能会dump

欢迎关注订阅号：SAP学习记录 （SAPlearning ）

​​