Unable to posting in serial order(MB31)

Question

Hi Dear,
when we are posting in serial order (900000000269) with 22000 quantity then it is unable to posting in 22000 quantity.
message hasbeen written Exactly 22.000 serial numbers must be selected .
(instead of 7.173)
if we are posting order no with below 14000 quantity then it is posted correct. but above 14000 quantity it is unable to post the serial order number.

Answer 1

TYPES: BEGIN OF ty_mase,
          matnr   TYPE matnr,
          lsernr  TYPE lsernr,
         alpha_numeric TYPE zalpha,
       END OF ty_mase.
DATA: wa_imase1(18) TYPE c,
       wa_mara       TYPE marc,
       wa_sernr      TYPE risernr,
       v_string(18)  TYPE c,
       v_imase(18)   TYPE c,
       v_month(18)   TYPE c,
       v_year(18)    TYPE c,
       v_sernum(18)  TYPE c,
       lv_name       TYPE c,
       wa_imase(6)   TYPE c,
       lin(10)       TYPE c,
       lv_month      TYPE char6,
       lv_year       TYPE char4,
       lv_datum      TYPE sy-datum,
       it_mase       TYPE TABLE OF ty_mase,
       lwa_mase      LIKE LINE OF it_mase.
CLEAR : wa_imase1,wa_mara,wa_sernr,v_string.
CLEAR : v_imase,v_month,v_year,v_sernum,wa_imase,lin,lv_name,lv_datum.
CALL FUNCTION 'MARC_SINGLE_READ'
   EXPORTING
     matnr = material_no
     werks = plant
   IMPORTING
     wmarc = wa_mara.
IF wa_mara-sernp = 'S001'.
   lv_datum = sy-datum.
*  SELECT SINGLE alpha_numeric FROM mase INTO wa_imase1 WHERE matnr = material_no.
*  SELECT SINGLE alpha_numeric FROM ZPP_SERAIL_NO INTO wa_imase1 WHERE matnr = material_no.
*  IF wa_imase1 IS INITIAL.
*    wa_imase = wa_imase1 + 000001.
*    lv_name   = 'S'.
*  ELSE.
*    lv_name   = 'S'.
*    v_imase   = wa_imase1.
*    v_sernum  = v_imase+6(6).
*    wa_imase  = v_sernum + 000001.
*  ENDIF.
   v_year   = lv_datum+2(2).
   CASE lv_datum+4(2).
     WHEN '01'.
       v_month = 'JAN'.
     WHEN '02'.
       v_month = 'FEB'.
     WHEN '03'.
       v_month = 'MAR'.
     WHEN '04'.
       v_month = 'APR'.
     WHEN '05'.
       v_month = 'MAY'.
     WHEN '06'.
       v_month = 'JUN'.
     WHEN '07'.
       v_month = 'JUL'.
     WHEN '08'.
       v_month = 'AUG'.
     WHEN '09'.
       v_month = 'SEP'.
     WHEN '10'.
       v_month = 'OCT'.
     WHEN '11'.
       v_month = 'NOV'.
     WHEN '12'.
       v_month = 'DEC'.
   ENDCASE.
   SELECT SINGLE alpha_numeric
                 FROM zpp_serail_no
                 INTO wa_imase1
                WHERE matnr    = material_no
                AND   z_month  = v_month
                AND   z_year   = v_year.
   IF wa_imase1 IS INITIAL.
     wa_imase = wa_imase1 + 000001.
     lv_name   = 'S'.
   ELSE.
     lv_name   = 'S'.
     v_imase   = wa_imase1.
     v_sernum  = v_imase+6(6).
     wa_imase  = v_sernum + 000001.
   ENDIF.
   CONDENSE wa_imase.
   CALL FUNCTION 'CONVERSION_EXIT_AUFNR_INPUT'
     EXPORTING
       input  = wa_imase
     IMPORTING
       output = wa_imase.
   DO number_serialno TIMES.
     CONCATENATE lv_name v_year v_month wa_imase INTO v_string.
     CONDENSE v_string.
     wa_sernr-sernr = v_string.
     APPEND wa_sernr TO tab_sernr.
     wa_imase = wa_imase + 000001.
     CONDENSE wa_imase.
     CALL FUNCTION 'CONVERSION_EXIT_AUFNR_INPUT'
       EXPORTING
         input  = wa_imase
       IMPORTING
         output = wa_imase.
     CLEAR v_string.
     CLEAR wa_sernr.
   ENDDO.
   SORT tab_sernr BY sernr ASCENDING.
   DESCRIBE TABLE tab_sernr LINES lin.
   CONDENSE lin.
   CLEAR wa_sernr.
   READ TABLE tab_sernr INTO wa_sernr INDEX lin.
   IF sy-subrc = 0.
*    SET PARAMETER ID 'MEM1' FIELD wa_sernr-sernr.
*    UPDATE mase SET alpha_numeric = wa_sernr-sernr WHERE matnr = material_no.
     EXPORT wa_sernr-sernr TO MEMORY ID 'MEM2'.
   ENDIF.
ENDIF.