Creare function di ricerca x help custom

FUNCTION ZZSEL_SAKNR.
*"----------------------------------------------------------------------
*"*"Interfaccia locale:
*" EXPORTING
*" REFERENCE(SAKNR) TYPE SAKNR
*" REFERENCE(TXT50) TYPE TXT50
*" TABLES
*" SHLP_TAB TYPE SHLP_DESCT
*" RECORD_TAB STRUCTURE SEAHLPRES
*" CHANGING
*" REFERENCE(SHLP) TYPE SHLP_DESCR
*" REFERENCE(CALLCONTROL) LIKE DDSHF4CTRL STRUCTURE DDSHF4CTRL
*"----------------------------------------------------------------------

data wa_opt TYPE LINE OF DDSHSELOPS.


IF CALLCONTROL-STEP = 'SELECT'.
IF SHLP-SELOPT[] is INITIAL.
clear wa_opt.
wa_opt-SHLPNAME = 'ZSAKNR'.
wa_opt-SHLPFIELD = 'SAKNR'.
wa_opt-SIGN = 'I'.
wa_opt-OPTION = 'BT'.
wa_opt-LOW = '2205150001'.
wa_opt-HIGH = '2210100003'.

append wa_opt to SHLP-SELOPT .

EXIT. "Don't process STEP DISP additionally in this call.
ENDIF.
ENDIF.

ENDFUNCTION.