AT LINE-SELECT - problem

[Former Member]

Hi All!

I need your opinion about the code I wrote to create a report with all the inventory document for certain parameters (year, plant) and if I click on the number of document inventory I should get a list with all the position (materials) from this document. When I select the positions, SY-SUBRC is set to 4 and I don't understand why, where is my mistake. Please help me. I copy here the code.

....................

LOOP AT IT_IKPF.

WA_IKPF = IT_IKPF.

AT NEW IBLNR.

WRITE : /5 WA_IKPF-GJAHR.

FORMAT HOTSPOT ON.

WRITE : WA_IKPF-IBLNR COLOR COL_NORMAL.

HIDE WA_IKPF-IBLNR.

FORMAT HOTSPOT OFF.

WRITE : WA_IKPF-WERKS,WA_IKPF-LGORT,WA_IKPF-SOBKZ,

WA_IKPF-BLDAT,WA_IKPF-ZLDAT,WA_IKPF-BUDAT,

WA_IKPF-USNAM , WA_IKPF-SPERR,WA_IKPF-ZSTAT,

WA_IKPF-DSTAT.

ENDAT.

AT END OF IBLNR.

ENDAT.

ENDLOOP.

AT LINE-SELECTION.

DATA: CMP_DI TYPE IBLNR.

DATA: NR_DI TYPE IBLNR.

GET CURSOR FIELD CMP_DI VALUE NR_DI.

IF NOT NR_DI IS INITIAL.

SELECT GJAHR IBLNR ZEILI WERKS MATNR CHARG XZAEL XDIFF

BUCHM MENGE MEINS MBLNR ZEILE USNAD

INTO TABLE IT_ISEG

FROM ISEG

WHERE IBLNR = NR_DI

ORDER BY ZEILI.

IF SY-SUBRC = 4.

WRITE : /'No material for ', NR_DI.

ENDIF.

ENDIF.

LOOP AT IT_ISEG.

WA_ISEG = IT_ISEG.

AT NEW ZEILI.

WRITE : /5 WA_ISEG-GJAHR,WA_ISEG-IBLNR,

WA_ISEG-ZEILI ,WA_ISEG-WERKS , WA_ISEG-MATNR ,

WA_ISEG-CHARG , WA_ISEG-XZAEL, WA_ISEG-XDIFF ,

WA_ISEG-BUCHM , WA_ISEG-MENGE , WA_ISEG-MEINS ,

WA_ISEG-MBLNR , WA_ISEG-ZEILE , WA_ISEG-USNAD .

ENDAT.

AT END OF ZEILI.

ENDAT.

ENDLOOP.

........................

Best regards,

Florina

[Former Member]

LOOP AT IT_IKPF.

WA_IKPF = IT_IKPF.

AT NEW IBLNR.

WRITE : /5 WA_IKPF-GJAHR.

FORMAT HOTSPOT ON.

WRITE : WA_IKPF-IBLNR COLOR COL_NORMAL.

HIDE WA_IKPF-IBLNR.

FORMAT HOTSPOT OFF.

WRITE : WA_IKPF-WERKS,WA_IKPF-LGORT,WA_IKPF-SOBKZ,

WA_IKPF-BLDAT,WA_IKPF-ZLDAT,WA_IKPF-BUDAT,

WA_IKPF-USNAM , WA_IKPF-SPERR,WA_IKPF-ZSTAT,

WA_IKPF-DSTAT.

ENDAT.

AT END OF IBLNR.

ENDAT.

ENDLOOP.

AT LINE-SELECTION.

DATA: CMP_DI TYPE IBLNR.

DATA: NR_DI TYPE IBLNR.

GET CURSOR FIELD CMP_DI VALUE NR_DI.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = NR_DI

IMPORTING

OUTPUT = NR_DI.

IF NOT NR_DI IS INITIAL.

SELECT GJAHR IBLNR ZEILI WERKS MATNR CHARG XZAEL XDIFF

BUCHM MENGE MEINS MBLNR ZEILE USNAD

INTO TABLE IT_ISEG

FROM ISEG

WHERE IBLNR = NR_DI

ORDER BY ZEILI.

IF SY-SUBRC = 4.

WRITE : /'No material for ', NR_DI.

ENDIF.

ENDIF.

LOOP AT IT_ISEG.

WA_ISEG = IT_ISEG.

AT NEW ZEILI.

WRITE : /5 WA_ISEG-GJAHR,WA_ISEG-IBLNR,

WA_ISEG-ZEILI ,WA_ISEG-WERKS , WA_ISEG-MATNR ,

WA_ISEG-CHARG , WA_ISEG-XZAEL, WA_ISEG-XDIFF ,

WA_ISEG-BUCHM , WA_ISEG-MENGE , WA_ISEG-MEINS ,

WA_ISEG-MBLNR , WA_ISEG-ZEILE , WA_ISEG-USNAD .

ENDAT.

AT END OF ZEILI.

ENDAT.

ENDLOOP.

try this..

santhosh

[Former Member]

It is working.

Thank you very much!

Florina