например, можно так
Code:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_USER_COMMAND = 'VVV'
...
...
TABLES
T_OUTTAB = ZAG
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
FORM VVV USING R_UCOMM TYPE SY-UCOMM LS TYPE SLIS_SELFIELD.
LS-REFRESH = 'X'.
IF R_UCOMM = '&IC1'.
IF LS-TABINDEX > 0.
READ TABLE ZAG INDEX LS-TABINDEX.
SET PARAMETER ID 'PER' FIELD ZAG-PERNR.
CALL TRANSACTION 'PA20' AND SKIP FIRST SCREEN.
PERFORM FILL.
ENDIF.
ENDIF.
ENDFORM.
FORM FILL.
CLEAR ZAP. REFRESH ZAP.
SELECT * FROM PA0001 APPENDING TABLE ZAP.
ENDFORM.
LS-REFRESH = 'X'. - это параметр для обновления экрана
как вариант - можно вместо PERFORM FILL.
сделать что-то вроде
SELECT SINGLE * INTO ZAP FROM PA0001 WHERE PERNR = ZAP-PERNR.
MODIFY ZAP INDEX LS-TABINDEX.