*&---------------------------------------------------------------------*
*& Report Z99_55
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_55.

* "WHILE 사용
TYPES: BEGIN OF TY_LINE,
         FIELD1 TYPE I,
         FIELD2 TYPE I,
       END OF TY_LINE,
       TY_ITAB TYPE TABLE OF TY_LINE
               WITH EMPTY KEY.

DATA(LT_ITAB) = VALUE TY_ITAB(
  FOR I = 10  WHILE I < 15
    ( FIELD1 = I FIELD2 = I + 10 ) ).

CL_DEMO_OUTPUT=>DISPLAY( LT_ITAB ).

** " UNTIL 사용
*TYPES: BEGIN OF TY_LINE,
*         FIELD1 TYPE I,
*         FIELD2 TYPE I,
*       END OF TY_LINE,
*       TY_ITAB TYPE TABLE OF TY_LINE
*               WITH EMPTY KEY.
*
*DATA(LT_ITAB) = VALUE TY_ITAB(
*  FOR I = 10 THEN I + 1  UNTIL I > 10
*    ( FIELD1 = I FIELD2 = I + 10 ) ).
*
*CL_DEMO_OUTPUT=>DISPLAY( LT_ITAB ).