*&---------------------------------------------------------------------*
*& Report  ZANMA_OBJECT_NUM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zanma_object_num.

DATA num(5) TYPE n.

**funcion que bloquea un objeto de ranfo de numero
CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
  EXPORTING
    object           = 'ZOBJ_ANMA1'
  EXCEPTIONS
    foreign_lock     = 1
    object_not_found = 2
    system_failure   = 3
    OTHERS           = 4.
IF sy-subrc <> 0.
  MESSAGE E023(NR) with sy-msgv1 RAISING FOREIGN_LOCK.
  exit.
ENDIF.

break-point.

**funcion que llama al objeto de rango de numero para sacarlo por pantalla
call function 'NUMBER_GET_NEXT'
  exporting
    nr_range_nr                   = '1'
    object                        = 'ZOBJ_ANMA1'
*   QUANTITY                      = '1'
*   SUBOBJECT                     = ' '
*   TOYEAR                        = '0000'
*   IGNORE_BUFFER                 = ' '
 importing
   number                        = num
*   QUANTITY                      =
*   RETURNCODE                    =
 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.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


**funcion que desbloquea un objeto de ranfo de numero
CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
  EXPORTING
    object           = 'ZOBJ_ANMA1'
  EXCEPTIONS
    object_not_found = 1
    OTHERS           = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

WRITE: text-001, num.