AT NEW和 AT END OF的使用

使用

建立程序

输出结果

AT END OF col2 输出

测试程序2

AT NEW

AT END OF

*&---------------------------------------------------------------------*
*& Report Z_TEST_ASSIGN5
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_test_assign5.
*&---------------------------------------------------------------------*

TYPES: BEGIN OF gty_data,
  a TYPE i,
  b TYPE c,
  c TYPE c,
  END OF gty_data.
DATA: gt_data TYPE TABLE OF gty_data.
DATA: gs_data TYPE gty_data.

FIELD-SYMBOLS:<f1> TYPE sflight,
               <f2> TYPE ANY TABLE,
               <f3> TYPE any,
               <f4> TYPE gty_data,
               <f5> TYPE REF TO data.
APPEND VALUE #( a = 1 b = 'a' c = 'c1') TO gt_data.
APPEND VALUE #( a = 1 b = 'a' c = 'c2') TO gt_data.
gs_data  = VALUE #( a = 1 b = 'a').
ASSIGN gt_data TO <f2>.

DATA: index TYPE i.
LOOP AT <f2> ASSIGNING FIELD-SYMBOL(<fs>).
  cl_demo_output=>write( <fs> ).
ENDLOOP.
cl_demo_output=>line( ).
cl_demo_output=>write( '第二次循环，使用AT NEW A，字段a及a左边的字段的值和上一行不一致时，就会执行代码 ' ).
LOOP AT gt_data INTO gs_data.
  AT NEW a. "字段a及a左边的字段的值和上一行不一致时，就会执行代码
     cl_demo_output=>write(  gs_data ).
  ENDAT.
ENDLOOP.
cl_demo_output=>line( ).
cl_demo_output=>write( '第三次循环，使用AT END OF B，字段B及B左边的字段的值和下一行不一致时，就会执行代码' ).
LOOP AT gt_data INTO gs_data.
  AT END OF B. "字段a及a左边的字段的值和下一行不一致时，就会执行代码
     cl_demo_output=>write(  gs_data ).
  ENDAT.
ENDLOOP.
cl_demo_output=>display( ).
WRITE:''.