本文主要是介绍开发笔记-内表指针赋值，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
RANGES: S_RSTGR FOR BSEG-RSTGR . "付款原因代码
RANGES: S_STBLG FOR BKPF-STBLG . "冲销凭证号
DATA: LV_FIELDNAME TYPE CHAR20.
DATA: LV_FIELDNAME1 TYPE CHAR20.
DATA: LV_FIELDNAME2 TYPE CHAR20.
FIELD-SYMBOLS: <FR> , <F1> , <F2> , <F3> , <F4> .
FIELD-SYMBOLS: <FLT> TYPE STANDARD TABLE.
FIELD-SYMBOLS: <FLI> ,<FLI_CP> .
FIELD-SYMBOLS: <FL> , <FH> .
DATA: LV_DATA TYPE REF TO DATA.
DATA: ZTFIR139_SC TYPE TABLE OF ZTFIR139_SC WITH HEADER LINE .
P_BUKRS = P_BUKRS_IN .
CLEAR ZTFIR139_SC[].
SELECT * INTO CORRESPONDING FIELDS OF TABLE ZTFIR139_SC[] FROM ZTFIR139_SC
WHERE ZRANGES <> ''
.
LOOP AT ZTFIR139_SC.
CLEAR LV_FIELDNAME .
CLEAR LV_FIELDNAME1 .
LV_FIELDNAME = ZTFIR139_SC-ZRANGES && '_LOW'.
LV_FIELDNAME1 = ZTFIR139_SC-ZRANGES && '_HIGH'.
ASSIGN (LV_FIELDNAME) TO <FL> .
ASSIGN (LV_FIELDNAME1) TO <FH> .
IF <FL> IS NOT INITIAL.
CLEAR LV_FIELDNAME2.
LV_FIELDNAME2 = ZTFIR139_SC-ZRANGES && '[]'.
ASSIGN (LV_FIELDNAME2) TO <FLT> .
CREATE DATA LV_DATA LIKE LINE OF <FLT>.
ASSIGN LV_DATA->* TO <FLI>.
ASSIGN (ZTFIR139_SC-ZRANGES) TO <FR> .
ASSIGN COMPONENT 1 OF STRUCTURE <FR> TO <F1> .
ASSIGN COMPONENT 2 OF STRUCTURE <FR> TO <F2> .
ASSIGN COMPONENT 3 OF STRUCTURE <FR> TO <F3> .
ASSIGN COMPONENT 4 OF STRUCTURE <FR> TO <F4> .
IF <FH> IS NOT INITIAL.
<F1> = 'I'.
<F2> = 'BT'.
<F3> = <FL> .
<F4> = <FH> .
ELSE.
<F1> = 'I'.
IF <FL> CS '*'.
<F2> = 'CP'.
ELSE.
<F2> = 'EQ'.
ENDIF.
<F3> = <FL> .
ENDIF.
ASSIGN COMPONENT 1 OF STRUCTURE <FLI> TO <FLI_CP> .
<FLI_CP> = <F1> .
ASSIGN COMPONENT 2 OF STRUCTURE <FLI> TO <FLI_CP> .
<FLI_CP> = <F2> .
ASSIGN COMPONENT 3 OF STRUCTURE <FLI> TO <FLI_CP> .
<FLI_CP> = <F3> .
ASSIGN COMPONENT 4 OF STRUCTURE <FLI> TO <FLI_CP> .
<FLI_CP> = <F4> .
APPEND <FLI> TO <FLT> .
ENDIF.
CLEAR ZTFIR139_SC .
ENDLOOP.
这篇关于开发笔记-内表指针赋值的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
