Domaini  ZTST_D_FORM_NO NUMC 10  ,  ( Domain Value Table : ZTST_010 )

Kısa metin : XXX

Uzun metin : XXXX

No.uzunluğu için tanım kümesi : Domain Adı

Yüzde uyarısı : 10

form f_test_no_uret  changing   cht_test_no type ztst_e_test_numarasi
                                chn_err type c.


  call function `NUMBER_GET_NEXT`
    exporting
      nr_range_nr             = `01`
      object                  = `ZTST_XX`
      subobject               = space
    importing
      number                  = cht_test_no
    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.
    chn_err = `X`.

    "perform f_add_message using   sy-msgid sy-msgty sy-msgno
    "                           sy-msgv1       sy-msgv2       sy-msgv3 sy-msgv4.
   " perform f_add_message_vl_1 using c_msg_ty_error `017` `ZTST_TEST`    .
    "& numara aralığı içinde numara üretilemedi

  endif.


endform.                    "f_test_no_uret