Need to save the data in mutiple tables

Question

Dear Experts,
I need to insert the data ,which is accepted from the user at runtime using table control and also generate automatic number when clicked on the save button the data should be in the database as well.
I am new to module pool, your help is reqd. The user will be awarded ample points if answered correctly.
regards,
Rachel

Answer 1

Hi Rachel,
For automatic number generation you need to create number range object using tcode SNRO and then use the foolowing logic.
*&      Form  GET_NEXT_NUMBER
      text
-->  p1        text
<--  p2        text
FORM get_next_number .
  DATA: w_quant   LIKE inri-quantity,    "dummy
        w_code    LIKE inri-returncode.  "returncode
To lock the number range object
  CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
    EXPORTING
      object           = 'ZNUM'
    EXCEPTIONS
      foreign_lock     = 1
      object_not_found = 2
      system_failure   = 3
      OTHERS           = 4.
To raise the exception to the corresponding exception of
'NUMBER_RANGE_ENQUEUE'
  IF sy-subrc NE 0.
    MESSAGE e368(00) WITH text-006."'Object is not found'
  ENDIF.                         "IF sy-subrc NE 0
To get the next number from the object
  CALL FUNCTION 'NUMBER_GET_NEXT'
    EXPORTING
      nr_range_nr             = 'Z2'
      object                  = 'ZNUM'
      toyear                  = '2008'
    IMPORTING
      number                  = l_lbc_next
      quantity                = w_quant
      returncode              = w_code
    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.
    CLEAR ok_code.
    MESSAGE e368(00) WITH text-006."'Object is not found'
  ENDIF.               "IF sy-subrc <> 0
To unlock the number range object
  CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
    EXPORTING
      object           = 'ZNUM'
    EXCEPTIONS
      object_not_found = 1
      OTHERS           = 2.
  IF sy-subrc NE 0.
    CLEAR ok_code.
    MESSAGE e368(00) WITH text-006."'Object is not found'
  ENDIF.              "IF sy-subrc NE 0
ENDFORM.                    " GET_NEXT_NUMBER
And for table control logic
see the below link.
Table control of Module Pool Program
Regards,
Raju