topic run time error in Application Development and Automation Discussions

run time error

Former Member — Thu, 13 Sep 2007 08:56:46 GMT

this program comes run time error

TABLES : vbak, vbap, vbkd, konv, kna1,adr6.

DATA :BEGIN OF i_vbak OCCURS 0,

vbeln LIKE vbak-vbeln,

ernam LIKE vbak-ernam, "Name Of Person who Created the object

telf1 LIKE vbak-telf1, "Telephone Number

kunnr LIKE vbak-kunnr, "Customer

knumv LIKE vbak-knumv,

ps_psp_pnr LIKE vbak-ps_psp_pnr, "Work Breakdown Structure Element

END OF i_vbak.

DATA :BEGIN OF i_vbap OCCURS 0,

vbeln LIKE vbak-vbeln,

netwr LIKE vbap-netwr, " Net value of the order item in document currency

ernam LIKE vbap-ernam,

ps_psp_pnr LIKE vbap-ps_psp_pnr, "Work Breakdown Structure Element

knumh LIKE vbap-knumh,

END OF i_vbap.

DATA :BEGIN OF i_vbkd OCCURS 0,

vbeln LIKE vbkd-vbeln,

kdgrp LIKE vbkd-kdgrp, "Customer Group

bzirk LIKE vbkd-bzirk, "Sales District

gjahr LIKE vbkd-gjahr, "Fiscal year

END OF i_vbkd.

DATA :BEGIN OF i_konv OCCURS 0,

knumv LIKE konv-knumv,

kwert LIKE konv-kwert,

knumh LIKE konv-knumh,

END OF i_konv.

DATA :BEGIN OF i_kna1 OCCURS 0,

kunnr LIKE kna1-kunnr, "Customer

name1 LIKE kna1-name1, "Name

adrnr LIKE kna1-adrnr, "Address

pstlz LIKE kna1-pstlz, "Postal Code

telf1 LIKE kna1-telf1, "Telephone number

END OF i_kna1.

DATA : BEGIN OF i_adr6 OCCURS 0,

smtp_addr LIKE adr6-smtp_addr, "Customer Email ID.

END OF i_adr6.

DATA :BEGIN OF i_data OCCURS 0,

kunnr LIKE vbak-kunnr, "Customer

ernam LIKE vbak-ernam, "Contact person

telf1 LIKE vbak-telf1, "Telephone Number

ps_psp_pnr LIKE vbap-ps_psp_pnr, "Work Breakdown Structure Elemen

netwr LIKE vbap-netwr,

kdgrp LIKE vbkd-kdgrp, "Customer Group

bzirk LIKE vbkd-bzirk, "Sales District

gjahr LIKE vbkd-gjahr, "Fiscal year

kwert LIKE konv-kwert,

name1 LIKE kna1-name1, "Name

adrnr LIKE kna1-adrnr, "Address

pstlz LIKE kna1-pstlz, "Postal Code

smtp_addr LIKE adr6-smtp_addr, "Customer Email ID.

END OF i_data.

************************************************************************

Selection - Screen

************************************************************************

SELECT-OPTIONS : s_kwrt1 FOR konv-kwert. " Condition value

SELECT-OPTIONS : s_kwrt2 FOR konv-kwert. " type n.

SELECT-OPTIONS : s_kwrt3 FOR konv-kwert.

SELECT-OPTIONS : s_kwrt4 FOR konv-kwert.

SELECT-OPTIONS : s_kwrt5 FOR konv-kwert.

SELECT-OPTIONS : s_kdgrp FOR vbkd-kdgrp. "Customer Group

SELECT-OPTIONS : s_kunnr FOR vbak-kunnr. "Customer

SELECT-OPTIONS : s_pspnr FOR vbak-ps_psp_pnr. "Project ID

SELECT-OPTIONS : s_bzirk FOR vbkd-bzirk. "Occasion ID

SELECT-OPTIONS : s_pspnr1 FOR vbap-ps_psp_pnr. "Project ID

SELECT-OPTIONS : s_bzirk2 FOR vbkd-bzirk. "Occasion ID

PARAMETER : s_gjahr type vbkd-gjahr.

SELECT-OPTIONS : s_kdgrp1 FOR vbkd-kdgrp. "Customer Group

SELECT-OPTIONS : s_kunnr1 FOR vbak-kunnr. "Customer

SELECT vbeln ernam telf1 kunnr knumv ps_psp_pnr INTO CORRESPONDING FIELDS OF TABLE i_vbak FROM vbak WHERE kunnr IN s_kunnr AND

ps_psp_pnr IN s_pspnr.

IF NOT i_vbak[] IS INITIAL.

SELECT vbeln netwr ps_psp_pnr INTO CORRESPONDING FIELDS OF TABLE i_vbap FROM vbap FOR ALL ENTRIES IN i_vbak

WHERE vbeln = i_vbak-vbeln.

SELECT knumv kwert INTO CORRESPONDING FIELDS OF TABLE i_konv FROM konv FOR ALL ENTRIES IN i_vbak

