How we can use table control

Question

Table control but without wizard.
For instance for the table spfli, I want to design and use a table. The necessary steps for a good display and use are what?
Thanks in advance.

Answer 1

Hi,
    CHeck this sample code ... if u need more assistance means give ur mail id i will send u a document
Working with the table control - Example
Scenario:
Screen 601 has a table control named CTRL_ANVSTED.
The table should be filled with records from the table zanvstedm
For this purpose you use an internal table called TBL_ANVSTED
Declare the table control
CONTROLS CTRL_ANVSTED TYPE TABLEVIEW USING SCREEN 601.
*Internal table used to hold data
DATA: TBL_ANVSTED LIKE ZANVSTEDM OCCURS 100 WITH HEADER LINE,
Flag for initial reading
Data:   FLAG_INITIAL TYPE I VALUE 0.
PROCESS BEFORE OUTPUT.
Read data into the table control and the internal table
PF status etc.
  MODULE INITIALIZE_601.
Read data from table anvstedm into internal table tbl_anvsted.
  MODULE INIT_TBL_ANVSTED.
Fill control with data from ythe internal table
  LOOP WITH CONTROL CTRL_ANVSTED.
    MODULE FILL_CTRL_ANVSTED.
  ENDLOOP.
MODULE INIT_TBL_ANVSTED  OUTPUT.
Read data from table anvstedm into internal table tbl_anvsted.
  IF FLAG_INITIAL = 0.
    FLAG_INITIAL = 1.
    SELECT * FROM ZANVSTEDM INTO TABLE TBL_ANVSTED.
  ENDIF.
ENDMODULE.
MODULE FILL_CTRL_ANVSTED OUTPUT.
Fill control with data from the internal table
     READ TABLE TBL_ANVSTED INDEX CTRL_ANVSTED-CURRENT_LINE.
     IF SY-SUBRC NE 0.
       EXIT FROM STEP-LOOP.
     ENDIF.
ENDMODULE.
PROCESS AFTER INPUT.
Write changes in table control to internal table
LOOP WITH CONTROL CTRL_ANVSTED.
  MODULE CTRL_ANVSTED.
ENDLOOP.
MODULE CTRL_ANVSTED INPUT.
Write changes in table control to internal table
   MODIFY TBL_ANVSTED INDEX CTRL_ANVSTED-CURRENT_LINE.
ENDMODULE.
Using a Table control with an internal table
Table control  : TC1
Internal table : it_zsd00003
In the attributes of the table control, select w/SelColumn to get a selection
column on the table control, and give a name (In this example IT_ZSD00003-LINESEL).
Remember to include the field IT_ZSD00003-LINESEL in the
internal table ( linesel(1)       type c, ).
When used with an internal table, remember to program
the update functionality of the database tables. Update and
validation can be done when leaving the screen or in PAI using controlname-
current_line (E.g. TC1-current_line ) to indentify the entry in the internal table.
process before output.
  module status_0100.
  loop at it_zsd00003 with control tc1 cursor tc1-
current_line.
    module tc1_set_field_attr.     "Optional
  endloop.
module status_0100 output.
  set pf-status 'SCREEN0100'.
OPTIONAL: If it_zsd00003 hasn't allready been filled with
data, you can do it the first time PBO is called
  module read_data.
Setting the number of lines of the table control
  describe table it_zsd00003 lines tc1-lines.
Optional: Place the cursor on line  g_current_line e.g. after a
validation error has occured
  if not ( g_current_line is initial ).
    tc1-top_line =  g_current_line.
    clear g_current_line.
  endif.
endmodule.                 " STATUS_0100  OUTPUT
module read_data.
  if flag is initial.
    perform read_data.
    flag = 1.
  endif.
endmodule.       
module tc1_set_field_attr output.
Optional: Protect some of the columns on the
table control
    loop at screen.
      if screen-group1 = 'X'.
        screen-input = 0.
        modify screen.
      endif.
    endloop.
  endif.
endmodule.                 " tc1_set_field_attr  OUTPUT
process after input.
  loop at it_zsd00003.
     module modify_tc1.
  endloop.
  module user_command_0100.
