ABAP 中 Table Control例子(2)

p>    WHEN 'P+'.

p>      PERFORM f_page USING save_ok.

p>    WHEN 'P++'.

p>      PERFORM f_page USING save_ok.

p>    WHEN 'SELECT'.

p>      PERFORM f_select USING 'SELECT'.

p>    WHEN 'BLOCK'.

p>      PERFORM f_select USING 'BLOCK'.

p>    WHEN 'DESELECT'.

p>      PERFORM f_select USING 'DESELECT'.

p>    WHEN 'INSERT'.

p>      PERFORM f_row USING 'INSERT'.

p>    WHEN 'DELETE'.

p>      PERFORM f_row USING 'DELETE'.

p>  ENDCASE.

p>ENDMODULE.                    "user_command_0100 INPUT

p> 

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

p>*  MODULE filltab OUTPUT

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

p>*

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

p>MODULE filltab OUTPUT.

p>  READ TABLE sp2 INTO sp1 INDEX content-current_line.

p>ENDMODULE.                    "filltab OUTPUT

p> 

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

p>*  MODULE readtab INPUT

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

p>*

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

p>MODULE readtab INPUT.

p>  g_lines = sy-loopc.

p>  MODIFY sp2 FROM sp1 INDEX content-current_line.

p>ENDMODULE.                    "readtab INPUT

p> 

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

p>*  MODULE chang_val INPUT

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

p>*

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

p>MODULE chang_val INPUT.

p>  DATA lwa_cols LIKE LINE OF content-cols.

p> 

p>  LOOP AT content-cols INTO lwa_cols.

p>    IF lwa_cols-screen-name = 'SP1-COUNTRYFR'

p>      AND sp1-countryfr = 'AA'.

p>      sp1-cityfrom = 'SDSDSD'.

p>      MODIFY sp2 FROM sp1 INDEX content-current_line.

p>    ENDIF.

p>  ENDLOOP.

p>ENDMODULE.                    "chang_val INPUT

p> 

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

p>*  MODULE get_cursor INPUT

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

p>*

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

p>MODULE get_cursor INPUT.