Dynamic Open SQL.

내역 : FROM clause 기초다지기

      (Rel4.6이전 버젼내역 설명, Rel6.10이후부터는 Join을 허용하므로 다음 강좌를보자).

사전지식 :  Oracle Native SQL사용가능( 집합함수를 사용할 줄 안다.)

 문법 : SELECT * FROM (lv_tabname).
        FROM절에서 사용되는 table이름 단독으로 사용된다.
        inner join, outter join등은 허용되지 않는다.
        이 이야기는 결국 lv_tabname의 type이 internal table 필요가 없을음 알수있다

 기술 : 가) Dynamic Open SQL
        나) Data Object 참조선언 REF TO
        다) Field-Symbols
        라) ALV Grid Control
           -> ALV를 그릴려니 Screen이 필요하고 Screen을 그리자니 PBO,PAI기술이 필요하다

프로그램 구동내역 설명

        1) lv_tabname이 Runtime에 바꾼다.
        2) lv_tabname에 따라서 Select 되는 Field의 내용이 그때 그때 바꾼다.
        3) 그럼 lv_tabname에 상관없이 Select되는 Data를 담을 수 있는
           Structure또는 Internal Table이 필요하다
        4) Data Object 를 참조변수로 선언하여 runtime에 같이 그 유형을 lv_tabname에 맞게 변경해 준다.
           DATA : lo_dref TYPE REF TO data.
           CREATE DATA lo_dref TYPE TABLE OF (lv_tabname).
        5) 이제 lo_dref는 (lv_tabname)의 테이블을 유형의 internal Table이 되었다.
        6) 그러나 lo_dref는 코딩상에서 직접 제어 할수 없으므로 제어를 위한 Field-Symbol을 사용하자
           FIELD-SYMBOLS : <itab> TYPE ANY TABLE.
           ASSIGN lo_dref->* TO <itab>.
        7) 이제 <itab>은 테이블의 내용을 담을수 있는 충분한 그릇이 되었다.
           SELECT *
             INTO CORRESPONDING FIELDS OF TABLE <itab>
             FROM (lv_tabname) UP TO 20 ROWS.
        8) 이 <itab>을 화면에 Display해야 한다. ALV Grid Control을 사용하자
           DATA : lo_alv     TYPE REF TO CL_GUI_ALV_GRID.
           CREATE OBJECT lo_alv
              EXPORTING i_parent = cl_gui_container=>screen0.
        9) ALV Control이 화면상에 표시될 바탕이 필요하다 (Screen 100)
           Create Screen을 이용하여 0100번 Screen을 만든다.
           Screen에서 F3을 눌렀을 때 Back할수 있도록 코드를 약간 넣어준다.
           INCLUDE  YTEST_DYNAMIC_OPEN_SQLO01.
           INCLUDE  YTEST_DYNAMIC_OPEN_SQLI01.

프로그램 원문.
*&---------------------------------------------------------------------*

REPORT   YTEST_DYNAMIC_OPEN_SQL.
INCLUDE  YTEST_DYNAMIC_OPEN_SQLO01.
INCLUDE  YTEST_DYNAMIC_OPEN_SQLI01.

DATA: lv_tabname  TYPE        TABNAME.
DATA: lv_tabname1 TYPE        string.

"From절은 internal table로 선언할 수 없다. 이유는 위쪽의 내용을 읽기 바람.
DATA: BEGIN OF lt_tabname2 OCCURS 0 ,
        dat1 TYPE string,
      END OF lt_tabname2.
DATA: ls_tabname2 LIKE lt_tabname2.

DATA: lo_dref    TYPE REF TO DATA,
      lo_alv     TYPE REF TO CL_GUI_ALV_GRID.

FIELD-SYMBOLS: <itab> TYPE ANY TABLE.

    START-OF-SELECTION.
    WRITE: / 'SPFLI', / 'SFLIGHT', / 'SBOOK'.

    AT LINE-SELECTION.
         READ CURRENT LINE LINE VALUE INTO lv_tabname1.

         CREATE DATA lo_dref TYPE TABLE OF (lv_tabname1).

         lv_tabname = lv_tabname1.
         ASSIGN lo_dref->* TO <itab>.

         ls_tabname2-dat1 = lv_tabname1.
         append ls_tabname2 to lt_tabname2.

         SELECT *
         INTO TABLE <itab>
         FROM (lv_tabname1) UP TO 20 ROWS
         .

         CREATE OBJECT lo_alv
            EXPORTING  i_parent = cl_gui_container=>screen0.

         CALL METHOD  lo_alv->SET_TABLE_FOR_FIRST_DISPLAY
            EXPORTING i_structure_name = lv_tabname
            CHANGING  it_outtab        = <itab>.

         CALL SCREEN 100.