Recreate cl02 with limited F4 help

Question

i need to recreate CL02 and cL01 transaction so that the F4 help contains limited class types only.
kindly tell me how to proceed and also i need to restrict an object so that not all the users get access
to this zclo1 .

Answer 1

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