Module pool - to save number range

Question

hi all,
when i save the entry one number is generated through number range object, but if i press again save, next number is generated, this happens every time i save the entry. how to avoid this?
Thanks

Answer 1

hi,
i have written the foll. code,  i have to add more than 1 entry in itab , after adding all the entry i save it , but when i add 1st entry and press enter it goes to screen 1001 ie initial screen,
when 'SAVE'.
move itab-reldt+4(2) to sub.
MOVE ITAB-RELDT+0(4) TO YEAR.
SELECT SINGLE * FROM NRIV INTO ZNRIV WHERE OBJECT = 'ZABC'
AND SUBOBJECT = SUB AND TOYEAR = YEAR.
call function 'NUMBER_RANGE_ENQUEUE'
         exporting
               object              = 'ZABC'   "Create with SNUM
         exceptions
               foreign_lock        = 1
               object_not_found    = 2
               system_failure      = 3
               others              = 4.
if sy-subrc ne 0.
  message e086 with 'Lock error' sy-subrc.
endif.
CALL FUNCTION 'NUMBER_GET_NEXT'
  EXPORTING
    nr_range_nr                   = ZNRIV-NRRANGENR
    object                        = 'ZABC'
   IGNORE_BUFFER                 = 'X'
   SUBOBJECT                     = SUB
   TOYEAR                        = YEAR
IMPORTING
   NUMBER                        = NUM.
LOOP AT ITAB.
MOVE NUM TO ITAB-CODE.
MODIFY ITAB.
message W012(zdes) with ITAB-CODE.
insert ZDESIGN FROM TABLE ITAB.
CLEAR OK_CODE.
clear itab.
*clear zdesign.
ENDLOOP.
call function 'NUMBER_RANGE_DEQUEUE'
    exporting
      object                 = 'ZABC'.
*WHEN 'MODI'.
SET SCREEN 1001.