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.
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