F4Help

)* _*(

用户F4 Help的作成。

[@more@]

REPORT ZF4HELP.

*----------------------------------------------------------------------*

* INTERNAL TABLES & WORK AREAS *

*----------------------------------------------------------------------*

* 人事領域内表

DATA: BEGIN OF GT_T500P OCCURS 0,

PERSA LIKE T500P-PERSA, "人事領域

NAME1 LIKE T500P-NAME1, "人事領域テキスト

END OF GT_T500P.

DATA: G_REPID LIKE SY-REPID, "当前程序

G_DYNNR LIKE SY-DYNNR. "当前屏幕

*----------------------------------------------------------------------*

* PARAMETERS & SELECT-OPTIONS *

*----------------------------------------------------------------------*

PARAMETERS P_PERSA LIKE T500P-PERSA.

*----------------------------------------------------------------------*

* INITIALIZATION *

*----------------------------------------------------------------------*

INITIALIZATION.

G_REPID = SY-REPID.

G_DYNNR = SY-DYNNR.

REFRESH GT_T500P.

GT_T500P-PERSA = '1000'.

GT_T500P-NAME1 = 'Hamburg'.

APPEND GT_T500P.

GT_T500P-PERSA = '1100'.

GT_T500P-NAME1 = 'Berlin'.

APPEND GT_T500P.

*----------------------------------------------------------------------*

* START-OF-SELECTION *

*----------------------------------------------------------------------*

START-OF-SELECTION.

WRITE P_PERSA.

*----------------------------------------------------------------------*

* AT SELECTION-SCREEN *

*----------------------------------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PERSA.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'PERSA'

DYNPPROG = G_REPID

DYNPNR = G_DYNNR

DYNPROFIELD = 'P_PERSA'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = GT_T500P.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8214011/viewspace-975957/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8214011/viewspace-975957/