我刚刚检查了PA0008的结构：

组件数据元素长度说明
 --------- ------------ ----------- ------------------  ----------------
 ...
 LGA01 lgart char（4）工资类型
 bet01 pad_amt7s curr（13,2）工资类型付款金额
 anz01 anzhl dec（7,2）编号
 ein01 pt_zeinh char（3）时间/测量单位
 opk01 opken char（1）工资类型的操作指示器

 LGA02 lgart char（4）工资类型
 bet02 pad_amt7s curr（13,2）工资类型付款金额
 ... 
 

不幸的是，LGA01和LGA02不是 连续，所以您不能轻易使用ASSIGN INCREMENT。

我最好的主意是：

 DATA（wa_pa0008）=值pa0008（lga01 ='1'lga02 =  '2'lga03 ='3'）。

 类型：块的开始，
 lgaxx类型pa0008-lga01，
 betxx类型pa0008-bet01，
 anzxx类型pa0008-anz01，
 einxx类型pa0008-ein01，
 opkxx类型pa0008-opk01  ，
 END OF块。
字段符号： TYPE x，
  TYPE块。

 将wa_pa0008-lga01和wa_pa0008-lga02之间的距离描述为字节模式下的数据（距离）。
将wa_pa0008-lga01和wa_pa0008之间的距离为字节间数据的距离（偏移）字节模式中的
 8。  

 做39次。
 DATA（inc）=距离*（sy-index-1）。
分配 + offset（*）到铸造。
"在这里您可以使用 -lgaxx， -betxx，... 
将距离添加到偏移量。
 ENDDO。

有关信息，我找到的唯一方法是 使用ASSIGN INCREMENT和连续的字段块是这样的：

 DATA（wa_pa0008）=值pa0008（lga01 ='1'lga02 ='2'lga03 ='3'）。
类型：BEGIN  OF块，
 lgaxx类型pa0008-lga01，
 betxx类型pa0008-bet01，
 anzxx类型pa0008-anz01，
 einxx类型pa0008-ein01，
 opkxx类型pa0008-opk01，
 END OF块，
 BEGIN OF _39_blocks，
 b01 TYPE块，
 b02 TYPE块，
 b03 TYPE块，
" <====重要定义另外36个块
  END OF _39_blocks。
字段符号： TYPE x，
 <_39_blocks> TYPE _39_blocks，
  TYPE块。

 在字节模式下将wa_pa0008-lga01和wa_pa0008之间的距离分配到铸造中。  pa0008_x>至<_39_blocks>铸造。

 做39次。
 DATA（inc）= 1 *（sy-index-1）。
 ASSIGN <_39_blocks> -b01 INCREMENT inc TO 。
"在这里您可以使用-  lgaxx， -betxx，... 
 ASSERT 1 =1。"断点虚拟线（调整）
 ENDDO。

Yaso O

确定，理想情况仍然相同，可以使用字段符号代替变化。

从上面的最后一条评论中，我可以说您的代码不起作用，因为字段名称是BET01，02，...。

但是当您从v_index串联时，它只是1，2 ，3 ...这样您的变量就变成BET1，BET2 ...

这可能是它不起作用的原因。

我不知道您为什么要再次选择 在DO..ENDO内部，但稍后可能会导致性能下降。