WHERE knumv = i_vbak-knumv.

SELECT vbeln bzirk kdgrp gjahr INTO CORRESPONDING FIELDS OF TABLE i_vbkd FROM vbkd FOR ALL ENTRIES IN i_vbak

WHERE vbeln = i_vbak-vbeln

AND bzirk IN s_bzirk

AND kdgrp IN s_kdgrp.

AND gjahr IN s_gjahr.

SELECT kunnr name1 adrnr pstlz telf1 INTO CORRESPONDING FIELDS OF TABLE i_kna1 FROM kna1 WHERE kunnr IN s_kunnr ..

ENDIF.

LOOP AT i_vbkd.

LOOP AT i_vbap WHERE vbeln = i_vbkd-vbeln.

LOOP AT i_konv WHERE knumh = i_vbap-knumh .

LOOP AT i_vbak WHERE vbeln = i_vbkd-vbeln.

CLEAR i_data.

MOVE i_vbak-kunnr TO i_data-kunnr. "Customer

MOVE i_vbap-netwr TO i_data-netwr.

MOVE i_konv-kwert TO i_data-kwert.

MOVE i_vbap-vbeln TO i_data-vbeln.

MOVE i_vbkd-bzirk TO i_data-bzirk. "Occusation ID

MOVE i_vbap-ps_psp_pnr TO i_data-ps_psp_pnr. "Project ID

MOVE i_kna1-name1 TO i_data-name1. "Name

MOVE i_kna1-adrnr TO i_data-adrnr. "Address

MOVE i_kna1-pstlz TO i_data-pstlz. "Postal Code

MOVE i_vbap-ernam TO i_data-ernam. "Contact Person

MOVE i_kna1-telf1 TO i_data-telf1. "Telephone number

APPEND i_data.

CLEAR i_data.

ENDLOOP.

LOOP AT i_data.

write: / i_data-kunnr, i_data-name1,i_adrnr,i_pstlz,i_ernam,i_telf1.

pls correct it sir...

Re: run time error

messier31 — Thu, 13 Sep 2007 09:14:18 GMT

hi,

Can you tell us wht runtime error you are getting?

Enjoy SAP.

Pankaj Singh

Re: run time error

Former Member — Thu, 13 Sep 2007 09:14:30 GMT

hi,

<b>LOOP AT i_data.

write: / i_data-kunnr, i_data-name1,i_adrnr,i_pstlz,i_ernam,i_telf1.</b>

what is this?

where is endloop?

and correct this in loop.

LOOP AT i_data.

WRITE: / i_data-kunnr, i_data-name1,<b>i_data-adrnr,i_data-pstlz,i_data-nam,i_data-telf1.</b>

ENDLOOP.

after this i run report its giving output but i havent give any selection criteria so its giving message that memory is low.

so made this change and run at ur side.

Re: run time error

Former Member — Thu, 13 Sep 2007 10:44:10 GMT

Welcome to Sdn Community

Try like this


TABLES : vbak, vbap, vbkd, konv, kna1,adr6.


DATA :BEGIN OF i_vbak OCCURS 0,
vbeln LIKE vbak-vbeln,
ernam LIKE vbak-ernam, "Name Of Person who Created the object
telf1 LIKE vbak-telf1, "Telephone Number
kunnr LIKE vbak-kunnr, "Customer
knumv LIKE vbak-knumv,
ps_psp_pnr LIKE vbak-ps_psp_pnr, "Work Breakdown Structure Element
END OF i_vbak.

DATA :BEGIN OF i_vbap OCCURS 0,
vbeln LIKE vbak-vbeln,
netwr LIKE vbap-netwr, " Net value of the order item in document currency
ernam LIKE vbap-ernam,
ps_psp_pnr LIKE vbap-ps_psp_pnr, "Work Breakdown Structure Element
knumh LIKE vbap-knumh,

END OF i_vbap.

DATA :BEGIN OF i_vbkd OCCURS 0,
vbeln LIKE vbkd-vbeln,
kdgrp LIKE vbkd-kdgrp, "Customer Group
bzirk LIKE vbkd-bzirk, "Sales District
gjahr LIKE vbkd-gjahr, "Fiscal year
END OF i_vbkd.

DATA :BEGIN OF i_konv OCCURS 0,
knumv LIKE konv-knumv,
kwert LIKE konv-kwert,
knumh LIKE konv-knumh,
END OF i_konv.

DATA :BEGIN OF i_kna1 OCCURS 0,
kunnr LIKE kna1-kunnr, "Customer
name1 LIKE kna1-name1, "Name
adrnr LIKE kna1-adrnr, "Address
pstlz LIKE kna1-pstlz, "Postal Code
telf1 LIKE kna1-telf1, "Telephone number
END OF i_kna1.
DATA : BEGIN OF i_adr6 OCCURS 0,
smtp_addr LIKE adr6-smtp_addr, "Customer Email ID.
END OF i_adr6.



