创建流水码

DATA:lv_con(10) TYPE c,
       lv_n(3) TYPE c,
       lv_xblnr TYPE xblnr1.

  DATA:BEGIN OF it_xblnr OCCURS 0,
    xblnr TYPE xblnr1,
  END OF it_xblnr.

  CONCATENATE 'D' sy-datum '%' INTO lv_con.

  SELECT xblnr
    INTO TABLE it_xblnr
    FROM zmm31
   WHERE xblnr LIKE lv_con.

  SORT it_xblnr BY xblnr DESCENDING.
  READ TABLE it_xblnr INDEX 1.
  lv_n = it_xblnr-xblnr+9(3).
  lv_n = lv_n + 1.
  CONDENSE lv_n NO-GAPS.
  PERFORM buling USING lv_n CHANGING lv_n.
  CONCATENATE 'D' sy-datum lv_n INTO p_xblnr.
格式是D+日期+三位流水号