ABAP 新語法 截取字符串

字符串截取案例   

IF cb_01 EQ 'X' .
    LOOP AT gt_out INTO gs_out .
      SELECT SINGLE belnr
        FROM bkpf AS t1
        WHERE substring( t1~awkey , 1, 10 )  = @gs_out-mblnr
        AND   substring( t1~awkey , 11, 4 )  = @gs_out-mjahr
        INTO @gs_out-belnr .
        MODIFY gt_out from gs_out .
    ENDLOOP .
  ENDIF .

 

"1.截取字符
select t1~matnr,
       werks,
       charg,
       cuobj
  from mchb as t1
  left outer join inob as t2
  on substring( t2~objek , 1, 18 )  = t1~matnr  "1-18位 是物料號
  and substring( t2~objek, 41,10 )  = t1~charg  "41~50位 是批次
  where t2~klart = '023'
  into corresponding fields of table @lt_mchb.