Sap script - se71 - change in form

Question

Hi I tried to change as below but it giving me error as below. please provide me the solution.
change Code in script:
/: DEFINE V_QMATA.
/: PERFORM GET_QMATA IN PROGRAM ZRVADEK01 USING &VBLKP-MATNR&
/: USING &VBLKP-WERKS&
/: CHANGING &V_QMATA&.
/: ENDPERFORM.
/: IF &V_QMATA& EQ 'Z0001'.
/E
/: ENDIF.
Error when i syntex check for sap script:
( Check by Go to text -> check)
Symbol expected
Too many parameters
Code in Calling program ( This program is my printing program)
form get_qmata TABLES fp_it_intab STRUCTURE itcsy
fp_it_intabb structure itcsy
fp_it_outtab STRUCTURE itcsy.
data : v_matnr like marc-matnr,
v_werks like marc-werks,
v_qmata like marc-qmata.
READ TABLE fp_it_intab INDEX 1.
CHECK sy-subrc EQ 0.
MOVE fp_it_intab-value TO v_matnr.
READ TABLE fp_it_intabb INDEX 1.
CHECK sy-subrc EQ 0.
MOVE fp_it_intabb-value TO v_werks.
select single qmata from marc into v_qmata where matnr = v_matnr
and werks = v_werks. .
READ TABLE fp_it_outtab INDEX 1.
CHECK sy-subrc EQ 0.
READ TABLE fp_it_outtab INTO wa_outtab WITH KEY name = 'I_QMATA'
BINARY SEARCH.
IF sy-subrc EQ 0.
wa_outtab-value = v_qmata.
move v_qmata to fp_it_outtab-value.
MODIFY fp_it_outtab INDEX sy-tabix transporting value.
ENDIF.
endif.
endform.

Answer 1

hi
chk this
/: DEFINE V_QMATA.
/: PERFORM GET_QMATA IN PROGRAM ZRVADEK01
/: USING &VBLKP-MATNR&
/: USING &VBLKP-WERKS&
/: CHANGING &V_QMATA&.
/: ENDPERFORM.
/: IF &V_QMATA& EQ 'Z0001'.
/E
/: ENDIF.
FORM GET_QMATA TABLES input  STRUCTURE itcsy
                                       output STRUCTURE itcsy.
endform.
regard
nawa