DATA :BEGIN OF i_data OCCURS 0,
kunnr LIKE vbak-kunnr, "Customer
ernam LIKE vbak-ernam, "Contact person
telf1 LIKE vbak-telf1, "Telephone Number
ps_psp_pnr LIKE vbap-ps_psp_pnr, "Work Breakdown Structure Elemen
netwr LIKE vbap-netwr,
kdgrp LIKE vbkd-kdgrp, "Customer Group
bzirk LIKE vbkd-bzirk, "Sales District
gjahr LIKE vbkd-gjahr, "Fiscal year
kwert LIKE konv-kwert,
name1 LIKE kna1-name1, "Name
adrnr LIKE kna1-adrnr, "Address
pstlz LIKE kna1-pstlz, "Postal Code
smtp_addr LIKE adr6-smtp_addr, "Customer Email ID.
END OF i_data.

************************************************************************
* Selection - Screen
************************************************************************

SELECT-OPTIONS : s_kwrt1 FOR konv-kwert. " Condition value
SELECT-OPTIONS : s_kwrt2 FOR konv-kwert. " type n.
SELECT-OPTIONS : s_kwrt3 FOR konv-kwert.
SELECT-OPTIONS : s_kwrt4 FOR konv-kwert.
SELECT-OPTIONS : s_kwrt5 FOR konv-kwert.

SELECT-OPTIONS : s_kdgrp FOR vbkd-kdgrp. "Customer Group
SELECT-OPTIONS : s_kunnr FOR vbak-kunnr. "Customer
SELECT-OPTIONS : s_pspnr FOR vbak-ps_psp_pnr. "Project ID
SELECT-OPTIONS : s_bzirk FOR vbkd-bzirk. "Occasion ID



SELECT-OPTIONS : s_pspnr1 FOR vbap-ps_psp_pnr. "Project ID
SELECT-OPTIONS : s_bzirk2 FOR vbkd-bzirk. "Occasion ID
PARAMETER : s_gjahr type vbkd-gjahr.
SELECT-OPTIONS : s_kdgrp1 FOR vbkd-kdgrp. "Customer Group
SELECT-OPTIONS : s_kunnr1 FOR vbak-kunnr. "Customer



SELECT vbeln ernam telf1 kunnr knumv ps_psp_pnr INTO CORRESPONDING FIELDS OF TABLE i_vbak FROM vbak WHERE kunnr IN s_kunnr AND
ps_psp_pnr IN s_pspnr.
IF NOT i_vbak[] IS INITIAL.

SELECT vbeln netwr ps_psp_pnr INTO CORRESPONDING FIELDS OF TABLE i_vbap FROM vbap FOR ALL ENTRIES IN i_vbak
WHERE vbeln = i_vbak-vbeln.

SELECT knumv kwert INTO CORRESPONDING FIELDS OF TABLE i_konv FROM konv FOR ALL ENTRIES IN i_vbak
WHERE knumv = i_vbak-knumv.
SELECT vbeln bzirk kdgrp gjahr INTO CORRESPONDING FIELDS OF TABLE i_vbkd FROM vbkd FOR ALL ENTRIES IN i_vbak
WHERE vbeln = i_vbak-vbeln
AND bzirk IN s_bzirk
AND kdgrp IN s_kdgrp.
* AND gjahr IN s_gjahr.
SELECT kunnr name1 adrnr pstlz telf1 INTO CORRESPONDING FIELDS OF TABLE i_kna1 FROM kna1 WHERE kunnr IN s_kunnr ..

ENDIF.


LOOP AT i_vbkd.
LOOP AT i_vbap WHERE vbeln = i_vbkd-vbeln.
LOOP AT i_konv WHERE knumh = i_vbap-knumh .
LOOP AT i_vbak WHERE vbeln = i_vbkd-vbeln.
CLEAR i_data.
MOVE i_vbak-kunnr TO i_data-kunnr. "Customer
MOVE i_vbap-netwr TO i_data-netwr.
MOVE i_konv-kwert TO i_data-kwert.
* MOVE i_vbap-vbeln TO i_data-vbeln.
MOVE i_vbkd-bzirk TO i_data-bzirk. "Occusation ID
MOVE i_vbap-ps_psp_pnr TO i_data-ps_psp_pnr. "Project ID
MOVE i_kna1-name1 TO i_data-name1. "Name
MOVE i_kna1-adrnr TO i_data-adrnr. "Address
MOVE i_kna1-pstlz TO i_data-pstlz. "Postal Code
MOVE i_vbap-ernam TO i_data-ernam. "Contact Person
MOVE i_kna1-telf1 TO i_data-telf1. "Telephone number


APPEND i_data.
CLEAR i_data.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.

LOOP AT i_data.

WRITE: / i_data-kunnr, i_data-name1,i_data-adrnr,i_data-pstlz,i_data-nam,i_data-telf1.

ENDLOOP.

Reward all helpfull answers

Regards

Pavan