Re: help needed

Former Member · ‎2006 Sep 25

Hi experts,

this is my code here i am not getting any output.

plese help me . how to proceed.

report xxxxxxxx message-id zz

line-size 255

line-count 65

no standard page heading.

-

*

TABLE DEFINITION *

----

tables : knb1, "customer master (companycode)

kna1, "genaral data in customer master

knvp, "customer master partener functions

zvarv. " Program Hard Coded Values support table

----

TYPE-POOLS DEFINATION

----

type-pools : slis.

----

TYPES DECLARATION

----

Customer Master Company code Data

types : begin of t_knb1,

kunnr like knb1-kunnr,

akont like knb1-akont,

end of t_knb1.

data : i_knb1 type standard table of t_knb1 initial size 0 .

Customer Master

types : begin of t_kna1,

kunnr like kna1-kunnr,

name1 like kna1-name1,

stras like kna1-stras,

ort01 like kna1-ort01,

stcd1 like kna1-stcd1,

pstlz like kna1-pstlz,

end of t_kna1.

data : i_kna1 type standard table of t_kna1 initial size 0 .

Customer Partner Functions

types : begin of t_knvp,

kunnr like knvp-kunnr,

vkorg like knvp-vkorg,

parvw like knvp-parvw,

kunn2 like knvp-kunn2,

end of t_knvp.

data: i_knvp type standard table of t_knvp initial size 0 .

Output data

types : begin of t_output,

recordtype type c,

soldtocust(10) type c,

payer(10) type c,

sequence(5) type n,

custname(35) type c,

custaddress(35) type c,

custcity(35) type c,

taxid(16) type c,

postalcode(5) type c,

branch type c,

delivery(3) type c,

end of t_output.

data : i_output type standard table of t_output initial size 0 .

ZVARV Table

types : begin of t_zvarv,

zobject1 like zvarv-zobject1,

zobject2 like zvarv-zobject2,

zseqnumb like zvarv-zseqnumb,

zobjval like zvarv-zobjval,

zqualf1 like zvarv-zqualf1,

zqualf2 like zvarv-zqualf2,

zobjdesc like zvarv-zobjdesc,

end of t_zvarv.

data : i_zvarv type t_zvarv occurs 0 with header line.

Error messages and total records

types : begin of t_error_log,

message(200) type c,

end of t_error_log.

data : i_error_log type standard table of t_error_log initial size 0.

Field catalog

data : t_fieldcat_tab type slis_t_fieldcat_alv with header line.

----

Variables

----

data : v_knb1 type t_knb1, "Customer master company code

v_kna1 type t_kna1, "Customer master

v_knvp type t_knvp, "Customer masterpartenerfunctions

v_output type t_output, "Output data

v_error_log type t_error_log, "Error data

v_sequence(5) type n, "Total records

v_g_line type i, "Message

v_count type i, "Counter for KNA1 records

v_count1 type i, "Counter for KNVP records

v_result(100) type c, "Totals for KNA1

v_result1(100) type c, "Totals for KNVP

v_g_vkorg like knvp-vkorg. "Message for Validation

----

Constants

----

data : c_program(30) type c value 'ZSDI0215', " Program Name

c_aufsd(2) type c value 'CD'. "Central order block for Cust

----

Selection-screen

----

selection-screen : begin of block b1 with frame title text-001.

parameters : p_vkorg like knvp-vkorg obligatory. "Sales organization

select-options : p_akont for knb1-akont obligatory default '1050100'.

"Reconciliation Account in General Ledger

selection-screen : end of block b1.

selection-screen : begin of block ouputformat with frame title text-002.

parameters : c1 as checkbox.

selection-screen : end of block ouputformat.

selection-screen begin of block b2 with frame title text-003.

parameters : p_lfile like filetextci-fileintern

default 'Z_IO01989_CUSTOMER_MASTER_DATA', " Logical file

p_pfile like rfpdo-rfbifile. " Physical File

selection-screen end of block b2.

----

At selection-screen

----

at selection-screen on p_vkorg.

