recreate cl02 with limited F4 help

Hi,

Let try this:

1. Create one customized program with BDC, declare your search help in the program.

2. Assign customized tcode to it. E.g. ZCL02

3. Remove authorization from your users' roles/profile, don't let them access to standard tcode CL01 and CL02

4. Assign authorization to your users' roles/profile, let them access to your customized tcode ZCL01 and ZCL02.

Example:

REPORT ZTEST.

DATA: BEGIN OF BDCDATA OCCURS 30.

INCLUDE STRUCTURE BDCDATA.

DATA: END OF BDCDATA.

DATA: BDCTAB LIKE BDCDATA OCCURS 100 WITH HEADER LINE.

DATA: BEGIN OF MESSAGE OCCURS 0,

MSG TYPE BAPI_MSG,

END OF MESSAGE.

DATA: I_BDCMSGCOLL TYPE STANDARD TABLE OF BDCMSGCOLL WITH NON-UNIQUE KEY TCODE INITIAL SIZE 0,

WA_BDCMSGCOLL TYPE BDCMSGCOLL.

PARAMETERS: P_CLASS TYPE CHAR18,

P_KLART TYPE CHAR3.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_CLASS.

* <--write your search help here-->

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_KLART.

* <--write your search help here-->

START-OF-SELECTION.

PERFORM BDC_PROCESS.

SORT I_BDCMSGCOLL BY MSGTYP.

CALL TRANSACTION 'CL02' USING BDCDATA

MODE 'N' "'N' for nothing 'A' Display all

UPDATE 'S'

MESSAGES INTO I_BDCMSGCOLL. " Return error message

*

READ TABLE I_BDCMSGCOLL INTO WA_BDCMSGCOLL WITH KEY MSGTYP = 'E' BINARY SEARCH.

IF SY-SUBRC EQ 0.

MESSAGE ID WA_BDCMSGCOLL-MSGID TYPE WA_BDCMSGCOLL-MSGTYP NUMBER WA_BDCMSGCOLL-MSGNR

WITH WA_BDCMSGCOLL-MSGV1 WA_BDCMSGCOLL-MSGV2 WA_BDCMSGCOLL-MSGV3 WA_BDCMSGCOLL-MSGV4.

ELSE.

CALL TRANSACTION 'CL02' USING BDCDATA

MODE 'E' "'N' for nothing 'A' Display all

UPDATE 'S'

MESSAGES INTO I_BDCMSGCOLL. " Return error message

ENDIF.

REFRESH BDCDATA.

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

* Process *

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

FORM BDC_PROCESS.

PERFORM BDC_DYNPRO USING 'SAPLCLMO' '0100'.

PERFORM BDC_FIELD USING 'RMCLM-CLASS' P_CLASS .

PERFORM BDC_FIELD USING 'RMCLM-KLART' P_KLART.

PERFORM BDC_DYNPRO USING 'SAPLCLMO' '0100'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '/00'.

ENDFORM. "BDC_PROCESS

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

* Start new screen *

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

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM. "BDC_DYNPRO

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

* Insert field *

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

FORM BDC_FIELD USING FNAM FVAL.

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

ENDFORM. "BDC_FIELD