topic Re: need simple code in Application Development and Automation Discussions

need simple code

Former Member — Wed, 12 Dec 2007 11:04:38 GMT

Hi Gurus

i need some code .

i have been given one table(xyd)

it have fields no,nam,val

the itabe is lt_xyd,

wa is lw_xyd,

fields r no,nam,val.

i will show the table values to u

..................................

no nam val

1 empno 111

1 empnam ravi

1 pho 9970303037

1 add ap

2 empno 112

2 empnam anji

2 pho 9970707908

2 add mp

the records r like this

======================================

out put should display

the itab is lt_rxyd and wa is lw_rxyd

the fields r

empno

empnam

pho

add

meens o/p is

no empno empnam pho add

1 111 ravi 9970363037 ap

2 112 anji 9970707909 mp

i think u got it

plz tell the code yaar for this

thanks

waiting for u r reply

Message was edited by:

Renuka

Re: need simple code

Former Member — Wed, 12 Dec 2007 11:55:24 GMT

Hi,

This the sample code.

DATA: ITAB TYPE STANDARD TABLE OF zstudent_1,

WA TYPE zstudent_1.

SELECT * FROM zstudent_1 INTO TABLE ITAB.

WRITE: (10) 'No', (30) 'FName' , (30) 'LastName'.

LOOP AT ITAB INTO WA.

WRITE:/ SY-TABIX, WA-STUDENT_FNAME, WA-STUDENT_LNAME.

ENDLOOP.

Notes: 1. Instead of z_student_1 write ur table name.

2. Instead of STUDENT_FNAME and other field write ur table file name which u want.

3. In heading write statement means which is outside the loop. There in bracket give the length of particular width in table.

Plz reward if useful,

Thanks & Regards,

Vikram

Re: need simple code

Former Member — Wed, 12 Dec 2007 19:53:19 GMT

loop at lt_xyd into wa_xyd.

at new no.

move wa_xyd-no to wa_final-no.

endat.

count = count + 1.

case count.

when 1.

move wa_xyd-val to wa_final-empno.

when 2.

move wa_xyd-val to wa_final-empnam.

when 3.

move wa_xyd-val to wa_final-pho.

when 4.

move wa_xyd-val to wa_final-add.

endcase.

at end of no.

lv_flag = 'X'.

endat.

if lv_flag = 'X'.

append wa_final to gt_final.

clear: wa_final, lv_flag.

endif.

endloop.

chekc it, defi, it will work..

Re: need simple code

Former Member — Thu, 13 Dec 2007 09:15:42 GMT

Hi Sunita

Thanks for u r ans,

atual problem is not this

just i have give an example of my requirement.

u have written case with 1,2,..,,,so on,

means (when 1.

move wa_xyd-val to wa_final-empno.

when 2.

move wa_xyd-val to wa_final-empnam.

when 3.

move wa_xyd-val to wa_final-pho.

when 4.

move wa_xyd-val to wa_final-add.)

)

but i am getting near 5,00,000. records,

so how i can put it in case,

plz reply me.

Thanks

Re: need simple code

Former Member — Thu, 13 Dec 2007 09:19:24 GMT

sorry sunita

u r right

now i got it

thanks u

bye

Re: need simple code

Former Member — Sat, 15 Dec 2007 06:50:56 GMT

plz go through question.

it is not as simple

Re: need simple code

Former Member — Sat, 15 Dec 2007 06:55:43 GMT

hi sunuta

it is working

but i am geting only one record

means ans is like this

1 111 ravi ap 9970363037

and onother problem is that they are not mapping to eqalant fields

Plz help me

thanks and regards

Ravinder

Re: need simple code

Former Member — Mon, 17 Dec 2007 16:54:52 GMT

u send me ur entire code.

Re: need simple code

Former Member — Tue, 18 Dec 2007 07:27:37 GMT

it is working but i am unable to get out put in currect manar

i will show in put values

in databese to itab

patno--

fnam--

fval

100 -

zempnam-----ravi

100--

zempadd----ap

100--

zempid--

123

200--

zempadd----mh.

200 -

zempnam-----anji

200--

zempid--

124

and

output is

patno----~~empnam~~--~~empid~~----- empadd

100--

ravi
ap--

123

200--

mh
~~124~~--

anji

i thisk u understand my problem

this is the code............

REPORT ztest_crm1.

TYPES : BEGIN OF tw_crm,

patno TYPE zravi-patno,

fnam LIKE zravi-fnam,

fval LIKE zravi-fval,

END OF tw_crm,

tt_crm TYPE STANDARD TABLE OF tw_crm.

TYPES :BEGIN OF tw_rcrm,

patno TYPE zravi_req-patno,

empnam TYPE zravi_req-empnam,

empid TYPE zravi_req-empid,

empadd TYPE zravi_req-empadd,

END OF tw_rcrm,

tt_rcrm TYPE STANDARD TABLE OF tw_rcrm.

DATA: lt_crm TYPE tt_crm,

lw_crm TYPE tw_crm,

lt_rcrm TYPE tt_rcrm,

lw_rcrm TYPE tw_rcrm,

count type i,

lv_flag type c.

