(ABAP 코드)Work Area를 사용하여 Internal Table에 데이터 넣기

REPORT ZPT_0529 MESSAGE-ID ZBD36.TABLES: ZTHEOM_STOCK.


DATA: WA_STOCK TYPE ZTHEOM_STOCK,                " WORK AREA 선언      
         ITAB_STOCK TYPE TABLE OF ZTHEOM_STOCK.     " INTERNAL TABLE 선언


* WORK AREA에 데이터 셋팅
WA_STOCK-STOCKNUM = '000036'.
WA_STOCK-TICKER = 'HONG'.
WA_STOCK-COM_NAME = 'J COP'.
WA_STOCK-OPEN_PRICE = 999000.
WA_STOCK-LOW_PRICE = 999000.
WA_STOCK-HIGH_PRICE = 999000.
WA_STOCK-END_PRICE = 99950.
WA_STOCK-STOCKDATE = '20210605'.
WA_STOCK-SCURRENCY = 'KRW'.


* WORK AREA에 있는 데이터를 INTERNAL TABLE에 넣음.
APPEND WA_STOCK TO ITAB_STOCK.


* INTERNAL TABLE에 값이 들어와있느지 확인 후,
* INTERNAL TABLE 에 있는 값을 ZTHEOM_STOCK 테이블에 넣음.
IF ITAB_STOCK[] IS NOT INITIAL.     " INITIAL 은 값이 없다는 의미.   
   INSERT ZTHEOM_STOCK FROM TABLE ITAB_STOCK.      
ENDIF.


* 이전 코드 확인.
IF SY-SUBRC <> 0.   
  MESSAGE E002 WITH 'WARNING' DISPLAY LIKE 'E'.
ELSE.   
  MESSAGE S002 WITH 'SUCCESS' DISPLAY LIKE 'S'.
ENDIF.


* 테이블에 있는 특정 데이터 삭제. (STOCKDATE가 20210605가 아닌 것들 모두 삭제)
DELETE FROM ZTHEOM_STOCK WHERE STOCKDATE <> '20210605'.