Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

sap script - se71 - change in form

Former Member
0 Kudos

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.

3 REPLIES 3

nkr1shna
Contributor
0 Kudos

Hi,

In your below SAP-SCRIPT command, you are using "USING" twice which is not expected, use only once.

PERFORM GET_QMATA IN PROGRAM ZRVADEK01 USING &VBLKP-MATNR&

/: USING &VBLKP-WERKS&

/: CHANGING &V_QMATA&.

/: ENDPERFORM.

PERFORM GET_QMATA IN PROGRAM ZRVADEK01 USING &VBLKP-MATNR& &VBLKP-WERKS&

/: CHANGING &V_QMATA&.

/: ENDPERFORM.

Best Regards,

Krishna

p244500
Active Contributor
0 Kudos

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

Former Member
0 Kudos

Hi,

In Layout text element, Using parameters should be specified in seperate line. Move USING &VBLKP-MATNR& from PERFORM line to the next line as below. Your problem will be solved.

/: PERFORM GET_QMATA IN PROGRAM ZRVADEK01

/: USING &VBLKP-MATNR&

/: USING &VBLKP-WERKS&

/: CHANGING &V_QMATA&.

/: ENDPERFORM.

Hope this is helpful.

Regards

Sravan