topic Re: about Extract in Application Development and Automation Discussions

about Extract

Former Member — Fri, 03 Oct 2008 07:11:01 GMT

clear example for Extract data sets

Re: about Extract

Former Member — Fri, 03 Oct 2008 07:16:48 GMT

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

Re: about Extract

Former Member — Fri, 03 Oct 2008 07:19:10 GMT

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.

Re: about Extract

Former Member — Fri, 03 Oct 2008 07:21:05 GMT

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.

Re: about Extract

Former Member — Fri, 03 Oct 2008 07:29:24 GMT

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