아래가 교제 소스인데요~
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.
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] | 싸밥아밥 | 2013.04.29 | 1034 |
267 | 186p 4-13 | baishui | 2013.07.12 | 1060 |
266 | 172p 4-4 [2] | baishui | 2013.07.10 | 1065 |
예 잘 작동하고, 소스코드도 정리가 잘되었네요. 수고하셨습니다.