ZBlog学习笔记

DATA:ZTEXT TYPE STRING VALUE 'CNYCNY1.00000     I006                                                     INVO9200058102                         40.005',
     TEXT  TYPE STRING VALUE `Roll over Beethoven`,
     POS   TYPE I.
WRITE :/ ZTEXT.
CONDENSE ZTEXT NO-GAPS.
WRITE :/ ZTEXT.
SEARCH ZTEXT FOR 'INVO'.
DATA LV_VBELN TYPE VBELN_VF.
IF SY-SUBRC = 0.
  POS = SY-FDPOS + 4.
  LV_VBELN = ZTEXT+POS(10).
  WRITE :/ LV_VBELN.
ENDIF.