Eigene Wiederholstruktur möglich?

Code: Alles auswählen.

    DATA: lv_test_vprnr TYPE p9010-vprnr02,
          lv_test_vbegda TYPE p9010-vbegda02,
          lv_test_vendda TYPE p9010-vendda02.

    DO 9 TIMES
      VARYING lv_test_vprnr
        FROM ls_p9010-vprnr02
        NEXT ls_p9010-vprnr03
      VARYING lv_test_vbegda
        FROM ls_p9010-vbegda02
        NEXT ls_p9010-vbegda03
      VARYING lv_test_vendda
        FROM ls_p9010-vendda02
        NEXT ls_p9010-vendda03.

    ENDDO.

Code: Alles auswählen.

    DATA: BEGIN OF struc,
            word TYPE c LENGTH 4 VALUE 'abcd',
            int1 TYPE i          VALUE 111,
            int2 TYPE i          VALUE 222,
            stri TYPE string     VALUE `efgh`,
          END OF struc.

    FIELD-SYMBOLS: <word> LIKE struc-word,
                   <int>  TYPE i.

    CASE assign.
      WHEN '1'. "-> sy-subrc 0
        ASSIGN struc-word INCREMENT 1 TO <word> RANGE struc.
      WHEN '2'. "-> Runtime error
        ASSIGN struc-word INCREMENT 1 TO <int>  RANGE struc.
      WHEN '3'. "-> Runtime error
        ASSIGN struc-word INCREMENT 2 TO <word> RANGE struc.
      WHEN '4'. "-> Runtime error
        ASSIGN struc-word INCREMENT 2 TO <int>  RANGE struc.
      WHEN '5'. "-> sy-subrc 4
        ASSIGN struc-word INCREMENT 3 TO <word> RANGE struc.
      WHEN '6'. "-> sy-subrc 4
        ASSIGN struc-word INCREMENT 3 TO <int>  RANGE struc.
    ENDCASE.