有关动态编程，请高手指教。

ERP俱乐部
ERP爱好者、ERP从业者互相交流、互相学习的乐园；我们的愿景是成为全球一流的中文ERP(Enterprise Resource Planning)交流平台

网站首页

论坛首页

搜索

用户列表

FAQ

ERP俱乐部 -> SAP专栏 -> ABAP -> 有关动态编程，请高手指教。

有关动态编程，请高手指教。

帖子发起人: Seven 发起时间: 2005-01-27 10:09 上午 回复数: 5

楼主

Seven

等级: 10级
注册: 2005年1月12日
经验: 18
积分: 18
精华: 0
发贴: 5
排名: 1,766

有关动态编程，请高手指教。

DATA： fname(100) type c.

DATA: gt_sflight type table of SFLIGHT with header line.

   select * from sflight into table gt_sflight.
fname = 'XX'.

loop at gt_sflight.
   这里我要动态输出gt_sflight的字段名为fname的值'XX'的内容。
   请问高手如何实现。。。。。。
endloop.

分享按钮

IP 地址: 已登录来自: 已登录

第 2 楼

mara

职务: 版主

等级: 50级
注册: 2004年10月28日
经验: 336
积分: 316
精华: 1
发贴: 257
排名: 73

Re: 有关动态编程，请高手指教。

PROGRAM P1MAIN.
DATA: BEGIN OF STR,
A VALUE 'a',
B VALUE 'b',
C VALUE 'c',
D VALUE 'd',
END OF STR,
CN(5) VALUE 'D'.
FIELD-SYMBOLS <FS> TYPE ANY.
DO 3 TIMES.
ASSIGN COMPONENT SY-INDEX OF
STRUCTURE STR TO <FS>.
IF SY-SUBRC <> 0. EXIT. ENDIF.
WRITE <FS>.
ENDDO.
ASSIGN COMPONENT CN OF STRUCTURE STR TO <FS>.
WRITE <FS>.

Output: a b c d

-----------------

mara,SAPCLUB TEAM

---------------------

You ok,so we ok

---------------------------

msn:jiangyong_120@hotmail.com

IP 地址: 已登录来自: 已登录

第 3 楼

2005-07-11, 02:03 下午

xianer

无等级

等级: 10级
注册: 2005年7月11日
经验: 4
积分: 4
精华: 0
发贴: 3
排名: 6,348

Re: 有关动态编程，请高手指教。

下面是我作的一个动态编程的一个例子,感兴趣的参考一下
其中的文字是日文的,自己改成中文的就可以了.

REPORT Z_GET_STURC_NAME .

*----------------------------------------------------------------------*
* 定数の定義　 *
*----------------------------------------------------------------------*
CONSTANTS: BEGIN OF CNS,
PRONAME(16) TYPE C VALUE 'Z_GET_STURC_NAME',
END OF CNS.

*----------------------------------------------------------------------*
* 構造体の定義 *
*----------------------------------------------------------------------*
DATA: BEGIN OF WRK_TEST,
COL1(10) TYPE C VALUE 'VAL_COL1',
COL2(20) TYPE C VALUE 'VAL_COL2',
COL3(30) TYPE C VALUE 'VAL_COL3',
COL4(40) TYPE C VALUE 'VAL_COL4',
END OF WRK_TEST.

TYPE-POOLS: SYDES.
DATA: TD TYPE SYDES_DESC.
DATA: WRK_TD TYPE SYDES_NAMEINFO.

DATA: WRK_TYPE(1) TYPE C,
WRK_LENGTH TYPE I,
WRK_NUM TYPE P,
WRK_RELEN TYPE P,
WRK_STRLEN TYPE P,
SAV_INDEX LIKE SY-INDEX.

FIELD-SYMBOLS: <F01> TYPE ANY.

*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
START-OF-SELECTION.
* プログラム名の長さを取得する
WRK_STRLEN = STRLEN( CNS-PRONAME ).
DO.
* WRK_TD構造体の項目を取得する
ASSIGN COMPONENT SY-INDEX
OF STRUCTURE WRK_TD TO <F01>.
IF SY-SUBRC = 0 .
* 構造体のNAME項目の長さを取得する
CHECK SY-INDEX = 2.
DESCRIBE FIELD <F01> OUTPUT-LENGTH WRK_LENGTH.
* プログラム名長さと構造体NAME項目長さの整数部分を取得する
WRK_NUM = WRK_STRLEN DIV WRK_LENGTH.
* プログラム名長さと構造体NAME項目長さの余数部分を取得する
WRK_RELEN = WRK_STRLEN MOD WRK_LENGTH.
* 余数が０ではないなら項目名がTD-NAMES内部テーブルの
* インデェックスを取得する
IF WRK_RELEN <> 0.
SAV_INDEX = WRK_NUM + 1.
ELSE.
SAV_INDEX = WRK_NUM.
ENDIF.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLEAR: WRK_NUM, WRK_LENGTH, WRK_RELEN, WRK_STRLEN.

DESCRIBE FIELD WRK_TEST INTO TD.
* ヘッダの出力
WRITE: /002 '項目名',
010 '項目タイプ',
024 '項目長さ',
036 '項目VALUE'.
SKIP.
DO.
ASSIGN COMPONENT SY-INDEX
OF STRUCTURE WRK_TEST TO <F01>.
IF SY-SUBRC = 0.
WRK_NUM = SY-INDEX + SAV_INDEX.
DESCRIBE FIELD <F01> OUTPUT-LENGTH WRK_LENGTH.
DESCRIBE FIELD <F01> TYPE WRK_TYPE.

* TD-NAMES内部テーブルに１レコード目がプログラム名ですけど
* プログラム名長さが15を超えたら内部テーブルの２レコード目に
* なることです
READ TABLE TD-NAMES INTO WRK_TD INDEX WRK_NUM .
WRITE: /002 WRK_TD-NAME,
014 WRK_TYPE,
020 WRK_LENGTH,
038 <F01>.
ELSE.
EXIT.
ENDIF.
ENDDO.

分享按钮

IP 地址: 已登录来自: 已登录