General - Number Range Generation

* In the 4.6x environment, SAP have included a number range generation
* program just like those used for Purchase Order, Sales Order etc.
*
* This SAP number range generation is an include program.
*
* INCLUDE ZRANGENO.
*
* Always have to be included in the main program data declaration
*
* data: wnorange like INRI-NRRANGENR,            "number range,
*       wsubobj  like inri-SUBOBJECT,            "sub object
*       wdocno(12).
*
* Steps :-
* 1. Number range Sub Object must be maintain in table ZSGRP
*    You can used transaction SE16 to create a table entries.
* 2. Maintain number range and intervals in transaction code SNUM
*


call function 'NUMBER_RANGE_ENQUEUE'
        exporting
              object              = 'ZOWNNO'   "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         = wnorange
              object              = 'ZOWNNO'
              subobject           = wsubobj
        importing
              number                  = wdocno  "Number generated by SAP
        exceptions
              interval_not_found      = 1
              number_range_not_intern = 2
              object_not_found        = 3
              quantity_is_0           = 4
              quantity_is_not_1       = 5
              internal_overflow       = 6
              others                  = 7.
 if sy-subrc ne 0.
*   message e086 with 'Number Range' sy-subrc.
 endif.

 call function 'NUMBER_RANGE_DEQUEUE'
   exporting
     object                 = 'ZOWNNO'.

 if sy-subrc <> 0.
   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 endif.