메뉴 건너뛰기

SAP 한국 커뮤니티



교제 507쪽이요~(데이터참조)

뿌앙뿌앙 2013.03.22 15:45 조회 수 : 972

아래가 교제 소스인데요~


REPORT  z10_12.

 

PARAMETERS : p_tname(30)  DEFAULT 'SFLIGHT'.

 

DATA: dref TYPE REF TO data.

 

FIELD-SYMBOLS: <fs1> TYPE ANY , <fs2> TYPE ANY.

 

CREATE DATA dref TYPE (p_tname).

ASSIGN dref->* TO <fs1>.

 

SELECT * FROM (p_tname) INTO  <fs1> UP TO 3 ROWS.

 

          DO.

                    ASSIGN COMPONENT sy-index OF STRUCTURE <fs1> TO <fs2>.

                    IF sy-subrc NE 0.

                              SKIP.

                              EXIT.

                    ENDIF.

                    WRITE: <fs2>.

          ENDDO.

ENDSELECT.


*-------------------------------------------------------------------------*

요즘 SELECT~ENDSELECT 잘안쓰짆아요~

그래서 제가 살짝 고쳐봤는데, 

  FIELD-SYMBOLS <FS1> TYPE ANY TABLE.
  FIELD-SYMBOLS <FS2> TYPE ANY.
  FIELD-SYMBOLS <FS3> TYPE ANY.

  DATA : DREF1 TYPE REF TO DATA.
          
  PARAMETERS : P_TNAME TYPE CHAR30.

  CREATE DATA DREF1 TYPE TABLE OF (P_TNAME).

  ASSIGN DREF1->* TO <FS1>.

  SELECT *
    FROM (P_TNAME)
    INTO CORRESPONDING FIELDS OF TABLE <FS1>
    UP TO 10 ROWS.


  LOOP AT <FS1> ASSIGNING <FS2>.

    DO.
      ASSIGN COMPONENT SY-INDEX OF STRUCTURE <FS2> TO <FS3>.
        IF SY-SUBRC NE 0.
          SKIP.
          EXIT.
        ENDIF.
      WRITE : <FS3>.
    ENDDO.

  ENDLOOP.

이렇게 고쳐봤는데 괜찮나요??

번호 제목 글쓴이 날짜 조회 수
공지 e-abap에서 출간된 책 소개 [8] 양키 2013.01.31 11760
285 158ㅔ 4-2-5 [2] baishui 2013.06.17 865
284 p194 4-3-1 [2] baishui 2013.06.18 876
283 130P 3-15 [1] baishui 2013.07.09 882
282 114p 예제 3-3-2 [3] baishui 2013.06.12 886
281 151p 4-2-2 [1] baishui 2013.06.17 890
280 147p 3-21 [2] baishui 2013.07.10 922
279 238p 5-6-1 [1] baishui 2013.07.03 927
278 74p 2-16 [1] baishui 2013.07.05 930
277 119page 3-8 [1] baishui 2013.07.09 938
276 EASY ABAP 책에관련하여 문의드립니다.. [1] Danielk 2013.03.20 948
275 [질문] sap windows gui 7.3 을 설치했는데요... [1] 철미니 2013.05.23 971
» 교제 507쪽이요~(데이터참조) [1] 뿌앙뿌앙 2013.03.22 972
273 181페이지 4-9 [1] baishui 2013.07.12 994
272 p106 예제 3-2-5 [2] baishui 2013.06.11 1000
271 예제 3-2 문의드립니다. [1] 밥퍼줘 2018.03.08 1002
270 182page 4-10 baishui 2013.07.12 1011
269 easy abap 2.0교재 261~262쪽 질문드립니다. [1] lookie87 2013.02.07 1031
268 easy abap 2.0 p.690에 table control에서 궁금한거 있습니다. [2] file 싸밥아밥 2013.04.29 1034
267 186p 4-13 baishui 2013.07.12 1060
266 172p 4-4 [2] baishui 2013.07.10 1065