SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Example of using Field Groups, Collect, Sort and Extract



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Programming Techniques | Приемы программирования
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1640
PostPosted: Sat Nov 17, 2007 7:44 pm    Post subject: Example of using Field Groups, Collect, Sort and Extract Reply with quote
Code:
REPORT ZZBGS008 .
*-----------------------------------------------------------------------*
* Example program: Use of FIELD-GROUPS, COLLECT, SORT, EXTRACT          *
*-----------------------------------------------------------------------*
TABLES: T001.

DATA: BEGIN OF RESULT OCCURS 100.
DATA:   MANDT LIKE T001-MANDT,
        BUKRS LIKE T001-BUKRS,
        BUTXT LIKE T001-BUTXT,
        ORT01 LIKE T001-ORT01,
        LAND1 LIKE T001-LAND1,
        WAERS LIKE T001-WAERS,
        SPRAS LIKE T001-SPRAS,
        KTOPL LIKE T001-KTOPL. "Bemærk at da dette felt ikke er med i
                               "insert vil feltet være tomt.
DATA: END OF RESULT.

FIELD-GROUPS: HEADER, DATA.
  INSERT
    T001-SPRAS                         " SPROGNØGLE
    T001-MANDT                         " KLIENT
    T001-BUKRS                         " FIRMAKODE
  INTO HEADER.

  INSERT
    T001-BUTXT                         "
    T001-ORT01                         " BY
    T001-LAND1                         " LANDENØGLE
    T001-WAERS                         " VALUTANØGLE
  INTO DATA.

START-OF-SELECTION.

  REFRESH RESULT.
  SELECT * FROM T001.
    EXTRACT DATA.
  ENDSELECT.

END-OF-SELECTION.

* Når der sorteres uden angivelse af tabelnavn, bliver der automatisk
* sorteret på field-groups Header. Husk at skrive en kommentar hvis du
* anvender sort uden angivelse af tabelnavn.

* bemærk at der sorteres på alle ikke nummeriske felter
  SORT BY T001-SPRAS T001-MANDT T001-BUKRS.

* Når der loopes uden angivelse af tabelnavn, bliver der automatisk
* loopet på field-group header + data. Husk at skrive en kommentar hvis
* du ikke looper uden at angive tabelnavn.
  LOOP.
    MOVE-CORRESPONDING T001 TO RESULT.
    APPEND RESULT.
  ENDLOOP.

 
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Programming Techniques | Приемы программирования All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.