cancel
Showing results for 
Search instead for 
Did you mean: 

sript::Subroutine

Former Member
0 Kudos

hi all,

i have some problem with my subroutine.can anyone pl help me how to read the value from itab1 and move those value to itcsy struct.here i have given the code.

DATA: BEGIN OF ITAB OCCURS 0,

BELNR LIKE BSEG-BELNR,

BUKRS LIKE BSEG-BUKRS,

GJAHR LIKE BSEG-GJAHR,

BUZEI LIKE BSEG-BUZEI,

HKONT LIKE BSEG-HKONT,

WRBTR LIKE BSEG-WRBTR,

END OF ITAB.

data: begin of itab1 occurs 0,

hkont like bseg-hkont,

wrbtr like bseg-wrbtr,

end of itab1.

FORM TAX_AMT TABLES IN_PAR STRUCTURE ITCSY

OUT_PAR STRUCTURE ITCSY.

  • CLEAR TXT1.

  • CLEAR TXT1.

SELECT * FROM BSEG INTO CORRESPONDING FIELDS OF table ITAB WHERE "belnr = docno and

BUKRS = BUKRS AND

BELNR EQ BELNR AND

GJAHR EQ GJAHR ."AND

  • BUZEI EQ BUZEI .

  • endselect.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = HKONT

IMPORTING

OUTPUT = HKONT.

loop at ITAB.

IF ITAB-HKONT GE '0000177000' AND ITAB-HKONT LE '0000177100'.

move-corresponding itab to itab1.

endif.

endloop.

Accepted Solutions (0)

Answers (1)

Answers (1)

Former Member
0 Kudos

can you please paste the code lines olf script (Perform satement) so that we can give exact code .

Regards,

Nageswar

Former Member
0 Kudos

HI,

This is my code in script.

/: PERFORM TAX_AMT IN PROGRAM Y_GETSGTXT_PAYVOUCH

/: USING &REGUP-BUKRS&

/: USING &REGUP-BELNR&

/: USING &REGUP-GJAHR&

/: USING &REGUP-BUZEI&

/: CHANGING &TXT1&

/: CHANGING &TXT2&

/: ENDPERFORM