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
(10TYPE 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