ABAP BDC代码

每次写BDC要去copy之前的PERFORM子程序，觉得不爽。。。。
刚好最近学习使用了新语法，跟上一下时代，BDC代码就是往BDC的内表一条条复制，我不如直接用新语法，整齐直观。

具体代码如下：

SHDB录好屏了直接对着一个个填到VALUE中，对应的五个字段。

DATA bdcdata TYPE bdcdata OCCURS 0.
  DATA   l_bdcmsg  LIKE      bdcmsgcoll OCCURS 0  WITH HEADER LINE.
  DATA:zmes TYPE string.

  LOOP AT gt_alv ASSIGNING FIELD-SYMBOL(<ls_alv>) WHERE cbox = 'X'.
    bdcdata = VALUE #(
                  (  program =