事务代码:SNRO
代码引用:
DATA: MAXTID TYPE I,NEWNO TYPE CHAR8.
CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
EXPORTING
OBJECT = 'ZQC57'
EXCEPTIONS
FOREIGN_LOCK = 1
OBJECT_NOT_FOUND = 2
SYSTEM_FAILURE = 3
OTHERS = 4.
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
NR_RANGE_NR = '1'
OBJECT = 'ZQC57'
IMPORTING
NUMBER = NEWNO.
CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
EXPORTING
OBJECT = 'ZQC57'
EXCEPTIONS
OBJECT_NOT_FOUND = 1
OTHERS = 2.
MAXTID = NEWNO.
