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.