module modify_tc1 input.
Modify an existing entry
  modify it_zsd00003 index tc1-current_line.
OR
Appending a new entry
  append it_zsd00003.
endmodule.                 " modify_tc1  INPUT
Deleting a single line selected with the selection column:
form delete_record.
  loop at it_zsd00003.
    if it_zsd00003-linesel = 'X'.
       exit.
    endif.
  endloop.
   delete from zsd00003
       where  zdriftscenter     = it_zsd00003-zdriftscenter
endform.                                               
Sorting a table control
While were on the subject. You may need a sort routine in
case the user selects a column and desires to sort on
its contents.  All you need is a sort icon on the
applications toolbar of the screens GUI  to return the OK-
code
of 'SORT'.  You will need to copy this to the PAI of every
screen and change the name of the module, and the actual
itab for this screen 
MODULE SORT_screen100 INPUT.
   CASE SAVE_OK_CODE.
      WHEN 'SORT'.
         LOOP AT T1-COLS INTO WA.
            IF WA-SELECTED = 'X' .
               SPLIT WA-SCREEN-NAME AT '-' INTO FILE FLD.
               SORT itab BY (FLD).
            ENDIF.
         ENDLOOP.
   ENDCASE.
ENDMODULE.                 " SORT_screen100  INPUT
Tom Quinn
ESRI, Redlands, CA.  
Scrolling the table control
Now let's look at scrolling.
(assume that the name of your table control is T1)
In the screen logic you will have:
                Loop with control T1.
                   module get_Looplines.
                Endloop.
                    Module get_looplines.
                      Looplines = sy-loopc.
                    Endmodule.
In the PBO of the screen you will have a module that loads
the itab and determines the total number of lines read.
                  Module load_itab.
                        .      (select database table and
append to itab)
                   describe table itab lines linecount.
                 Endmodule.
We now have all the values necessary to construct a scroll
module.
MODULE SCROLL INPUT.
CASE SAVE_OK_CODE.
WHEN 'P--'.
   T1-TOP_LINE = 1.
WHEN 'P-'.
   T1-TOP_LINE = T1-TOP_LINE - LOOPLINES.
     IF T1-TOP_LINE < 1.
        T1-TOP_LINE = 1.
     ENDIF.
WHEN 'P+'.
   T1-TOP_LINE = T1-TOP_LINE + LOOPLINES.
     IF T1-TOP_LINE > LINECOUNT.
        T1-TOP_LINE = LINECOUNT - LOOPLINES + 1.
     ENDIF.
WHEN 'P++'.
   T1-TOP_LINE = LINECOUNT - LOOPLINES + 1.
ENDCASE.
ENDMODULE.                 " SCROLL  INPUT
Or else you can use the below code
    WHEN 'P--'.
      CLEAR SY-UCOMM.
      CTR1-TOP_LINE = 1.
    WHEN 'P-'.
      CLEAR SY-UCOMM.
      CTR1-TOP_LINE = CTR1-TOP_LINE - LINECOUNT1.
      IF CTR1-TOP_LINE < 1.
        CTR1-TOP_LINE = 1.
      ENDIF.
    WHEN 'P+'.
      DESCRIBE TABLE ITAB1 LINES N1.
      CTR1-TOP_LINE = CTR1-TOP_LINE + LINECOUNT1.
      IF CTR1-TOP_LINE > N1.
        CTR1-TOP_LINE = N1.
      ENDIF.
      CLEAR SY-UCOMM.
    WHEN 'P++'.
      DESCRIBE TABLE ITAB1 LINES N1.
      CLEAR SY-UCOMM.
      CTR1-TOP_LINE = N1.
Other hints for using the table contro
1. Setting the number of lines.
2. Scrolling to a spcefic line.
1. Setting the number of lines.
tc1-lines = 500.
> The problem is not in module scroll_code but rather the
lack of module =
> LINE_COUNT in your PBO. I have found this very reliable
and absolutely =
> necessary in getting the scrolling in table function to
work. This module
> =
> has the following code in it:
>
> module line_count output.
>     describe table itab lines tc1-lines.
> endmodule.
2. Scrolling to a spcefic line.
tc1-top_line =  500.