topic Re: customer exit is not functioning after ECC upgrade/support package in Application Development and Automation Discussions

customer exit is not functioning after ECC upgrade/support package

Former Member — Mon, 24 May 2010 22:10:50 GMT

It seems our customer exit is not functioning after ECC upgrade/support package. I tried to activate the project again, no use. please help. Thanks! (see below for the enhancement info)

COZF0002 Change purchase req. for externally procured component

EXIT_SAPLCOZF_002

INCLUDE ZXCOZU02

&----

*& Include ZXCOZU02

&----

CONSTANTS: lcc_eban(25) TYPE c VALUE '(SAPLCOBC)EBAN'.

FIELD-SYMBOLS: <fs_eban> TYPE eban.

DATA: l_fkstl TYPE prps-fkstl.

Move values from the LUW to the Internal Table

ASSIGN (lcc_eban) TO <fs_eban>.

If the field symbol is "NOT' empty then proceed

IF ( <fs_eban> IS ASSIGNED ).

if WBS work order, get cost center from PRPS

IF ( caufvd_imp-auart = 'ZM05' ).

SELECT SINGLE fkstl INTO l_fkstl FROM prps

WHERE pspnr = caufvd_imp-pspel.

IF ( sy-subrc = 0 ).

WRITE l_fkstl TO <fs_eban>-zzfistl.

ENDIF.

if not WBS WO, move cost center minus leading zeros to funds center

ELSE.

WRITE caufvd_imp-kostl TO <fs_eban>-zzfistl.

ENDIF.

Re: customer exit is not functioning after ECC upgrade/support package

former_member376453 — Mon, 24 May 2010 22:35:01 GMT

You are trying to get data from stack '(SAPLCOBC)EBAN'. Check after upgrade, the program name is still the same or it has changed. I think this has changed, thats why ur custom exit is not working.

Kuntal

Re: customer exit is not functioning after ECC upgrade/support package

Former Member — Mon, 24 May 2010 22:49:23 GMT

Thanks you for your quick answer.

Which program did you mean?

I checked the program for IW32, it's SAPLCOIH, is that what you mean?

Re: customer exit is not functioning after ECC upgrade/support package

former_member376453 — Mon, 24 May 2010 22:51:31 GMT

I mean to say, check in the stack structure in code, whether the required value is available or not. - Kuntal

Re: customer exit is not functioning after ECC upgrade/support package

Former Member — Mon, 24 May 2010 22:54:24 GMT

How to check? could you please provide the steps in detail? Thanks!

Re: customer exit is not functioning after ECC upgrade/support package

former_member376453 — Mon, 24 May 2010 22:58:37 GMT

Keep a break point and run the t-code IW32. It will stop at your break point. check the field symbol after assignment, whether it has received any value or not.

Re: customer exit is not functioning after ECC upgrade/support package

Former Member — Mon, 24 May 2010 23:06:38 GMT

Did you mean set a break point in the follow code?(Include ZXCOZU02), I tried set a break point in this code, but It didn't stop .

&----

*& Include ZXCOZU02

&----

CONSTANTS: lcc_eban(25) TYPE c VALUE '(SAPLCOBC)EBAN'.

FIELD-SYMBOLS: <fs_eban> TYPE eban.

DATA: l_fkstl TYPE prps-fkstl.

Move values from the LUW to the Internal Table

ASSIGN (lcc_eban) TO <fs_eban>.

If the field symbol is "NOT' empty then proceed

IF ( <fs_eban> IS ASSIGNED ).

if WBS work order, get cost center from PRPS

IF ( caufvd_imp-auart = 'ZM05' ).

SELECT SINGLE fkstl INTO l_fkstl FROM prps

WHERE pspnr = caufvd_imp-pspel.

IF ( sy-subrc = 0 ).

WRITE l_fkstl TO <fs_eban>-zzfistl.

ENDIF.

if not WBS WO, move cost center minus leading zeros to funds center

ELSE.

WRITE caufvd_imp-kostl TO <fs_eban>-zzfistl.

ENDIF.