Skip to Content
0
Former Member
Nov 21, 2006 at 10:15 AM

field symbol in iwo10009 exit

182 Views

Hi friend

i have try this code in exit iwo10009

but when program come out from exit its maintaining old sort field data

not what i have passed though field symbol of EQFNR

Thanks

Ajay

IF CAUFVD_IMP-AUTYP = '30' AND CAUFVD_IMP-IWERK = '2000' .

**Declaration Part

TABLES: EQUZ ," PM technical objects (EQUI, funcational location)

EQKT ." Equipment Short Texts

DATA: LV_IWERK(26) TYPE C,

LV_EQUNR(26) TYPE C.

DATA: LV_CAUFVD(30) .

FIELD-SYMBOLS: <FS_CAUFVD> TYPE ANY.

**Processing Part

LV_CAUFVD = '(SAPLCOB1)CAUFV_BT[1]-EQFNR'.

ASSIGN LV_CAUFVD TO <FS_CAUFVD>.

IF NOT CAUFVD_IMP-EQUNR IS INITIAL.

SELECT SINGLE * FROM EQUZ

WHERE EQUNR = CAUFVD_IMP-EQUNR

AND DATBI = '99991231' .

IF SY-SUBRC EQ 0.

SELECT SINGLE * FROM EQKT

WHERE EQUNR = EQUZ-HEQUI .

IF SY-SUBRC EQ 0.

CAUFVD_IMP-EQFNR = EQKT-EQKTX .

<FS_CAUFVD> = CAUFVD_IMP-EQFNR.

ENDIF.

ENDIF.

ENDIF.

ENDIF.