*&---------------------------------------------------------------------*
*& Report ZEMPLOYEE_LIST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZEMPLOYEE_LIST.
*=======================================================================================
* DECLARING INTERNAL TABLE
*=======================================================================================
* OLD STYLE OF CREATING INTERNAL TABLE WITH HEADER LINE.
DATA: BEGIN OF itab01 OCCURS 0,
SURNAME LIKE ZEMPLOYEES-SURNAME,
DOB LIKE ZEMPLOYEES-DOB,
END OF itab01.
* NEW STYLE OF CREATING INTERNAL TABLE WITH OUT HEADER LINE
* DECLARE LINE TYPE
TYPES: BEGIN OF LINE01_TYPE,
SURNAME LIKE ZEMPLOYEES-SURNAME,
DOB LIKE ZEMPLOYEES-DOB,
END OF LINE01_TYPE.
* DECALRE THE 'TABLE TYPE' BASED ON THE 'LINE TYPE'
* TYPES itab02_TYPE TYPE STANDARD TABLE OF LINE01_TYPE INITIAL_SIZE 2. " SPECIFYING THE SIZE OF TABLE
TYPES itab02_TYPE TYPE STANDARD TABLE OF LINE01_TYPE.
*TYPES itab03_TYPE TYPE SORTED TABLE OF LINE01_TYPE
* WITH UNIQUE KEY SURNAME, DOB.
* DECLARE THE TABLE BASED ON THE 'TABLE TYPE'
*DATA ITAB02 TYPE ITAB02_TYPE WITH HEADER LINE. " IF YOU WANT TO USE HEADER LINE
DATA ITAB02 TYPE ITAB02_TYPE.
* DECLARE THE WORK AREA TO USE WITH OUR INTERNAL TABLE.
DATA WA_ITAB02 TYPE LINE01_TYPE.
*=======================================================================================
* WORKING WITH OLD VERSION OF INTERNAL TABLE
*=======================================================================================
TABLES: ZEMPLOYEES.
DATA: BEGIN OF ITAB03 OCCURS 0,
EMPLOYEE LIKE ZEMPLOYEES-EMPLOYEE,
SURNAME LIKE ZEMPLOYEES-SURNAME,
FORENAME LIKE ZEMPLOYEES-FORENAME,
TITLE LIKE ZEMPLOYEES-TITLE,
DOB LIKE ZEMPLOYEES-DOB,
LOS TYPE I VALUE 3,
END OF ITAB03.
*DATA: BEGIN OF ITAB04 OCCURS 0.
* INCLUDE STRUCTURE ITAB03.
*DATA END OF ITAB04.
*
*DATA: BEGIN OF ITAB05 OCCURS 0.
* INCLUDE STRUCTURE ZEMPLOYEES.
*DATA END OF ITAB05.
*
*DATA: BEGIN OF ITAB06 OCCURS 0.
* INCLUDE STRUCTURE ZEMPLOYEES.
* INCLUDE STRUCTURE ITAB03.
* DATA EE_COUNT TYPE I.
*DATA END OF ITAB06.
SELECT * FROM ZEMPLOYEES INTO CORRESPONDING FIELDS OF TABLE ITAB03.
*SELECT * FROM ZEMPLOYEES.
** MOVE ZEMPLOYEES-EMPLOYEE TO ITAB03-EMPLOYEE.
** MOVE ZEMPLOYEES-SURNAME TO ITAB03-SURNAME.
** MOVE ZEMPLOYEES-FORENAME TO ITAB03-FORENAME.
** MOVE ZEMPLOYEES-TITLE TO ITAB03-TITLE.
** MOVE ZEMPLOYEES-DOB TO ITAB03-DOB.
* MOVE-CORRESPONDING ZEMPLOYEES TO ITAB03.
* APPEND ITAB03.
*ENDSELECT.
WRITE / ITAB03-SURNAME.
'SAP > ABAP 코드' 카테고리의 다른 글
| (ABAP 코드) INTERNAL TABLE 코드 (0) | 2021.06.13 |
|---|---|
| (ABAP 코드)Work Area를 사용하여 Internal Table에 데이터 넣기 (0) | 2021.06.13 |
| ABAP - LOOP (0) | 2021.05.24 |
| ABAP - IF & CASE (0) | 2021.05.24 |
| ABAP - BASIC SQL STATEMENT (0) | 2021.05.24 |