ABAP 中 Table Control例子(3)

p>  GET CURSOR FIELD l_field LINE l_line.

p>ENDMODULE.                    "get_cursor INPUT

p> 

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

p>*  MODULE set_cursor OUTPUT

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

p>*

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

p>MODULE set_cursor OUTPUT.

p>  SET CURSOR FIELD l_field LINE l_line.

p>ENDMODULE.                    "set_cursor OUTPUT

p> 

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

p>*  MODULE SET_EDITABLE

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

p>*

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

p>MODULE set_editable OUTPUT.

p>  LOOP AT SCREEN.

p>    IF screen-name = 'SP1-CITYFROM'.

p>      IF sp1-cityfrom = 'SDSDSD'.

p>        screen-input = 0.

p>        MODIFY SCREEN.

p>      ENDIF.

p>    ENDIF.

p>  ENDLOOP.

p>ENDMODULE.                    "SET_EDITABLE

p> 

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

p>*&      Form  f_page

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

p>*       text

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

p>*      -->CODE       text

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

p>FORM f_page USING code TYPE sy-ucomm.

p>  DATA: i TYPE i,

p>        j TYPE i.

p>  CASE code.

p>    WHEN 'P--'.

p>      content-top_line = 1.

p>    WHEN 'P-'.

p>      content-top_line = content-top_line - g_lines.

p>      IF content-top_line <= 0.

p>        content-top_line = 1.

p>      ENDIF.

p>    WHEN 'P+'.

p>      i = content-top_line + g_lines.

p>      j = content-lines - g_lines + 1.

p>      IF j <= 0.

p>        j = 1.

p>      ENDIF.

p>      IF i <= j.

p>        content-top_line = i.

p>      ELSE.

p>        content-top_line = j.

p>      ENDIF.

p>    WHEN 'P++'.

p>      content-top_line = content-lines - g_lines + 1.

p>      IF content-top_line <= 0.

p>        content-top_line = 1.