SAP IDES中SPFLI表中生成数据.rar_SAP IDES中SPFLI表中生成数据_SAPSPFLI

原来，SAP是提供SFLIGHT等数据的产生器的 2014-01-13 14:41:52 分类： IT生活 在一些系统可能会碰到表SFLIGHT没有数据的情况，因为网上的很多测试代码都是用这几个表做数据源的，所以没有数据非常麻烦。 碰到这种情况，要不就认倒霉或者自个写只程序，把数据导入。 其实，SAP早已提供一只程序为我们自动生成数据的。 Program：SAPBC_DATA_GENERATOR。 SE38进入程序界面，写入程序名称，点击执行，界面非常简单，按照你的需要选择生成的记录数即可。 image *&---------------------------------------------------------------------* *& Report ZLIU_008 *& www.qiqubaike.com *&---------------------------------------------------------------------* *& 生成SPFLI表的测试数据 *& *&---------------------------------------------------------------------* REPORT ZLIU_008. DATA: BEGIN OF ET_SPFLI OCCURS 0. INCLUDE STRUCTURE SPFLI. DATA: END OF ET_SPFLI. DATA: BEGIN OF ET_SFLIGHT OCCURS 0. INCLUDE STRUCTURE SFLIGHT. DATA: END OF ET_SFLIGHT. DELETE FROM SPFLI. *WRITE: / 'Delete records:',SY-DBCNT. DELETE FROM SFLIGHT. *WRITE: / 'Delete records:',SY-DBCNT. CLEAR sy-SUBRC. CALL FUNCTION 'BCALV_GENERATE_TEST_DATA' EXPORTING I_AMOUNT_SPFLI = 100 I_AMOUNT_SFLIGHT = 100 TABLES ET_SPFLI = ET_SPFLI ET_SFLIGHT = ET_SFLIGHT. INSERT SPFLI FROM TABLE ET_SPFLI ACCEPTING DUPLICATE KEYS. *WRITE: / 'Insert records:',SY-DBCNT. IF sy-SUBRC = '0'. WRITE:/'表SPFLI已经成功生成数据。'. else. WRITE:/'恭喜你，表SPFLI没成功成数据。'. ENDIF. CLEAR sy-SUBRC. INSERT SFLIGHT FROM TABLE ET_SFLIGHT ACCEPTING DUPLICATE KEYS. *WRITE: / 'Insert records:',SY-DBCNT. IF sy-SUBRC = '0'. WRITE:/'表SFLIGHT已经成功生成数据。'. else. WRITE:/'恭喜你，表SFLIGH没成功成数据。'. ENDIF. CLEAR sy-SUBRC. *DATA scarr_wa TYPE scarr. * *scarr_wa-carrid = 'FF'. *scarr_wa-carrname = 'Funny Flyers'. *scarr_wa-currcode = 'EUR'. *scarr_wa-url = 'http://www.funnyfly.com'. * *INSERT INTO scarr VALUES scarr_wa. DATA: BEGIN OF MY_DATA, MANDT LIKE SCARR-MANDT, "WB 培训数据模型 BC_Travel 的集团 CARRID LIKE SCARR-CARRID, "航线承运人ID CARRNAME LIKE SCARR-CARRNAME, "航班名称 CURRCODE LIKE SCARR-CURRCODE, "航班的本地货币 URL LIKE SCARR-URL, "Airline URL END OF MY_DATA. DATA: IT_DATA LIKE MY_DATA OCCURS 0. DELETE FROM SCARR. *WRITE: / 'Delete records:',SY-DBCNT. SELECT ALV_T_T2~MANDT ALV_T_T2~CARRID ALV_T_T2~AIRPTO ALV_T_T2~CURRENCY AS CURRCODE INTO CORRESPONDING FIELDS OF TABLE IT_DATA FROM ALV_T_T2. INSERT SCARR FROM TABLE IT_DATA ACCEPTING DUPLICATE KEYS. *WRITE: / 'Insert records:',SY-DBCNT. IF sy-SUBRC = '0'. WRITE:/'表SCARR已经成功生成数据。'. else. WRITE:/'恭喜你，表SCARR没成功成数据。'. ENDIF. CLEAR sy-SUBRC. SKIP 5. WRITE:/'请去表spfli、sflight、scarr看看，有时候spfli有数据了也会提示没有更新。╮(╯▽╰)╭'. SKIP 3. WRITE:/' (()__(()'. WRITE:/' / \'. WRITE:/' ( / \ \'. WRITE:/' \ o o /'. WRITE:/' (_()_)__/ \'. WRITE:/' / _,==.____ \'. WRITE:/' ( |--| )'. WRITE:/' /\_.|__|-- __/\_'. WRITE:/' / ( / \'. WRITE:/' \ \ ( /'. WRITE:/' ) \______) /'. WRITE:/' (((____.--(((____/ '. WRITE:/ sy-uLINE.