Community
Application Development and Automation 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
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

run time error

Former Member

‎2007 Sep 13 9:56 AM

0 Likes
620

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.

ENDLOOP.

ENDLOOP.

ENDLOOP.

LOOP AT i_data.

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

pls correct it sir...

3 REPLIES 3
Read only

messier31
Active Contributor

‎2007 Sep 13 10:14 AM

0 Likes
553

hi,

Can you tell us wht runtime error you are getting?

Enjoy SAP.

Pankaj Singh

Read only

Former Member

‎2007 Sep 13 10:14 AM

0 Likes
553

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.

Read only

Former Member

‎2007 Sep 13 11:44 AM

0 Likes
553

Hi

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