Sunday, 3 November 2013

Number ranges




The number ranges  can be maintained by using TCODE  SNRO  where the number ranges can be set or edited after creating the object say 'NR2'.

DATA:   QTY TYPE INRI-QUANTITY,
          RC 
TYPE INRI-RETURNCODE,
          NBR
(10) TYPE C.


  
CALL FUNCTION 'NUMBER_GET_NEXT'
    
EXPORTING
      NR_RANGE_NR             
= '01'
      OBJECT                  
= 'NR2'
*      QUANTITY                = '1'
      SUBOBJECT               
= '4000'
     TOYEAR                  
= '2013'
*     IGNORE_BUFFER           = ' '
    
IMPORTING
      
NUMBER                  = NBR
      QUANTITY                
= QTY
      RETURNCODE              
= RC
    
EXCEPTIONS
      INTERVAL_NOT_FOUND      
= 1
      NUMBER_RANGE_NOT_INTERN 
= 2
      OBJECT_NOT_FOUND        
= 3
      QUANTITY_IS_0           
= 4
      QUANTITY_IS_NOT_1       
= 5
      INTERVAL_OVERFLOW       
= 6
      BUFFER_OVERFLOW         
= 7
      
OTHERS                  = 8.

  
IF SY-SUBRC <> 0.
    TMPI 
= SY-SUBRC.
    
MESSAGE TMPI TYPE 'S'.
    
"MESSAGE 'TRIP NUMBER EXHAUSTED. PLEASE MAINTAIN' TYPE 'I'.
    
LEAVE PROGRAM.
  
ENDIF.
WRITE:/ NBR
.




No comments:

Post a Comment