Table maintainence

Question

Hello guys,
I have a requirement here. Please help me.
I had created a custom table and had developed a custom program for creating new entries in that table.
Basically the functionality of this program is similar to SM30.
When I click NEW ENTRIES tab (table maintainence screen) for this table, 24 empty rows will be displayed with some default value say 'ABCD'in one of the columns for all 24 rows(pulling ABCD value from domain assigned to that field/column).
Now my requirement is I have to change that default value 'ABCD' to some other value say 'PQRS' with out changing domain value range when I clicked NEW ENTRIES tab.
How should I add this in PBO event of my program??
Any suggestions???
Thanks in advance.

Answer 1

Hi,
Do the following :
In PBO 
  LOOP .
  assign new value here.
    MODULE test.
  update data from internal table to table control .
    MODULE update_data.
  ENDLOOP.
MODULE test OUTPUT.
  zztest2-zztest = 'CDEF'.
ENDMODULE.                 " test  OUTPUT
MODULE update_data OUTPUT.
  DATA : lin TYPE i.
  lin = tc1-current_line + tc1-top_line.
  READ TABLE itab1 INDEX lin.
  IF sy-subrc = 0.
    zztest2-vbeln =   itab1-vbeln.
    zztest2-zztest = itab1-zztest.
  ENDIF.
  tc1-lines = sy-loopc.
ENDMODULE.                 " update_data  OUTPUT
Here ZZTEST are the screen fields ( zztest2-zztest change the default value ) and data is in ITAB1.
Hope this work for you.
regards,
Gagan