Implicit Enhancements - Error when activating

[Former Member]

Hi,

I have an implicit enhancement at the end of a Form. This form is called in an Include.

Now at the implicit enhancement i have right clicked and chose "Create", supplied the values and it created a block "Enhancement.....EndENHancement". I wrote my one line code here. Now i click on "Activate Enhancement" button it gives me an error "Report/Program Statement Missing or program type is I(Include)".

Could anybody throw some light on how to overcome this error?

[SumanPoddar]

You can try 2 things..

1. Activate the Enhancement separately from SE19

2. Another thing in SE38 initia screen just write the main program name and activate the whole

[Former Member]

1) This is not a BADI

2) I am getting the same error when trying to activate the main program (a standard program) from SE38

[SumanPoddar]

SE19 is Enehancement Implementaion editor as well as BADI Implementation editor ... Just look into the screen..........

[Former Member]

Sorry for that. But it is giving the same error there.

[Former Member]

Hi plz go through this info.

Enhancement : SUSR0001 User Exit after logon to SAP system.

When the User logs in the system, this exit is called each and every time for every user after logon to the R/3 system.

Function Exit : EXIT_SAPLSUSF_001 .

Every dialog user passes through this function module after logon, It can be used to execute individual customer checks and send messages to the user.

TABLE USR02 CONTAINS LOGON DATA and can be used in this exit to get the user logon data and take necessary actions as required by the customer requirement and even LOG_OFF (not recommended by SAP).

STEPS REQUIRED FOR IMPLEMETING THE EXIT

1) Open CMOD(Project maintenance) Transaction. Enter a project name starting with Z. Press enter.

2) Goto Enhancement window by clicking the enhancement button in the application tool bar.

3) Write SUSR0001 in the enhancement column and press enter.

4) Goto Components window (It will show all the exits included in this enhancement), in our case only one Function Exit will be shown.

5) Double click on the Function exit EXIT_SAPLSUSF_001.

The following function source code will be displayed in the function editor

FUNCTION EXIT_SAPLSUSF_001.

*"----

---

""Lokale Schnittstelle:

*"----

---

INCLUDE ZXUSRU01.

ENDFUNCTION.

6) Double click on the include ZXUSRU01 .If it will ask to create the include say yes .

7)Write the following code in the include.

DATA W_TEXT(30) TYPE C.

DATA W_DATE(10) TYPE C.

WRITE sy-datum TO W_DATE DD/MM/YYYY.

CONCATENATE ' Date is ' W_DATE INTO W_TEXT.

CALL FUNCTION 'POPUP_TO_INFORM'

EXPORTING

title = 'Welcome to Paradise !'

txt1 = 'Have A Nice Day'

txt2 = W_TEXT

• TXT3 = ' '

• TXT4 = ' '

8)Save the include and activate it .Activate the Project also by going to the menu in CMOD transaction. Now The user exit SUSR0001 has been implemented and is ready to use.

9) Logon to the R/3 system . A dialog box will appear with the message

Welcome to Paradise ! with date .

Rewards some points.

Rgds,

P.Nag

[Former Member]

Thanks for the info. But i am not asking about classical enhancement concept. The new Enhancement concept which comes with NW2004S. More particularly, the Implicit Enhancement concept.