ST05. Нажать активацию. Перейти к программе с запросом. Затем обратно на st05. Деактивировать и просмотреть.

FIELD-SYMBOLS

*&---------------------------------------------------------------------*
*& Report  ZSELECT_AVTO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zselect_avto.

FIELD-SYMBOLS: <fs_value> TYPE ANY.
FIELD-SYMBOLS: <fs_struc> TYPE ANY.

DATA: field1 TYPE text30,
      structure TYPE mara,
      structure_name TYPE text30.

SELECT SINGLE * INTO structure FROM mara.

  field1 = 'PARTHER'.
  structure_name = 'STRUCTURE'.

  ASSIGN (structure_name) TO <fs_struc>.
  ASSIGN COMPONENT field1 OF STRUCTURE structure TO <fs_value>.

  DO 300 TIMES.
    ASSIGN COMPONENT sy-index OF STRUCTURE structure TO <fs_value>.
    CHECK sy-subrc = 0.
    WRITE / <fs_value>.

  ENDDO.
  BREAK-POINT.

*&---------------------------------------------------------------------*

*& Report ZSELECT_AVTO

*&---------------------------------------------------------------------*

REPORT zselect_avto.

FIELD-SYMBOLS: <fs_value> TYPE ANY.

FIELD-SYMBOLS: <fs_struc> TYPE ANY.

DATA: field1 TYPE text30,

structure TYPE mara,

structure_name TYPE text30.

SELECT SINGLE * INTO structure FROM mara.

field1 = 'PARTHER'.

structure_name = 'STRUCTURE'.

ASSIGN (structure_name) TO <fs_struc>.

ASSIGN COMPONENT field1 OF STRUCTURE structure TO <fs_value>.

DO 300 TIMES.

ASSIGN COMPONENT sy-index OF STRUCTURE structure TO <fs_value>.

CHECK sy-subrc = 0.

WRITE / <fs_value>.

ENDDO.

BREAK-POINT.

NEW IN VERSION

Новое в версии 7.4

DATA(dtv2) = new dtv( ).

1	DATA(dtv2) = new dtv( ).

LOOP AT itab INTO DATA(wa).   
  ...
ENDLOOP.

LOOP AT itab INTO DATA(wa).

...

ENDLOOP.