hi all,
i am trying this program n getting such kind of error as i m very new in abap...so plz help me..
i m getting such kind of error------
program YFINAL_TABLE
after enhance ment,you may not be able to convert the structure
"WA_FINAL-PERNR"into into a character-type field and would then,as an operand,no longer be allowed.
my program is---->
&----
*& Report YFINAL_TABLE *
*& *
&----
*& *
*& *
&----
REPORT YFINAL_TABLE .
**DECLARATION OF TABLES
Tables : pa0002,pa0006.
**DECLARATION OF TYPES
Types : Begin of final,
pernr type pernr,
vorna type vorna,
nachn type nachn,
telnr type telnr,
ort01 type ort01,
state type state,
end of Final.
**DECLARATION OF INTERNAL TABLE AND WORK AREA
Data : it_pa0002 type pa0002 occurs 0 with header line.
data : it_pa0006 type pa0006 occurs 0 with header line..
data : it_final type standard table of final.
data : wa_final type final.
perform get_data.
perform Process_Data.
perform Display_Data.
&----
*& Form get_data
&----
text
----
--> p1 text
<-- p2 text
----
FORM get_data .
Select *
into table it_pa0002
from Pa0002.
if sy-subrc = 0.
if not it_pa0002[] is initial.
select *
into table it_pa0006
from pa0006
for ALL ENTRIES IN IT_PA0002
where pernr = it_pa0002-pernr.
endif.
endif.
ENDFORM. " get_data
&----
*& Form Process_Data
&----
text
----
--> p1 text
<-- p2 text
----
FORM Process_Data .
move it_pa0002-pernr to wa_Final-pernr.
move it_pa0002-vorna to wa_final-vorna.
move it_pa0002-nachn to wa_final-nachn.
move it_pa0006-telnr to wa_final-telnr.
wa_final-ort01 = it_pa0006-ort01.
wa_final-state = it_pa0006-state.
ENDFORM. " Process_Data
&----
*& Form Display_Data
&----
text
----
--> p1 text
<-- p2 text
----
FORM Display_Data .
write : / 'PERSONAL_NO',
40 'FIRST_NAME',
50 'LAST_NAME',
60 'contact number',
70 'city',
80 'state'.
Loop at it_final into wa_final.
write : / wa_final-pernr,
wa_final-vorna,
wa_final-nachn,
wa_final-telnr,
wa_final-ort01,
wa_final-state.
Endloop.
ENDFORM. " Display_Data
thanx
rose