ABAP field-symbol的意义是什么, 我觉得和work area没什么区别
绝对有意义。
我目前知道有三种比较有用的用法:
1. loop table时 assigning <fs>, 当你改某个field时, 直接给<fs>赋值就行了, 不用再modify内表
2. 建立动态内表, 这个我也没弄过, 我的同事弄过, 非常强大
3. 当我们写一些inbound interface程序时, 或都是写一些conversion程序时, 经常要测一些field是不是空的, 这时可以用一段代码来简化, 且看下面例子
soft table是一个自定义table, incld是我的程序名, parm1是我要check的field的顺序, parm2是我要check的field, parm3是check的内容,这里是check该field是不是空。其他看代码吧
FIELD-SYMBOLS: <fs_tab> TYPE ty_tab,
<fs_field> TYPE ANY.
SELECT *
FROM zzsoftcode
INTO TABLE lt_softcode
WHERE incld = sy-cprog
AND parm3 = 'BLANK'.
IF sy-subrc = 0.
CLEAR lv_rec.
DESCRIBE TABLE lt_softcode LINES lv_rec.
sort lt_softcode by parm1.
LOOP AT gt_tab ASSIGNING <fs_tab>.
DO lv_rec TIMES.
CLEAR lw_softcode.
READ TABLE lt_softcode INTO lw_softcode INDEX sy-index.
IF sy-subrc = 0.
ASSIGN COMPONENT lw_softcode-parm2 OF STRUCTURE <fs_tab> TO <fs_field>.
IF <fs_field> IS ASSIGNED.
IF <fs_field> IS INITIAL.
CONCATENATE lw_softcode-rslt ' is blank' INTO <fs_tab>-msg.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDDO.
ENDLOOP.
ENDIF.
2024-08-19 广告
2018-05-25