select * from zravi into table lt_crm .

sort lt_crm by patno.

write : /10 'patno',

30 'fnam',

45 'fval'.

loop at lt_crm into lw_crm.

write : /10 lw_crm-patno,

30 lw_crm-fnam,

45 lw_crm-fval.

endloop.

loop at lt_crm into lw_crm.

at new patno.

move lw_crm-patno to lw_rcrm-patno.

endat.

count = count + 1.

case count.

when 1.

move lw_crm-fval to lw_rcrm-empnam.

when 2.

move lw_crm-fval to lw_rcrm-empid.

when 3.

move lw_crm-fval to lw_rcrm-empadd.

endcase.

at end of patno.

lv_flag = 'X'.

endat.

if lv_flag = 'X'.

append lw_rcrm to lt_rcrm.

clear: lw_rcrm, lv_flag,count.

endif.

endloop.

write : sy-uline.

write : 'out put ********************'.

write : /10 'patno',

20 'empnam',

30 'empid',

40 'empadd'.

loop at lt_rcrm into lw_rcrm.

write : /10 lw_rcrm-patno,

20 lw_rcrm-empnam,

30 lw_rcrm-empid,

40 lw_rcrm-empadd.

endloop.

Re: need simple code

Former Member — Thu, 20 Dec 2007 18:03:31 GMT

check this now...

its displaying as per ur requirement.

REPORT ztest_crm1.

TYPES : BEGIN OF tw_crm,

patno TYPE char10,

fnam TYPE char10,

fval TYPE char10,

END OF tw_crm,

tt_crm TYPE STANDARD TABLE OF tw_crm.

TYPES :BEGIN OF tw_rcrm,

patno TYPE char10,

empnam TYPE char10,

empid TYPE char10,

empadd TYPE char20,

END OF tw_rcrm,

tt_rcrm TYPE STANDARD TABLE OF tw_rcrm.

DATA: lt_crm TYPE tt_crm,

lw_crm TYPE tw_crm,

lt_rcrm TYPE tt_rcrm,

lw_rcrm TYPE tw_rcrm,

count TYPE i,

lv_flag TYPE c.

lw_crm-patno = '100'.

lw_crm-fnam = 'zempnam'.

lw_crm-fval = 'ravi'.

APPEND lw_crm TO lt_crm.

CLEAR lw_crm.

lw_crm-patno = '100'.

lw_crm-fnam = 'zempadd'.

lw_crm-fval = 'ap'.

APPEND lw_crm TO lt_crm.

CLEAR lw_crm.

lw_crm-patno = '100'.

lw_crm-fnam = 'zempid'.

lw_crm-fval = '123'.

APPEND lw_crm TO lt_crm.

CLEAR lw_crm.

lw_crm-patno = '200'.

lw_crm-fnam = 'zempnam'.

lw_crm-fval = 'mh'.

APPEND lw_crm TO lt_crm.

CLEAR lw_crm.

lw_crm-patno = '200'.

lw_crm-fnam = 'zempadd'.

lw_crm-fval = 'anji'.

APPEND lw_crm TO lt_crm.

CLEAR lw_crm.

lw_crm-patno = '200'.

lw_crm-fnam = 'zempid'.

lw_crm-fval = '1234'.

APPEND lw_crm TO lt_crm.

CLEAR lw_crm.

SORT lt_crm BY patno.

WRITE : /10 'patno',

30 'fnam',

45 'fval'.

LOOP AT lt_crm INTO lw_crm.

WRITE : /10 lw_crm-patno,

30 lw_crm-fnam,

45 lw_crm-fval.

ENDLOOP.

LOOP AT lt_crm INTO lw_crm.

AT NEW patno.

MOVE lw_crm-patno TO lw_rcrm-patno.

ENDAT.

count = count + 1.

CASE count.

WHEN 1.

MOVE lw_crm-fval TO lw_rcrm-empnam.

WHEN 2.

MOVE lw_crm-fval TO lw_rcrm-empid.

WHEN 3.

MOVE lw_crm-fval TO lw_rcrm-empadd.

ENDCASE.

AT END OF patno.

lv_flag = 'X'.

ENDAT.

IF lv_flag = 'X'.

APPEND lw_rcrm TO lt_rcrm.

CLEAR: lw_rcrm, lv_flag,count.

ENDIF.

ENDLOOP.

WRITE : sy-uline.

WRITE : 'out put ********************'.

WRITE : /10 'patno',

20 'empnam',

30 'empid',

40 'empadd'.

LOOP AT lt_rcrm INTO lw_rcrm.

WRITE : /10 lw_rcrm-patno,

20 lw_rcrm-empnam,

30 lw_rcrm-empid,

40 lw_rcrm-empadd.

ENDLOOP.

output of this is:

patno fnam fval

100 zempnam ravi

100 zempadd ap

100 zempid 123

200 zempnam mh

200 zempadd anji

200 zempid 1234

out put ********************

patno empnam empid empadd

100 ravi ap 123

200 mh anji 1234

if still do u have any other requirement , let me know.

Re: need simple code

Former Member — Fri, 21 Dec 2007 04:48:29 GMT

Thanx