Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- READ TABLE ZVBELNEXTTAB INDEX x.
- curr = ZVBELNEXTTAB-EVBELN.
- READ TABLE ZVBELNEXTTAB INDEX y.
- next = ZVBELNEXTTAB-EVBELN.
- chck = next - curr.
- IF chck GT 1.
- chck = chck - 1.
- DO chck TIMES.
- ZVBELNEXTTAB-EVBELN = curr + 1.
- ZVBELNEXTTAB-BUKRS = ''.
- ZVBELNEXTTAB-WERKS = ''.
- ZVBELNEXTTAB-VBELN = ''.
- ZVBELNEXTTAB-FKDAT = ''.
- ZVBELNEXTTAB-VBLSTAT = ''.
- ZVBELNEXTTAB-ZPRN = ''.
- ZVBELNEXTTAB-UNAME = ''.
- ZVBELNEXTTAB-TYPE = ''.
- ZVBELNEXTTAB-MANDT = ''.
- APPEND ZVBELNEXTTAB.
- SORT ZVBELNEXTTAB BY evbeln.
- ENDDO.
- ENDIF.
Add Comment
Please, Sign In to add comment