REPORT ZDYNAMIC_ITAB_05.
TABLES : SFLIGHT.
SELECT-OPTIONS : S_CARRID FOR SFLIGHT-CARRID, "항공사
S_FLDATE FOR SFLIGHT-FLDATE. "운항일
START-OF-SELECTION.
DATA : LT_CODE(72) OCCURS 10,
L_FIELD(72) TYPE C,
L_PROG(8) TYPE C,
L_CNT(2) TYPE C,
LT_SFLIGHT LIKE SFLIGHT OCCURS 0 WITH HEADER LINE,
LS_SFLIGHT TYPE SFLIGHT.
SELECT * INTO TABLE LT_SFLIGHT
FROM SFLIGHT
WHERE CARRID IN S_CARRID
AND FLDATE IN S_FLDATE.
IF LT_SFLIGHT[] IS INITIAL.
EXIT.
ENDIF.
CLEAR : L_CNT.
SORT LT_SFLIGHT BY FLDATE.
APPEND 'PROGRAM SUBPOOL.' TO LT_CODE.
APPEND 'FORM DYN1.' TO LT_CODE.
APPEND 'DATA : BEGIN OF LT_DISP OCCURS 0,' TO LT_CODE.
APPEND ' CARRID LIKE SFLIGHT-CARRID,' TO LT_CODE.
LOOP AT LT_SFLIGHT.
ON CHANGE OF LT_SFLIGHT-FLDATE.
L_CNT = L_CNT + 1.
CONCATENATE ' FLDATE' L_CNT ' LIKE SFLIGHT-FLDATE,' INTO L_FIELD.
APPEND L_FIELD TO LT_CODE.
ENDON.
ENDLOOP.
APPEND ' END OF LT_DISP.' TO LT_CODE.
APPEND 'BREAK-POINT.' TO LT_CODE.
APPEND 'ENDFORM.' TO LT_CODE.
GENERATE SUBROUTINE POOL LT_CODE NAME L_PROG.
IF SY-SUBRC <> 0.
WRITE: / 'SUBROUTINE POOL 생성에 실패 하였습니다.'.
EXIT.
ENDIF.
PERFORM DYN1 IN PROGRAM (L_PROG).
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
370 | REPORT Z17_001. | sapjoy | 2007.02.06 | 2147 |
369 | REPORT Z03_019 [4] | sapjoy | 2008.04.14 | 2148 |
368 | REPORT Z05_009 [2] | sapjoy | 2007.05.28 | 2149 |
367 | REPORT Z04_008 [1] | sapjoy | 2007.05.16 | 2150 |
366 | REPORT Z07_003 | sapjoy | 2008.04.14 | 2150 |
365 | REPORT Z03_011 | sapjoy | 2007.05.14 | 2152 |
364 | REPORT Z07_020 | sapjoy | 2006.12.08 | 2152 |
363 | REPORT Z04_010 | sapjoy | 2008.04.14 | 2153 |
362 | REPORT Z13_021 [1] | sapjoy | 2008.09.29 | 2156 |
361 | Include ZXQEVU10 | sapjoy | 2008.12.17 | 2156 |
» | REPORT ZDYNAMIC_ITAB_05. | sapjoy | 2009.02.16 | 2156 |
359 | REPORT z18_005 | sapjoy | 2007.03.06 | 2157 |
358 | REPORT Z05_011 | sapjoy | 2007.05.28 | 2159 |
357 | REPORT z05_005 | sapjoy | 2007.05.21 | 2160 |
356 | REPORT Z15_035 | sapjoy | 2007.02.05 | 2162 |
355 | REPORT Z17_016 . | sapjoy | 2007.02.13 | 2162 |
354 | REPORT Z03_020 | sapjoy | 2007.05.15 | 2166 |
353 | REPORT Z03_030 | sapjoy | 2007.05.15 | 2166 |
352 | Include ZXCSAU05 | sapjoy | 2008.12.17 | 2166 |
351 | REPORT Z_15_011 | sapjoy | 2007.01.26 | 2170 |