案例：

REPORT?ZFIR_ARAGE_SAVE.
*----------------------------------------------------------------------*
*?TABLE?DECLARATION
*----------------------------------------------------------------------*
TYPE-POOLS:?SLIS.
TABLES:T001.

*&---------------------------------------------------------------------*
*?INTERNAL?TABLE?DECLARATION
*&---------------------------------------------------------------------*
DATA:?GT_ITAB?TYPE?STANDARD?TABLE?OF?ZFT_AR_AGE,
??????GW_ITAB?TYPE?ZFT_AR_AGE.
FIELD-SYMBOLS?<ITAB>?TYPE?ZFT_AR_AGE.

*&---------------------------------------------------------------------*
*?SELECTION?SCREEN?DECLARATION
*&---------------------------------------------------------------------*
SELECTION-SCREEN:BEGIN?OF?BLOCK?B1?WITH?FRAME?TITLE?TEXT-001.
SELECT-OPTIONS:
S_BUKRS?FOR?T001-BUKRS.
SELECTION-SCREEN?END?OF?BLOCK?B1.

*&---------------------------------------------------------------------*
*?START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
??REFRESH?GT_ITAB.
??DATA?:?LT_T001?LIKE?TABLE?OF?T001?WITH?HEADER?LINE.
??SELECT?*?FROM?T001?INTO?TABLE?LT_T001
??WHERE?KTOPL?=?'DJJT'?AND?BUKRS?IN?S_BUKRS.
??LOOP?AT?LT_T001.
????PERFORM?FRM_GET_DATA?USING?LT_T001-BUKRS.
??ENDLOOP.

??PERFORM?FRM_SAVE_DATA.

*&---------------------------------------------------------------------*
*&??????Form??FRM_GET_DATA
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
*??-->??p1????????text
*??<--??p2????????text
*----------------------------------------------------------------------*
FORM?FRM_GET_DATA?USING???P_BUKRS?TYPE?T001-BUKRS.
??DATA?:?LT_ARAGE?TYPE?STANDARD?TABLE?OF?ZFT_AR_AGE,
?????????LW_ARAGE?TYPE?ZFT_AR_AGE.

??RANGES?:?R_BUKRS?FOR?T001-BUKRS,
???????????R_KUNNR?FOR?VBAK-KUNNR,
???????????R_BUDAT?FOR?BKPF-BUDAT.

??REFRESH?LT_ARAGE.

??SET?PARAMETER?ID?'ZEXPORT_ZFI054'?FIELD?'X'.

??CLEAR?:?R_BUKRS.
??R_BUKRS-SIGN?=?'I'.
??R_BUKRS-OPTION?=?'EQ'.
??R_BUKRS-LOW?=?P_BUKRS.
??APPEND?R_BUKRS.

??SUBMIT?ZFIR_AR_AGE
??AND?RETURN
??WITH?S_BUKRS?IN?R_BUKRS
??WITH?S_KUNNR?IN?R_KUNNR
??WITH?S_BUDAT?IN?R_BUDAT
??WITH?P_JZR?=?SY-DATUM
??WITH?P_ZERO?=?'X'
??WITH?P_RFBSK?=?'X'
??WITH?P_NBGS?=?''
??WITH?P_FS?=?''
??WITH?P_QTYS?=?''.

??IMPORT?LT_ARAGE??FROM?MEMORY?ID?'ZFI054'.
??SET?PARAMETER?ID?'ZEXPORT_ZFI054'?FIELD?SPACE.

??LOOP?AT?LT_ARAGE?INTO?LW_ARAGE.
????MOVE-CORRESPONDING?LW_ARAGE?TO?GW_ITAB.
????IF?GW_ITAB-VKORG?IS?NOT?INITIAL?AND?GW_ITAB-BUKRS?IS?NOT?INITIAL.
??????GW_ITAB-GJAHR?=?SY-DATUM+0(4).
??????GW_ITAB-MONAT?=?SY-DATUM+4(2).
??????APPEND?GW_ITAB?TO?GT_ITAB.
????ENDIF.
??ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*&??????Form??FRM_SAVE_DATA
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
*??-->??p1????????text
*??<--??p2????????text
*----------------------------------------------------------------------*
FORM?FRM_SAVE_DATA?.

??IF?GT_ITAB?IS?NOT?INITIAL.
????MODIFY?ZFT_AR_AGE?FROM?TABLE?GT_ITAB.
????IF?SY-SUBRC?=?0?.
??????COMMIT?WORK.
??????MESSAGE?'Save?successful！'?TYPE?'S'.
????ELSE.
??????ROLLBACK?WORK.
??????MESSAGE?'Save?failed！'?TYPE?'E'.
????ENDIF.
??ELSE.
????MESSAGE?'No?data!'?TYPE?'E'.
??ENDIF.

ENDFORM.

總結(jié)

以上是生活随笔為你收集整理的接口调用报表结果的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。