Skip to Content
0
Former Member
Jan 14, 2008 at 11:18 AM

FINDING REASON CODE

69 Views

I would like to write subroutine for display reason code ( BSAK-RSTGR ) into my layout set.

my function consultant instruct me you should pick the data based on following business logic.

Payment Document Number (REGUP-VBLNR ) equal to clearing document number ( BSAK-AUGBL) .

i have written my code as follows .

FORM ZREASONCODE TABLES in_tab structure itcsy

out_tab structure itcsy.

TABLES: REGUP, BSAK.

DATA: A_VBLNR TYPE REGUP-VBLNR,

B_RSTGR TYPE BSAK-RSTGR.

READ TABLE IN_TAB INDEX 1.

CHECK SY-SUBRC = 0.

A_VBLNR = IN_TAB-VALUE.

SELECT SINGLE RSTGR FROM BSAK INTO B_RSTGR WHERE AUGBL = A_VBLNR.

IF SY-SUBRC = 0.

READ TABLE OUT_TAB INDEX 1.

IF SY-SUBRC = 0.

OUT_TAB-VALUE = B_RSTGR.

MODIFY OUT_TAB INDEX 1 TRANSPORTING VALUE.

ENDIF.

ENDIF.

ENDFORM.

but no data is picking above logic .

can some one guide me how to pick up data for above logic.

pls suggest me i will reward the points.