Code: Alles auswählen.
* von welchem Feld wurde F4 aufgerufen
Call Function 'F4UT_GET_ENVIRONMENT'
IMPORTING env_inf = wa_ddshf4env
EXCEPOTION f4_not_active = 1
OTHERS = 2.
Code: Alles auswählen.
* TOP_LINE fängt bei 1 an deshalb
tab_line = wa_ddshf4env-steplnum + tctab-top_line - 1.
Code: Alles auswählen.
MODULE PF-ENTER.
IF sy-ucomm = 'ENTER'.
CLEAR sy-ucomm.
GET CURSOR LINE line.
READ TABLE itab/wa INDEX line.
PERFORM xyz.
CALL SCREEN 9001.
ENDIF.
ENDMODULE.