RSA3 TEST
enhancement: RSAP0001
标准增强实例模板
转自 屠夫
*----------------------------------------------------------------------*
* INCLUDE ZXRSAU01 *
*----------------------------------------------------------------------*
DATA: l_tabix LIKE sy-tabix.
CASE I_DATASOURCE.
WHEN '2LIS_13_VDITM'.
TABLES: vbak.
DATA: ds_struct LIKE MC13VD0ITM,
z_audat LIKE vbak-audat,
z_bstdk LIKE vbak-bstdk.
LOOP AT C_T_DATA INTO ds_struct.
l_tabix = sy-tabix.
SELECT SINGLE audat bstdk
INTO (z_audat, z_bstdk)
FROM vbak
WHERE vbeln = ds_struct-aubel.
IF SY-SUBRC = 0.
ds_struct-audat = z_audat.
ds_struct-bstdk = z_bstdk.
MODIFY C_T_DATA FROM ds_struct INDEX l_tabix.
ENDIF.
ENDLOOP.
WHEN OTHERS.
EXIT.
ENDCASE.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/13895577/viewspace-668847/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/13895577/viewspace-668847/