Como hacer funcionar el scroll vertical de un table control

[Vero2007]

Buenas:

Tengo un report normalito en el que tengo q conseguir que funcione el scroll vertical, pero no se como y no encuentro información suficiente. Alguien podria indicarme más o menos como se hace.

Mi codigo es el siguiente:


INCLUDE ZTBLDTOP. " global Data

call screen '0100'.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.

ITAB_PHONELIST-NAME = 'hola'.
ITAB_PHONELIST-PHONE = '123'.
ITAB_PHONELIST-EMAIL = 'df@hotamil.com'.
APPEND ITAB_PHONELIST.
ITAB_PHONELIST-NAME = 'hola2'.
ITAB_PHONELIST-PHONE = '3453453'.
ITAB_PHONELIST-EMAIL = '23@2'.
APPEND ITAB_PHONELIST.
ITAB_PHONELIST-NAME = 'hola3'.
ITAB_PHONELIST-PHONE = '34334'.
ITAB_PHONELIST-EMAIL = 'sfasdf@hotmt'.
APPEND ITAB_PHONELIST.
ITAB_PHONELIST-NAME = 'hola4'.
ITAB_PHONELIST-PHONE = '1234'.
ITAB_PHONELIST-EMAIL = 'df@hotamil.com4'.
APPEND ITAB_PHONELIST.

SET PF-STATUS 'MENU100'.


ENDMODULE. " STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*
*& Module DISPLAY_USERDATA OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE DISPLAY_USERDATA OUTPUT.
READ TABLE ITAB_PHONELIST INDEX tablecontrol-CURRENT_LINE.
IF SY-SUBRC EQ 0.
RECORD-NAME = ITAB_PHONELIST-NAME.
RECORD-PHONE = ITAB_PHONELIST-PHONE.
RECORD-EMAIL = ITAB_PHONELIST-EMAIL.
SET CURSOR FIELD 'RECORD-NAME' line tablecontrol-current_line.
ELSE.
EXIT FROM STEP-LOOP.
ENDIF.
ENDMODULE. " DISPLAY_USERDATA OUTPUT



EL INLCUDE:

DATA: BEGIN OF RECORD,
NAME(30),
PHONE(20),
EMAIL(50),
END OF RECORD.

DATA: ITAB_PHONELIST LIKE RECORD OCCURS 0 WITH HEADER LINE.

CONTROLS: tablecontrol TYPE TABLEVIEW USING SCREEN 0100.

DATA: SAVE_CODE(4),
OK_CODE(4),
FILENAME LIKE RLGRAP-FILENAME,
CONFIRMATION,
SELECTION.

[lisandrolan]

Fijate de ver la referencia de utilizacion de este modulo de funciones:

FORM scroll_table .
CALL FUNCTION 'SCROLLING_IN_TABLE'
EXPORTING
entry_act = tc-top_line
entry_to = tc-lines
* LAST_PAGE_FULL = c_true
loops = gv_loopc
ok_code = gv_okcode
overlapping = c_true
IMPORTING
entry_new = tc-top_line
.

[Vero2007]

Muchas gracias ya me funciona.