请先看下面程序!问题跟在程序后面
*&----------------------------------------------------------------------
*& STRUCTURE
*&----------------------------------------------------------------------
TYPES: BEGIN OF ST_KANJYOU,
ERGSL TYPE ERGSL,
BUKRS TYPE BUKRS,
SKANR TYPE SAKNR,
RYEAR TYPE GJAHR,
DRCRK TYPE SHKZG,
HSLVT TYPE HSLVT,
HSL01 TYPE HSLXX,
HSL02 TYPE HSLXX,
HSL03 TYPE HSLXX,
HSL04 TYPE HSLXX,
HSL05 TYPE HSLXX,
HSL06 TYPE HSLXX,
HSL07 TYPE HSLXX,
HSL08 TYPE HSLXX,
HSL09 TYPE HSLXX,
HSL10 TYPE HSLXX,
HSL11 TYPE HSLXX,
HSL12 TYPE HSLXX,
HSL13 TYPE HSLXX,
HSL14 TYPE HSLXX,
HSL15 TYPE HSLXX,
HSL16 TYPE HSLXX,
IDTYPE SEU_ID,
END OF ST_KANJYOU.
*&----------------------------------------------------------------------
*& INNER TABLE
*&----------------------------------------------------------------------
* 这两个表结构都是一样的。只是用途和名字不一样
DATA: IT_OKANJYOU TYPE STANDARD TABLE OF ST_KANJYOU
INITIAL SIZE 1000,
IT_CKANJYOU TYPE STANDARD TABLE OF ST_KANJYOU
INITIAL SIZE 1000.
*&----------------------------------------------------------------------
*& WORK AREAR
*&----------------------------------------------------------------------
* 工作领域
DATA: HE_OKANJYOU TYPE ST_KANJYOU,
HE_CKANJYOU TYPE ST_KANJYOU.
*&---------------------------------------------------------------------*
*&FormMONEY_SET_OSUM
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
FORM MONEY_SET_OSUM.
LOOP AT IT_OKANJYOU INTO HE_OKANJYOU.
........
ENDLOOP.
ENDFORM
*&---------------------------------------------------------------------*
*&FormMONEY_SET_CSUM
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
FORM MONEY_SET_CSUM.
LOOP AT IT_CKANJYOU INTO HE_CKANJYOU.
.........
ENDLOOP.
ENDFORM
我想把以上
FORM MONEY_SET_OSUM.
FORM MONEY_SET_CSUM.
两个函数合并成为一个函数通过传递一个标志位来判断程序但前处理的是表IT_OKANJYOU还是IT_CKANJYOU。
但是:以上两个函数有LOOP ATXXXXX INTO XXXXX.
所以请问我如何用FIELD-SYMBOLS来实现呢。
请给一段代码的例子,不胜感激!!!
|