REPORT ZDYNAMIC_ITAB_08.
TABLES : SFLIGHT.
SELECT-OPTIONS : S_CARRID FOR SFLIGHT-CARRID,
S_FLDATE FOR SFLIGHT-FLDATE.
DATA : GT_SFLIGHT LIKE SFLIGHT OCCURS 0 WITH HEADER LINE,
L_TEXT(72),
L_CNT(2) TYPE C.
DATA : BEGIN OF L_SRC_ST_IT OCCURS 0,
TEXT(72),
END OF L_SRC_ST_IT.
SELECT * INTO TABLE GT_SFLIGHT
FROM SFLIGHT
WHERE CARRID IN S_CARRID
AND FLDATE IN S_FLDATE.
CLEAR : L_CNT.
SORT GT_SFLIGHT BY FLDATE.
CLEAR : L_SRC_ST_IT.
L_SRC_ST_IT-TEXT = '*& Include ZDYNAMIC_ITAB_08TOP *'.
APPEND L_SRC_ST_IT.
CLEAR : L_SRC_ST_IT.
L_SRC_ST_IT-TEXT = 'DATA : BEGIN OF GT_FLDATE OCCURS 0,'.
APPEND L_SRC_ST_IT.
CLEAR : L_SRC_ST_IT.
L_SRC_ST_IT-TEXT = ' CARRID LIKE SFLIGHT-CARRID,'.
APPEND L_SRC_ST_IT.
CLEAR : L_SRC_ST_IT.
LOOP AT GT_SFLIGHT.
ON CHANGE OF GT_SFLIGHT-FLDATE.
L_CNT = L_CNT + 1.
CONCATENATE ' FLDATE' L_CNT ' LIKE SFLIGHT-FLDATE,' INTO L_TEXT.
L_SRC_ST_IT-TEXT = L_TEXT.
APPEND L_SRC_ST_IT.
CLEAR : L_SRC_ST_IT.
ENDON.
ENDLOOP.
L_SRC_ST_IT-TEXT = ' END OF GT_FLDATE.'.
APPEND L_SRC_ST_IT.
INSERT REPORT 'ZDYNAMIC_ITAB_09_TOP' FROM L_SRC_ST_IT.
EXPORT GT_SFLIGHT TO MEMORY ID 'TEST_ID'.
CALL TRANSACTION 'ZDYNAMIC_ITAB_09' AND SKIP FIRST SCREEN.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
» | REPORT ZDYNAMIC_ITAB_08. | sapjoy | 2009.02.16 | 2760 |
588 | REPORT Z15_026 | sapjoy | 2007.01.31 | 2758 |
587 | REPORT Z07_002 . | sapjoy | 2006.12.06 | 2755 |
586 | REPORT Z17_019 [1] | sapjoy | 2007.02.14 | 2748 |
585 | REPORT Z03_021 [5] | sapjoy | 2007.05.15 | 2737 |
584 | REPORT Z03_005 [1] | sapjoy | 2006.12.02 | 2735 |
583 | report zunicode_034. [1] | sapjoy | 2008.11.21 | 2734 |
582 | REPORT z18_037 [3] | sapjoy | 2008.04.21 | 2728 |
581 | REPORT zBADI_FIND | sapjoy | 2009.01.15 | 2724 |
580 | REPORT Z15_027 . | sapjoy | 2007.02.01 | 2715 |
579 | REPORT z18_032 | sapjoy | 2008.04.21 | 2710 |
578 | TYPE-POOL ztgrp [1] | sapjoy | 2007.05.14 | 2699 |
577 | REPORT Z07_007 | sapjoy | 2006.12.07 | 2698 |
576 | zbapi_java | sapjoy | 2009.02.02 | 2693 |
575 | Z01_019 [2] | sapjoy | 2006.12.02 | 2688 |
574 | report zunicode_031. | sapjoy | 2008.11.21 | 2684 |
573 | TOTAL | sapjoy | 2009.02.19 | 2683 |
572 | REPORT Z15_007 | eabap | 2007.01.23 | 2677 |
571 | REPORT z18_017 | sapjoy | 2007.03.11 | 2672 |
570 | REPORT z_userexit_01 | sapjoy | 2008.12.14 | 2655 |