Skip to Content
0
Former Member
Sep 13, 2007 at 08:56 AM

run time error

67 Views

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...