check printing....SAP Scripts

[Former Member]

/: DEFINE &MYSYMBOL& = &REGUH-VBLNR&

/: DEFINE &OUTSYMBOL& = &OUTSYMBOL&

AS &MYSYMBOL&

/: PERFORM EXTRACT IN PROGRAM ZSUBROUTINE1

/: USING &MYSYMBOL&

/: USING &OUTSYMBOL&

/: ENDPERFORM.

AS &OUTSYMBOL&

FORM EXTRACT TABLES IN_PAR STRUCTURE ITCSY OUT_PAR STRUCTURE ITCSY.

TABLES : REGUP.

DATA : BILL_NO LIKE ITCSY-VALUE.

DATA : ITAB LIKE REGUP OCCURS 0 WITH HEADER LINE.

DATA : WRBTR1(13) TYPE C.

READ TABLE IN_PAR WITH KEY NAME = 'MYSYMBOL'.

IF SY-SUBRC = 0.

BILL_NO = IN_PAR-VALUE.

ENDIF.

SELECT * FROM REGUP INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE

VBLNR = BILL_NO.

LOOP AT ITAB.

READ TABLE ITAB INDEX SY-TABIX..

IF SY-SUBRC = 0.

MOVE ITAB-WRBTR TO WRBTR1.

MOVE WRBTR1 TO OUT_PAR-VALUE.

MODIFY OUT_PAR INDEX SY-TABIX.

ENDIF.

ENDLOOP.

ENDFORM.

This is what i am using but i cannot see any output on the layout, I suppose the subroutine call is not working.

Could anyone please help me out..

Mave

[Vinod_Chandran]

Hi,

Please check the following.

1. Is your window (where the subroutine is called) is getting called from the print program?

2. Put a break point in the subroutine and execute the print program

3. If the above does not work, activate the SAPScript debugger and check what is happening.

Thanks

Vinod

[Former Member]

Hi,

/: DEFINE &MYSYMBOL& = &REGUH-VBLNR&

/: DEFINE &OUTSYMBOL& = &OUTSYMBOL&

AS &MYSYMBOL&

/: PERFORM EXTRACT IN PROGRAM ZSUBROUTINE1

/: USING &MYSYMBOL&

/: <b>CHANGING</b> &OUTSYMBOL&

/: ENDPERFORM.

AS &OUTSYMBOL&

use CHANGING instead of USING...

hope this works..

Regards,

Pradhiba

[Former Member]

Just set a breakpoint in the perform. You can check if the values are passed correctly. You might want to try yo pass a static value back to the script first in order to test your code.

[Former Member]

Hello,

Try putting quotes

DEFINE &MYSYMBOL& = '&REGUH-VBLNR&'

Activate the debugger and see if values are getting passed.

Regards,

Shekhar Kulkarni

[Former Member]

See i have used the SAP debugger and the printing program is RFFOUS_C and the subroutine is Zsubroutine1 ,i want to debug the subroutine can you please advise how could that is possible.

I can debug the sapscript but not the subroutine used behind.

[Vinod_Chandran]

Hi Mave,

Please follow these steps.

I would suggest to put a break point in the subroutine initially before debug the SAPScript. Code 'break-point' or 'break <userid>' just after the FORM statement. Now execute your transaction which calls the SAPScript. So if your subroutine is called, it will stop there.

If this is not working, go ahead with the SAPScript debugging. For this go to SE71 transaction and take the menu Utilities -> Activate Debugger. After this execute your transaction. Now you will get a popup 'SAPScript Form Debugger'. Press the OK button. SAPScript debugging is similar to normal debugging. You can use the 'Single Step' button to execute each line.

Thanks

Vinod

[Former Member]

In SE38 open the program ZSUBROUTINE1 and keep a breakpoint in the corresponding perform loop... in this way you can find out what is being passed to the sapscript..

Regards,

Pradhiba

[Former Member]

Hi Pradhiba,

Obivously i had set breakpoints in Zsubroutine1 program earlier only, when i am running the transaction FBZ5 for check printing after activating the SAPscript dewbugger.

I am routed to SAPscript debugger i cannot go to the subroutine .

Please tell me Is my subroutine is correct ? I mean passing of values from SAPscript and using them in subroutine are correct ? I suppose error is there only.

[Vinod_Chandran]

Hello,

One simple question.

If you cannot see the subroutine during the debugging, does that mean that you have not activated the SAPScript?

Can you tell me why you cannot go to the subroutine?

Thanks

Vinod

[Former Member]

ITS ACTIVATED SIR

[Former Member]

Normally if you have set a breakpoint in ur program, it should go there if it processes the exit. did u place the breakpoint at the first read statement? in both the read statements use index 1 instead of where.. and also use Changing instead of Using in SE71's perform.

try out..

pradhiba

[Former Member]

Hello,

It will first take you to the script debugger and then it will take you to the program. Deactivate the script debugger and then run it it shoudl stop in the program. Put a couple of breakpoints.

Regards,

Shekhar Kulkarni

[Vinod_Chandran]

Hi Mave,

You should first put a break point in your form. If it is not working then only go for the script debugging.

Thanks

