Reg. table transport.....have ur points.

Question

Hi all,
As we know we can't directly put data in table in production server, I've a z table on development server. I used it for validation purpose. So when i'll transport it...how i will put data in production server..
Pleas assist me.
Have ur point.s

Answer 1

Please check the code ..
First create table maintaince.
now create program and add table name in list.
select one of the radio button ,it will take you sm30 and when you create record at Sm30 -> then it will ask request #.
so you can transport the data.
Table diclaration
tables: tvdir.
Selection screento table View
  selection-screen skip 2.
  parameter p_tabnm(30) as listbox visible length 30 obligatory.
  selection-screen skip 1.
  selection-screen begin of block s1 with frame title text-001.
  parameter: p_radio1 radiobutton group g1,
             p_radio radiobutton group g1.
  selection-screen end of block s1.
Add values to list box
at selection-screen output.
  type-pools: vrm.
  data: name  type vrm_id,
        list  type vrm_values,
        value like line of list.
  name = 'P_TABNM'.
  refresh list.
  <b>value-key = 'Table name'.   " Add your table name</b> 
     value-text = text-002. "'Table description'.
  append value to list.
  call function 'VRM_SET_VALUES'
       exporting
            id     = name
            values = list.
start-of-selection.
Get flag of corresponding table view
  select single tabname flag from tvdir into tvdir
                where tabname = p_tabnm.
Set flag of corresponding table view
  if p_radio1 eq 'X'.
    if tvdir-flag ne 'X'.
      update tvdir set: flag  = 'X'
                 where tabname = p_tabnm.
    endif.
  endif.
  if p_radio eq 'X'.
    if tvdir-flag eq 'X'.
      update tvdir set: flag  = ''
                   where tabname = p_tabnm.
    endif.
  endif.
Execute View/Table
  call function 'VIEW_MAINTENANCE_CALL'
    exporting
      action                               = 'U'
      view_name                            = p_tabnm
   exceptions
     client_reference                     = 1
     foreign_lock                         = 2
     invalid_action                       = 3
     no_clientindependent_auth            = 4
     no_database_function                 = 5
     no_editor_function                   = 6
     no_show_auth                         = 7
     no_tvdir_entry                       = 8
     no_upd_auth                          = 9
     only_show_allowed                    = 10
     system_failure                       = 11
     unknown_field_in_dba_sellist         = 12
     view_not_found                       = 13
     others                               = 14.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
Reset flag of corresponding table view
  update tvdir set: flag  = tvdir-flag
                where tabname = p_tabnm.
Thanks
Seshu