FORM PUT_SPFLI.
DATA L_WHERE TYPE RSDS_WHERE.
DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
* Dynamic selections for tables SPFLI
MOVE 'SPFLI' TO L_WHERE-TABLENAME.
READ TABLE DYN_SEL-CLAUSES WITH KEY L_WHERE-TABLENAME INTO L_WHERE.
* Field selection for node SPFLI
MOVE 'SPFLI' TO L_TAB_FIELDS-TABLENAME.
READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
* Data retrieval
SELECT (L_TAB_FIELDS-FIELDS)
INTO CORRESPONDING FIELDS OF SPFLI FROM SPFLI
WHERE CARRID IN CARRID
AND AIRPFROM IN AIRP_FR
AND AIRPTO IN AIRP_TO
AND (L_WHERE-WHERE_TAB) ORDER BY PRIMARY KEY.
PUT SPFLI.
ENDSELECT.
ENDFORM.
FORM PUT_SFLIGHT.
DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
* Field selection for node SFLIGHT
MOVE 'SFLIGHT' TO L_TAB_FIELDS-TABLENAME.
READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
SELECT (L_TAB_FIELDS-FIELDS)
INTO CORRESPONDING FIELDS OF SFLIGHT FROM SFLIGHT
WHERE CARRID = SPFLI-CARRID AND CONNID = SPFLI-CONNID
AND FLDATE IN FLDATE ORDER BY PRIMARY KEY.
PUT SFLIGHT.
ENDSELECT.
ENDFORM. "PUT_SFLIGHT
FORM PUT_SBOOK.
CONSTANTS MARK VALUE 'X'.
DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
MOVE 'SBOOK' TO L_TAB_FIELDS-TABLENAME.
READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
CASE PA_CANC.
WHEN MARK.
SELECT (L_TAB_FIELDS-FIELDS)
INTO CORRESPONDING FIELDS OF SBOOK FROM SBOOK
WHERE CARRID = SFLIGHT-CARRID
AND CONNID = SFLIGHT-CONNID AND FLDATE = SFLIGHT-FLDATE
AND BOOKID IN BOOKID.
PUT SBOOK.
ENDSELECT.
WHEN SPACE.
SELECT (L_TAB_FIELDS-FIELDS)
INTO CORRESPONDING FIELDS OF SBOOK FROM SBOOK
WHERE CARRID = SFLIGHT-CARRID
AND CONNID = SFLIGHT-CONNID AND FLDATE = SFLIGHT-FLDATE
AND CANCELLED = ' ' AND BOOKID IN BOOKID.
PUT SBOOK.
ENDSELECT.
ENDCASE.
ENDFORM. "PUT_SBOOK
DATA L_WHERE TYPE RSDS_WHERE.
DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
* Dynamic selections for tables SPFLI
MOVE 'SPFLI' TO L_WHERE-TABLENAME.
READ TABLE DYN_SEL-CLAUSES WITH KEY L_WHERE-TABLENAME INTO L_WHERE.
* Field selection for node SPFLI
MOVE 'SPFLI' TO L_TAB_FIELDS-TABLENAME.
READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
* Data retrieval
SELECT (L_TAB_FIELDS-FIELDS)
INTO CORRESPONDING FIELDS OF SPFLI FROM SPFLI
WHERE CARRID IN CARRID
AND AIRPFROM IN AIRP_FR
AND AIRPTO IN AIRP_TO
AND (L_WHERE-WHERE_TAB) ORDER BY PRIMARY KEY.
PUT SPFLI.
ENDSELECT.
ENDFORM.
FORM PUT_SFLIGHT.
DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
* Field selection for node SFLIGHT
MOVE 'SFLIGHT' TO L_TAB_FIELDS-TABLENAME.
READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
SELECT (L_TAB_FIELDS-FIELDS)
INTO CORRESPONDING FIELDS OF SFLIGHT FROM SFLIGHT
WHERE CARRID = SPFLI-CARRID AND CONNID = SPFLI-CONNID
AND FLDATE IN FLDATE ORDER BY PRIMARY KEY.
PUT SFLIGHT.
ENDSELECT.
ENDFORM. "PUT_SFLIGHT
FORM PUT_SBOOK.
CONSTANTS MARK VALUE 'X'.
DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
MOVE 'SBOOK' TO L_TAB_FIELDS-TABLENAME.
READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
CASE PA_CANC.
WHEN MARK.
SELECT (L_TAB_FIELDS-FIELDS)
INTO CORRESPONDING FIELDS OF SBOOK FROM SBOOK
WHERE CARRID = SFLIGHT-CARRID
AND CONNID = SFLIGHT-CONNID AND FLDATE = SFLIGHT-FLDATE
AND BOOKID IN BOOKID.
PUT SBOOK.
ENDSELECT.
WHEN SPACE.
SELECT (L_TAB_FIELDS-FIELDS)
INTO CORRESPONDING FIELDS OF SBOOK FROM SBOOK
WHERE CARRID = SFLIGHT-CARRID
AND CONNID = SFLIGHT-CONNID AND FLDATE = SFLIGHT-FLDATE
AND CANCELLED = ' ' AND BOOKID IN BOOKID.
PUT SBOOK.
ENDSELECT.
ENDCASE.
ENDFORM. "PUT_SBOOK
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
630 | REPORT Z09_005 | sapjoy | 2006.12.18 | 2514 |
629 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
628 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |
627 | REPORT Z09_010 | sapjoy | 2006.12.19 | 2523 |
» | PUT_SPFLI PUT_SFLIGHT PUT_SBOOK | sapjoy | 2006.12.19 | 2614 |
625 | REPORT Z11_001 | sapjoy | 2006.12.20 | 2977 |
624 | REPORT z11_004 . | sapjoy | 2006.12.22 | 2465 |
623 | REPORT Z11_005 | sapjoy | 2006.12.22 | 2273 |
622 | REPORT Z11_008 | sapjoy | 2006.12.22 | 2496 |
621 | REPORT Z11_010 | sapjoy | 2006.12.22 | 2358 |
620 | module f4_drum_S101 input. | sapjoy | 2006.12.26 | 2541 |
619 | MODULE f4_drum_s101 INPUT. 2 | sapjoy | 2006.12.26 | 2375 |
618 | REPORT z12_002 | sapjoy | 2006.12.28 | 2629 |
617 | REPORT Z13_002 | sapjoy | 2007.01.03 | 2309 |
616 | REPORT Z12_004 | sapjoy | 2007.01.03 | 2256 |
615 | FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. | sapjoy | 2007.01.03 | 2875 |
614 | REPORT Z13_003 | sapjoy | 2007.01.05 | 2437 |
613 | REPORT Z13_001 | sapjoy | 2007.01.08 | 2362 |
612 | REPORT Z13_012 | sapjoy | 2007.01.08 | 2282 |
611 | REPORT Z13_013 | sapjoy | 2007.01.08 | 2634 |