*&---------------------------------------------------------------------*
*& Report Z99_56
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_56.

*" LOOP 사용
TYPES: BEGIN OF TY_NAME,
         INDEX    TYPE I,
         CARRID   TYPE SCARR-CARRID,
         FULLNAME TYPE STRING,
       END OF TY_NAME,
       TY_T_NAME TYPE TABLE OF TY_NAME
                 WITH EMPTY KEY.

DATA:
  LS_SCARR TYPE SCARR,
  LT_SCARR LIKE TABLE OF LS_SCARR,
  LS_NAME  TYPE TY_NAME,
  LT_NAME  TYPE TY_T_NAME.

SELECT *
  FROM SCARR
  INTO CORRESPONDING FIELDS OF TABLE LT_SCARR.

LOOP AT LT_SCARR INTO LS_SCARR.
  LS_NAME-INDEX = SY-TABIX.
  LS_NAME-CARRID = LS_SCARR-CARRID.
  LS_NAME-FULLNAME = LS_SCARR-CARRID &&
                     |: |            &&
                     LS_SCARR-CARRNAME.

  APPEND LS_NAME TO LT_NAME.
  CLEAR LS_NAME.
ENDLOOP.

CL_DEMO_OUTPUT=>DISPLAY( LT_NAME ).


** " FOR 사용
*TYPES: BEGIN OF TY_NAME,
*         INDEX    TYPE I,
*         CARRID   TYPE SCARR-CARRID,
*         FULLNAME TYPE STRING,
*       END OF TY_NAME,
*       TY_T_NAME TYPE TABLE OF TY_NAME
*                 WITH EMPTY KEY.
*SELECT *
*  FROM SCARR
*  INTO TABLE @DATA(LT_SCARR).
*
*DATA(LT_NAME) = VALUE TY_T_NAME(
*  FOR WA IN LT_SCARR INDEX INTO IDX (
*              INDEX    = IDX
*              CARRID   = WA-CARRID
*              FULLNAME = WA-CARRID &&
*                         |: |      &&
*                         WA-CARRNAME ) ).
*
*CL_DEMO_OUTPUT=>DISPLAY( LT_NAME ).