Hi urgent pls suggest when i press enter the data disappears...

Question

hi
i have develop,ed a module pool for table maintianece
in which  there are theree fields
customer number name  email id
now when i dont press enter at first field ie customer number after entering all data
and save the data is saved properly for all three fields
but if after e ntering the customer number i press enter and then enter name and email id
and save the data for email is not saved and also if i just press enter again the data in email id column which i entered disappears
can anyone suggest reason and solution for it
regards
Arora

Answer 1

hi
here is my code
PROCESS BEFORE OUTPUT.
  LOOP   WITH CONTROL TABLE_ZCUST_EM_CREATE."AT T_ZCUST_EM_CREATE
    MODULE STATUS_0200.
  ENDLOOP.
*Process after input
PROCESS AFTER INPUT.
  MODULE CANCEL_200 AT EXIT-COMMAND.
  LOOP WITH CONTROL TABLE_ZCUST_EM_CREATE ."AT T_zcust_em_CREATE ." .".
   MODULE USER_COMMAND_0200.
    CHAIN.
      FIELD t_ZCUST_EM_create-ship_to .
     MODULE set_field_validation ON CHAIN-REQUEST.
    ENDCHAIN.
    MODULE USER_COMMAND_0200.
  ENDLOOP.
here ship_to is customer number
ship_to_name is name
and email id is email id field
pls suggest on this code also if u want i can give code for the module validation and user commarnd 2000
as below
MODULE STATUS_0200 OUTPUT.
  w_lines_200 = sy-loopc.
*Reading table t_zcust_em_create for screen 200.
  read table t_zcust_em_create
    index table_zcust_em_create-current_line.
*Refreshing The Internal table 't_zcust_em_temp'
  refresh:t_zcust_em_temp.
ENDMODULE. 
MODULE set_field_validation INPUT.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
            EXPORTING
               INPUT         = t_zcust_em_create-ship_to
            IMPORTING
                OUTPUT       = t_zcust_em_create-ship_to.
  select single kunnr from kna1 into v_kunnr
          where kunnr = t_zcust_em_create-ship_to.
      if sy-subrc = 0.
       select single name1 from kna1 into t_zcust_em_create-ship_to_name
       where kunnr = t_zcust_em_create-ship_to.
      else.
      t_gui1-fcode = 'BACK'.
      append t_gui1.
      t_gui1-fcode = 'EXIT'.
      append t_gui1.
      t_gui1-fcode = 'SAVE'.
      append t_gui1.
      SET PF-STATUS 'AIMS_200' excluding t_gui1.
      message E002 with t_zcust_em_create-ship_to.
         endif. "kna1
ENDMODULE.                 " set_field_validation  INPUT
MODULE USER_COMMAND_0200 INPUT.
*Setting it for select/deselect entries
  move:t_zcust_em_create to t_zcust_em_create_sel.
  append t_zcust_em_create_sel.
  clear:t_zcust_em_create_sel.
*Getting internal table t_zcust_em_create with control
  read table t_zcust_em_create
         with key ship_to = t_zcust_em_create-ship_to.
*Getting internal table for create entries: screen-200
  if sy-subrc ne 0 and t_zcust_em_create-ship_to ne space .
    append  t_zcust_em_create     .
    move:t_zcust_em_create to t_zcust_em_create_tmp.
    append t_zcust_em_create_tmp .
    clear:t_zcust_em_create_tmp  ,
          t_zcust_em_create      .
  endif.
  clear:t_cols.
*Getting the value of  w_fill_200.
  describe table t_zcust_em_create lines w_fill_200.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
PLEASE SUGGEST
REGARDS
ARORA
  module read_table_value_0200.