abap内部表和工作区的区别

水深无声 2022-09-29 12:58 216阅读 0赞

Internal table is a temporary two dimensional memory structure similar to database table.  We can store multiple records in the internal table and also using record pointers we can do the activities such as reading, appending, deleting, modifying etc.

Whereas work area is a variable declared with the TYPE of an internal table or a database table.  It can store only one record at a time.  It is like a structure declaration in C.  You can refer individual columns in the work area with the names.

If you declare an internal table with "WITH HEADER LINE" clause the internal table itself acts as a work area.  For example, your ITAB is a work area and ITAB\[\] is the internal table.

If you are familiar with ORACLE PLSQL, work area is similar to %ROW\_TYPE and internal is similar to TABLE TYPE.

A work area is nothing more than a structure which serves as a header line for an internal table.  When you read an internal table (without header line) the line which you read must be moved somewhere, it is moved into a work area.

While adding or retrieving records to / from internal table we have to keep the record temporarily.

The area where this record is kept is called as work area for the internal table. The area must have the same structure as that of internal table. An internal table consists of a body and an optional header line.

Header line is a implicit work area for the internal table. It depends on how the internal table is declared that the itab will have the header line or not.

Work areas are used for processing data from n into internal table. as work area is a structure which can hold only one record at a time i.e to be inserted into internal table populated from internal table.

Work areas generally used for reusability purpose.  i.e a internal table with header line is only used for storing data from a single data base table where as internal table without header line can be used in other internal table. for this purpose we'll create a explicit work area for processing data.

e.g.   
data: begin of itab occurs 10,  
ab type c,  
cd type i,  
end of itab. " this table will have the header line.

data: wa\_itab like itab. " explicit work area for itab

data: itab1 like itab occurs 10. " table is without header line.

The header line is a field string with the same structure as a row of the body, but it can only hold a single row.  It is a buffer used to hold each record before it is added or each record as it is retrieved from the internal table. It is the default work area for the internal table.

Sample code:

TYPES : BEGIN OF ty\_test,  
        code TYPE i,  
        name(10) TYPE c,  
        amount TYPE p DECIMALS 2,  
       END OF ty\_test.  
   
DATA : it\_test TYPE STANDARD TABLE OF ty\_test WITH HEADER LINE INITIAL SIZE 10.  
   
DATA : wa TYPE ty\_test,  
       chk1 TYPE c,  
       fldname(30), fldval(50).  
   
\*set pf-status 'PF01'.  
\*set titlebar 'PF01'.  
\*  
   
INITIALIZATION.  
  it\_test-code = 300.  
  it\_test-name = 'Ramesh'.  
  it\_test-amount = 5500.  
  APPEND it\_test.  
   
  wa-code = 207.  
  wa-name = 'Prem'.  
  wa-amount = 5000.  
  APPEND wa TO it\_test.  
   
  it\_test-code = 117.  
  it\_test-name = 'James Bond'.  
  it\_test-amount = 9900.  
  INSERT it\_test INDEX 3.  
   
  it\_test-code = 217.  
  it\_test-name = 'Sivaraman'.  
  it\_test-amount = 9900.  
  INSERT it\_test INDEX 3.  
   
  it\_test-code = 201.  
  it\_test-name = 'Saravanan'.  
  it\_test-amount = 1000.  
  APPEND it\_test.  
   
  it\_test-code = 210.  
  it\_test-name = 'Shanmugam'.  
  it\_test-amount = 6000.  
  APPEND it\_test.  
   
  WRITE : / 'Loop Display ( Appended rows ) :-'.  
  LOOP AT it\_test.  
    WRITE : / chk1 AS CHECKBOX,  
    sy-tabix, sy-vline, it\_test-code, it\_test-name, it\_test-amount.  
    HIDE : it\_test-code, it\_test-name.  
  ENDLOOP.  
  SKIP.  
   
END-OF-SELECTION.  
  CLEAR : it\_test-code, it\_test-name.  
  WRITE : / 'this from end of selection'.  
   
   
\*&--------------------------------------------------------------------\*  
\*&      Form  DISP1  
\*&--------------------------------------------------------------------\*  
\*       text  
\*---------------------------------------------------------------------\*  
FORM disp1.  
  WINDOW STARTING AT 15 10  
         ENDING AT 80 15.  
  DO.  
    CLEAR chk1.  
    READ LINE sy-index FIELD VALUE chk1.  
    IF sy-subrc NE 0.  
      EXIT.  
    ELSE.  
      CHECK chk1 NE space.  
      WRITE : / it\_test-code, it\_test-name.  
      MODIFY CURRENT LINE :  
        FIELD VALUE chk1 FROM ' '  
        FIELD FORMAT chk1 INPUT OFF.  
    ENDIF.  
  ENDDO.  
ENDFORM.                                               
     "DISP1  
   
\*\*\*line double click \*\*\*\*  
AT LINE-SELECTION.  
  CHECK sy-lsind = 1.  
  WINDOW STARTING AT 5 4  
         ENDING AT 85 20.  
  WRITE: /  'THE USER DOUBLE-CLICKED A LINE IN THE REPORT'.  
  WRITE: /  sy-lisel.  
  WRITE : / 'Sometime ',it\_test-name, ' is good '.  
  WRITE : / 'Sometime ',it\_test-name, ' is bad  '.  
  WRITE : / 'Sometime ',it\_test-name, ' is rich '.  
  WRITE : / 'Sometime ',it\_test-name, ' is poor '.  
  WRITE : / 'Who knows, who is ',it\_test-name, ' ? '.  
  WRITE : /, / 'we can also use this in SELECT statement'.  
  CLEAR : it\_test-code, it\_test-name.  
   
        .  
IF SY-SUBRC <> 0.  
\* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
\*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
ENDIF.  
   
  ULINE.  
  SKIP.  
  SKIP.  
  WRITE : / 'Below from Get Cursor Field...'.  
  GET CURSOR FIELD fldname VALUE fldval.  
  CONDENSE fldname.  
  CONDENSE fldval.  
  WRITE : / 'You have clicked ', fldname, ' & its value is ', fldval.  
   
\*\*\*function key press F6 \*\*\*\*  
AT PF06.  
  PERFORM disp1.  
   
\*AT USER-COMMAND.  
\*  CASE SY-UCOMM.  
\*    WHEN 'STOP' OR 'CANCEL'.  
\*      LEAVE TO SCREEN 0.  
\*    WHEN 'TESTME'.  
\*      PERFORM DISP1.  
\*  ENDCASE.

转自：[http://www.sap-img.com/abap/difference-between-internal-table-and-a-work-area.htm][http_www.sap-img.com_abap_difference-between-internal-table-and-a-work-area.htm]

[http_www.sap-img.com_abap_difference-between-internal-table-and-a-work-area.htm]: http://www.sap-img.com/abap/difference-between-internal-table-and-a-work-area.htm