10-03-2008 8:11 AM
10-03-2008 8:16 AM
here is one
REPORT DEMO.
NODES: SPFLI, SFLIGHT.
FIELD-GROUPS: HEADER, FLIGHT_INFO, FLIGHT_DATE.
INSERT: SPFLI-CARRID SPFLI-CONNID SFLIGHT-FLDATE
INTO HEADER,
SPFLI-CITYFROM SPFLI-CITYTO
INTO FLIGHT_INFO.
START-OF-SELECTION.
GET SPFLI.
EXTRACT FLIGHT_INFO.
GET SFLIGHT.
EXTRACT FLIGHT_DATE.
END-OF-SELECTION.
LOOP.
AT FIRST.
WRITE / 'Start of LOOP'.
ULINE.
ENDAT.
AT FLIGHT_INFO WITH FLIGHT_DATE.
WRITE: / 'Info:',
SPFLI-CARRID, SPFLI-CONNID, SFLIGHT-FLDATE,
SPFLI-CITYFROM, SPFLI-CITYTO.
ENDAT.
AT FLIGHT_DATE.
WRITE: / 'Date:',
SPFLI-CARRID, SPFLI-CONNID, SFLIGHT-FLDATE.
ENDAT.
AT LAST.
ULINE.
WRITE / 'End of LOOP'.
ENDAT.
ENDLOOP.
check the above hope will help you
regards
sateesh
10-03-2008 8:16 AM
here is one
REPORT DEMO.
NODES: SPFLI, SFLIGHT.
FIELD-GROUPS: HEADER, FLIGHT_INFO, FLIGHT_DATE.
INSERT: SPFLI-CARRID SPFLI-CONNID SFLIGHT-FLDATE
INTO HEADER,
SPFLI-CITYFROM SPFLI-CITYTO
INTO FLIGHT_INFO.
START-OF-SELECTION.
GET SPFLI.
EXTRACT FLIGHT_INFO.
GET SFLIGHT.
EXTRACT FLIGHT_DATE.
END-OF-SELECTION.
LOOP.
AT FIRST.
WRITE / 'Start of LOOP'.
ULINE.
ENDAT.
AT FLIGHT_INFO WITH FLIGHT_DATE.
WRITE: / 'Info:',
SPFLI-CARRID, SPFLI-CONNID, SFLIGHT-FLDATE,
SPFLI-CITYFROM, SPFLI-CITYTO.
ENDAT.
AT FLIGHT_DATE.
WRITE: / 'Date:',
SPFLI-CARRID, SPFLI-CONNID, SFLIGHT-FLDATE.
ENDAT.
AT LAST.
ULINE.
WRITE / 'End of LOOP'.
ENDAT.
ENDLOOP.
check the above hope will help you
regards
sateesh
10-03-2008 8:19 AM
hi,
you can get lots of examples and explanations in ABAP documentaion. Better thing is, first u read it then u will get clearly regarding extracts.
Regards,
Shankar.
10-03-2008 8:21 AM
hi,
go through this example....
REPORT ZSHAN_EXTRACTS_CONTROL_LOOPS .
DATA OBJECTS DECLARATION *****
DATA: T1(4), T2 TYPE I.
FIELD-GROUPS DECLARATION *****
FIELD-GROUPS: HEADER.
INSERTING THE DATAOBJECTS INTO FIELD-GROUPS ****
INSERT T2 T1 INTO HEADER.
ASSIGNING THE VALUES TO DATA OBJECT ******
T1 ='AABB'. T2 = 1. EXTRACT HEADER.
T1 ='BBCC'. T2 = 2. EXTRACT HEADER.
T1 ='AAAA'. T2 = 2. EXTRACT HEADER.
T1 ='AABB'. T2 = 1. EXTRACT HEADER.
T1 ='BBBB'. T2 = 2. EXTRACT HEADER.
T1 ='BBCC'. T2 = 2. EXTRACT HEADER.
T1 ='AAAA'. T2 = 1. EXTRACT HEADER.
T1 ='BBBB'. T2 = 1. EXTRACT HEADER.
T1 ='AAAA'. T2 = 3. EXTRACT HEADER.
T1 ='AABB'. T2 = 1. EXTRACT HEADER.
BEFORE SORTING THE FIELD-GROUP *****
LOOP.
AT FIRST.
ULINE.
WRITE:/ 'START OF LOOP'.
ULINE.
ENDAT.
WRITE:/ 'T1 : ', T1, 'T2 : ', T2.
AT LAST.
ULINE.
WRITE:/ 'END OF LOOP'.
ULINE.
ENDAT.
ENDLOOP.
SORTING THE FIELD-GROUPS *******
SORT BY T1 T2.
DISPLAYING THE RECORDS ******
LOOP.
AT FIRST.
ULINE.
WRITE:/ 'START OF LOOP'.
ULINE.
ENDAT.
WRITE:/ 'T1 : ', T1, 'T2 : ', T2.
AT LAST.
ULINE.
WRITE:/ 'END OF LOOP'.
ULINE.
ENDAT.
ENDLOOP.
DISPLAYING THE RECORDS USING THE CONTROL LOOPS ****
LOOP.
AT FIRST.
WRITE 'Start of LOOP'.
ULINE.
ENDAT.
AT NEW T1.
WRITE / ' New T1:'.
ENDAT.
AT NEW T2.
WRITE / ' New T2:'.
ENDAT.
WRITE: /14 T1, T2.
AT END OF T2.
WRITE / 'End of T2'.
ENDAT.
AT END OF T1.
WRITE / 'End of T1'.
ENDAT.
AT LAST.
ULINE.
ENDAT.
ENDLOOP.
Regards,
Shankar.
10-03-2008 8:29 AM
Hi Vijai,
tables: mara.
types : begin of str_mara,
matnr type matnr,
mtart type mtart,
meins type meins,
matkl type matkl,
ernam type ernam,
mbrsh type mbrsh,
bstme type bstme,
end of str_mara.
data: wa_mara type str_mara,
it_mara type standard table of str_mara.
field-groups: fld_grp.
start-of-selection.
insert mara-matnr mara-mtart mara-meins
mara-matkl mara-ernam into fld_grp.
insert mara-mbrsh mara-bstme into fld_grp.
select matnr mtart meins matkl ernam mbrsh bstme from mara into
correspoNDING FIELDS OF mara.
extract fld_grp.
endselect.
clear mara.
loop.
at fld_grp .
wa_mara-matnr = mara-matnr.
wa_mara-mtart = mara-mtart.
wa_mara-meins = mara-meins.
wa_mara-matkl = mara-matkl.
wa_mara-ernam = mara-ernam.
wa_mara-mbrsh = mara-mbrsh.
wa_mara-bstme = mara-bstme.
append wa_mara to it_mara.
endat.
endloop.
sort it_mara by matnr.
loop at it_mara into wa_mara.
write:/ wa_mara-matnr, wa_mara-mtart, wa_mara-meins, wa_mara-bstme.
endloop.
Regards,
Sravanthi