abap F4 帮助 一例

<!--StartFragment -->

*&---------------------------------------------------------------------*
*&ReportZ_LJC_078
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORTz_ljc_078LINE-SIZE200.

tables:mara.

parameters:p_shlikemara-matnr.

DATA:LTAB_FIELDSLIKEHELP_VALUEOCCURS0WITHHEADERLINE,
BEGINOFLTAB_VALUESOCCURS0,
FELD(40)TYPEC,
ENDOFLTAB_VALUES.

INITIALIZATION.
DATA:L_matnr(40),L_meins(40).

LTAB_FIELDS-TABNAME='MARA'.
LTAB_FIELDS-FIELDNAME='MATNR'.
LTAB_FIELDS-SELECTFLAG='X'.
APPENDLTAB_FIELDS.
LTAB_FIELDS-TABNAME='MARA'.
LTAB_FIELDS-FIELDNAME='MEINS'.
LTAB_FIELDS-SELECTFLAG=''.
APPENDLTAB_FIELDS.

SELECTmatnrmeinsINTO(L_matnr,L_meins)
FROMmarawherematnrlike'%380%'.
LTAB_VALUES-FELD=L_matnr.
APPENDLTAB_VALUES.
LTAB_VALUES-FELD=L_meins.
APPENDLTAB_VALUES.
ENDSELECT.

ATSELECTION-SCREENONVALUE-REQUESTFORP_SH.
PERFORMgetF4helpUSINGP_SH.

START-OF-SELECTION.


*&---------------------------------------------------------------------*
*&FormgetF4help
*&---------------------------------------------------------------------*
FORMgetF4helpUSINGP_PARA.
CALLFUNCTION'HELP_VALUES_GET_WITH_TABLE'
EXPORTING
FIELDNAME='MATNR'
TABNAME='MARA'
Titel='搜索物料'
IMPORTING
SELECT_VALUE=P_PARA
TABLES
FIELDS=LTAB_FIELDS
VALUETAB=LTAB_VALUES
EXCEPTIONS
FIELD_NOT_IN_DDIC=01
MORE_THEN_ONE_SELECTFIELD=02
NO_SELECTFIELD=03.
ENDFORM."getF4help