Problem in subroutine pool

[Former Member]

Dear Freinds,

i developed a subroutine pool for getting pan no using vendor number.

in subroutine pool it works fine but in the form i am not getting the value.

in the subroutine pool i am getting the outtab-name some other number instead of lfa1-lifnr.

Below is my code... can anybody help me please.

form zfi_pan1 tables intab structure itcsy

outab structure itcsy.

data : ven_no type lfa1-lifnr.

data : pan_no type j_1imovend-j_1ipanno.

data : wa_intab type itcsy,

wa_outtab type itcsy.

clear pan_no.

CLEAR WA_INTAB.

read table intab into wa_intab with key 'LFA1-LIFNR'.

call function 'CONVERSION_EXIT_ALPHA_INPUT'

exporting

input = wa_intab-value

IMPORTING

OUTPUT = ven_no.

select single j_1ipanno from j_1imovend into pan_no where LIFNR = ven_no.

• OUTAB-VALUE = PAN_NO.

if sy-subrc eq 0.

• read table outab with key 'LFA1-LIFNR'.

IF SY-SUBRC EQ 0.

outab-value = pan_no.

CONDENSE outab-value.

modify outab INDEX SY-TABIX ."WITH KEY 'LFA1-LIFNR'.

endif.

endif.

endform.

Edited by: anurag.radha on Dec 26, 2011 10:49 AM

[Former Member]

Get solved myself.