select single vkorg

into v_g_vkorg

from knvp

where vkorg = p_vkorg.

if v_g_vkorg is initial.

message e001(00) with 'PLEASE ENTER CORRECT SALES ORGANIZTION'.

endif.

----

Start-of-selection

----

start-of-selection.

Fetch data

perform get_data.

Processing the data

perform process_data.

----

End-of-Selection

----

end-of-selection.

if c1 eq 'X'.

Field catalog

perform f_prepare_fieldcat.

Disply alv report

perform f_display_report.

Disply error log

perform f_error_log.

else.

Display the list

perform f_list_display.

endif.

&----

*& Form get_data

&----

text

----

--> p1 text
<-- p2 text

----

form get_data .

Get zvarv data.

perform get_zvarv.

Get knb1 data

perform get_knb1.

Get kna1 data

perform get_kna1.

Get knvp data

perform get_knvp.

endform. " get_data

----

Form get_zvarv

----

zvarv data

----

form get_zvarv .

Fetch data from zvarv.

select zobject1 zobject2 zseqnumb zobjval

from zvarv

into table i_zvarv

where zobject1 eq c_program.

sort i_zvarv by zobject2.

endform. " get_zvarv

&----

*& Form get_knb1

&----

text

----

--> p1 text
<-- p2 text

----

form get_knb1 .

Fetch data from knb1.

select kunnr akont

from knb1

into table i_knb1

where akont = p_akont.

describe table i_knb1 lines v_g_line.

endform. " get_knb1

&----

*& Form get_kna1

&----

text

----

--> p1 text
<-- p2 text

----

form get_kna1 .

Fetch data from kna1.

select kunnr name1 stras ort01 stcd1 pstlz

from kna1

into table i_kna1

for all entries in i_knb1

where kunnr = i_knb1-kunnr and

aufsd NE 'CD'.

endform. " get_kna1

&----

*& Form get_knvp

&----

text

----

--> p1 text
<-- p2 text

----

form get_knvp .

Fetch data from knvp

select kunnr parvw kunn2 vkorg

from knvp

into table i_knvp

for all entries in i_knb1

where kunnr = i_knb1-kunnr

and vkorg = p_vkorg

and parvw = 'RG'.

endform. " get_knvp

&----

*& Form process_data

&----

text

----

--> p1 text
<-- p2 text

----

form process_data .

loop at i_knb1 into v_knb1.

read table i_kna1 into v_kna1 with key kunnr = v_knb1-kunnr.

if sy-subrc <> 0.

concatenate: 'in kna1 no Customer number'

v_knb1-kunnr

into v_result separated by space.

skip.

move v_result to v_error_log-message.

append v_error_log to i_error_log.

v_count = v_count + 1.

endif.

read table i_knvp into v_knvp with key kunnr = v_knb1-kunnr.

if sy-subrc <> 0.

concatenate : 'in knvp no customer number'

v_knb1-kunnr

into v_result1 separated by space.

skip.

loop at i_knvp where kunnr = v_knb1-kunnr.

move v_result1 to v_error_log-message.

append v_error_log to i_error_log.

v_count1 = v_count1 + 1.

endloop.

endif.

v_sequence = v_sequence + 1.

move : 'C' to v_output-recordtype,

v_knvp-kunnr to v_output-soldtocust,

v_knvp-kunn2 to v_output-payer,

v_sequence to v_output-sequence,

v_kna1-name1 to v_output-custname,

v_kna1-stras to v_output-custaddress,

v_kna1-ort01 to v_output-custcity,

v_kna1-stcd1 to v_output-taxid,

v_kna1-pstlz to v_output-postalcode,

'1' to v_output-branch,

'ABC' to v_output-delivery.

insert v_output into table i_output.

clear : v_knb1,

v_kna1,

v_knvp,

v_output.

endloop.

endform. " process_data

&----

*& Form f_prepare_fieldcat

&----

text

----

--> p1 text
<-- p2 text

----

form f_prepare_fieldcat .

t_fieldcat_tab-col_pos = 1.