Tcode: snro.
1 * & operator * 2 * & form frm_get_ref_nr 3 * & operator * 4 * obtain number range 5 * operator * 6 * --> pv_nr text 7 * operator * 8 Form frm_get_ref_nr using pv_nr. 9 10 "lock number range object 11 call function 'Number _ range_enqueue '12 exporting13 object = 'zbc _ box'" create object 14 exceptions15 foreign_lock = 116 object_not_found = 217 system_failure = 318 others = 4.19 20 "generate number range21 call function 'Number _ get_next '22 exporting23 nr_range_nr = '3' 24 object = 'zbc _ box'" create object 25 importing26 number = pv_nr27 predictions28 interval_not_found = 129 unlock = 230 object_not_found = 331 quantity_is_0 = 432 rows = 533 interval_overflow = 634 buffer_overflow = 735 others = 8.36 37 "unlock number range object 38 call function 'Number _ range_dequeue '39 exporting40 object =' zbc _ box '. 41 42 if sy-subrc <> 0.43 * Message ID SY-MSGID type SY-MSGTY number SY-MSGNO44 * With SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.45 endif.46 47 endform. "frm_get_nr