ABAP 中 Table Control例子(5)

p>        textline1 = sp1-carrid

p>        textline2 = sp1-connid.

p>  ENDIF.

p>ENDFORM.                    "f_detail

p> 

p>*&---------------------------------------------------------------------*

p>*&      Form  f_select

p>*&---------------------------------------------------------------------*

p>*       text

p>*----------------------------------------------------------------------*

p>*      -->CODE       text

p>*----------------------------------------------------------------------*

p>FORM f_select USING code.

p>  CASE code.

p>    WHEN 'SELECT'.

p>      sp1-mask = 'X'.

p>      MODIFY sp2 FROM sp1 TRANSPORTING mask WHERE mask IS INITIAL.

p>    WHEN 'BLOCK'.

p>      sp1-mask = 'X'.

p>      MODIFY sp2 FROM sp1 INDEX l_line TRANSPORTING mask.

p>    WHEN 'DESELECT'.

p>      sp1-mask = ''.

p>      MODIFY sp2 FROM sp1 TRANSPORTING mask WHERE mask = 'X'.

p>  ENDCASE.

p>ENDFORM.                    "f_select

p> 

p>*&---------------------------------------------------------------------*

p>*&      Form  F_ROW

p>*&---------------------------------------------------------------------*

p>*       text

p>*----------------------------------------------------------------------*

p>*      -->CODE       text

p>*----------------------------------------------------------------------*

p>FORM f_row USING code.

p>  DATA lwa_cols LIKE LINE OF content-cols.

p>  DATA: l_int TYPE i,

p>        lt_cols LIKE TABLE OF l_int.

p>  CASE code.

p>    WHEN 'INSERT'.

p>      INSERT INITIAL LINE INTO sp2 INDEX l_line.

p>    WHEN 'DELETE'.

p>      DELETE sp2 WHERE mask = 'X'.

p>  ENDCASE.

p>ENDFORM.                    "F_ROW

p> 

p>屏幕100的代码：

p>PROCESS BEFORE OUTPUT.

p>  MODULE status_0100.

p>  LOOP WITH CONTROL content.

p>    MODULE filltab.

p>    MODULE set_editable.

p>  ENDLOOP.

p>  MODULE set_cursor.

p> 

p> 

p>PROCESS AFTER INPUT.

p>  LOOP WITH CONTROL content.

p>    MODULE readtab.

p>    MODULE chang_val.

p>  ENDLOOP.

p>  MODULE get_cursor.

p>  MODULE user_command_0100.

p>