Vinod

[Former Member]

you must use

<b>/: changing</b> &OUTSYMBOL&

instead of

/: USING &OUTSYMBOL&

[Former Member]

Hi ,

Try with this

In the form change like

: DEFINE &MYSYMBOL& = &REGUH-VBLNR&

/: DEFINE &OUTSYMBOL& = &OUTSYMBOL&

AS &MYSYMBOL&

/: PERFORM EXTRACT IN PROGRAM ZSUBROUTINE1

/: USING &MYSYMBOL&

/: CHANGING &OUTSYMBOL&

/: ENDPERFORM.

AS &OUTSYMBOL&

FORM EXTRACT TABLES IN_PAR STRUCTURE ITCSY OUT_PAR STRUCTURE ITCSY.

TABLES : REGUP.

DATA : BILL_NO LIKE ITCSY-VALUE.

DATA : ITAB LIKE REGUP OCCURS 0 WITH HEADER LINE.

DATA : WRBTR1(13) TYPE C.

READ TABLE IN_PAR WITH KEY NAME = 'MYSYMBOL'.

IF SY-SUBRC = 0.

BILL_NO = IN_PAR-VALUE.

ENDIF.

SELECT * FROM REGUP INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE

VBLNR = BILL_NO.

LOOP AT ITAB.

READ TABLE ITAB INDEX SY-TABIX..

IF SY-SUBRC = 0.

READ TABLE OUT_PAR WITH KEY NAME = 'OUTSYMBOL'

MOVE ITAB-WRBTR TO WRBTR1.

MOVE WRBTR1 TO OUT_PAR-VALUE.

MODIFY OUT_PAR.

ENDIF.

ENDLOOP.

ENDFORM.

if any problem first set the break point in the form routine and check whether the sub routine is called or not.

Cheers,

Sasi

[Former Member]

Hi ,

Try with this

In the form change like

: DEFINE &MYSYMBOL& = &REGUH-VBLNR&

/: DEFINE &OUTSYMBOL& = &OUTSYMBOL&

AS &MYSYMBOL&

/: PERFORM EXTRACT IN PROGRAM ZSUBROUTINE1

/: USING &MYSYMBOL&

/: CHANGING &OUTSYMBOL&

/: ENDPERFORM.

AS &OUTSYMBOL&

FORM EXTRACT TABLES IN_PAR STRUCTURE ITCSY OUT_PAR STRUCTURE ITCSY.

TABLES : REGUP.

DATA : BILL_NO LIKE ITCSY-VALUE.

DATA : ITAB LIKE REGUP OCCURS 0 WITH HEADER LINE.

DATA : WRBTR1(13) TYPE C.

READ TABLE IN_PAR WITH KEY NAME = 'MYSYMBOL'.

IF SY-SUBRC = 0.

BILL_NO = IN_PAR-VALUE.

ENDIF.

SELECT * FROM REGUP INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE

VBLNR = BILL_NO.

LOOP AT ITAB.

READ TABLE ITAB INDEX SY-TABIX..

IF SY-SUBRC = 0.

READ TABLE OUT_PAR WITH KEY NAME = 'OUTSYMBOL'

MOVE ITAB-WRBTR TO WRBTR1.

MOVE WRBTR1 TO OUT_PAR-VALUE.

MODIFY OUT_PAR.

ENDIF.

ENDLOOP.

ENDFORM.

if any problem first set the break point in the form routine and check whether the sub routine is called or not.

Cheers,

Sasi

[Former Member]

Hi,

Check with this

In the form modify like

: DEFINE &MYSYMBOL& = &REGUH-VBLNR&

/: DEFINE &OUTSYMBOL& = &OUTSYMBOL&

AS &MYSYMBOL&

/: PERFORM EXTRACT IN PROGRAM ZSUBROUTINE1

/: USING &MYSYMBOL&

/: changing &OUTSYMBOL&

/: ENDPERFORM.

AS &OUTSYMBOL&

• modify

FORM EXTRACT TABLES IN_PAR STRUCTURE ITCSY OUT_PAR STRUCTURE ITCSY.

TABLES : REGUP.

DATA : BILL_NO LIKE ITCSY-VALUE.

DATA : ITAB LIKE REGUP OCCURS 0 WITH HEADER LINE.

DATA : WRBTR1(13) TYPE C.

READ TABLE IN_PAR WITH KEY NAME = 'MYSYMBOL'.

IF SY-SUBRC = 0.

BILL_NO = IN_PAR-VALUE.

ENDIF.

SELECT * FROM REGUP INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE

VBLNR = BILL_NO.

LOOP AT ITAB.

READ TABLE ITAB INDEX SY-TABIX..

IF SY-SUBRC = 0.

*modified

READ TABLE OUT_PAR WITH KEY NAME = 'OUTSYMBOL'.

MOVE ITAB-WRBTR TO WRBTR1.

MOVE WRBTR1 TO OUT_PAR-VALUE.

MODIFY OUT_PAR.

ENDIF.

ENDLOOP.

ENDFORM.

if the problem continues first set breakpoint in the form routine and check whether the routine is called or not.

Cheers

Sasi