update,
This commit is contained in:
12
it114105/itp4512/Lab06/Z_06_SELECT_SCR.abap
Normal file
12
it114105/itp4512/Lab06/Z_06_SELECT_SCR.abap
Normal file
@@ -0,0 +1,12 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Report Z_06_SELECT_SCR *
|
||||
*& *
|
||||
*&---------------------------------------------------------------------*
|
||||
*& *
|
||||
*& *
|
||||
*&---------------------------------------------------------------------*
|
||||
|
||||
REPORT Z_06_SELECT_SCR
|
||||
PARAMETERS: P_CARRID TYPE SBOOK-CARRID OBLIGATORY,
|
||||
P-FLDATE TYPE SBOOK-FLDATE DEFAULT SY-DATUM,
|
||||
P-SMOKER AS CHECKBOX.
|
19
it114105/itp4512/Lab06/Z_06_SELECT_SCR_2.abap
Normal file
19
it114105/itp4512/Lab06/Z_06_SELECT_SCR_2.abap
Normal file
@@ -0,0 +1,19 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Report Z_06_SELECT_SCR_2 *
|
||||
*& *
|
||||
*&---------------------------------------------------------------------*
|
||||
*& *
|
||||
*& *
|
||||
*&---------------------------------------------------------------------*
|
||||
|
||||
REPORT Z-06-Z_06_SELECT_SCR_2
|
||||
TABLES SPFLI.
|
||||
SELECT-OPTIONS S-CARRID FOR SPFLI-CARRID NO INTERVALS DEFAULT 'LH'.
|
||||
SELECT-OPTIONS S-CONNID FOR SPFLI-CONNID NO-EXTENSION DEFAULT 99 TO 1999.
|
||||
|
||||
SELECT * FROM SPFLI WHERE CARRID IN S-CARRID
|
||||
AND CONNID IN S-CONNID.
|
||||
|
||||
WRITE: / SPFLI-CARRID, SPFLI-CONNID.
|
||||
|
||||
ENDSELECT.
|
58
it114105/itp4512/Lab06/Z_06_SELECT_SCR_3.abap
Normal file
58
it114105/itp4512/Lab06/Z_06_SELECT_SCR_3.abap
Normal file
@@ -0,0 +1,58 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Report Z_06_SELECT_SCR_3 *
|
||||
*& *
|
||||
*&---------------------------------------------------------------------*
|
||||
*& *
|
||||
*& *
|
||||
*&---------------------------------------------------------------------*
|
||||
|
||||
REPORT Z_06_SELECT_SCR_3
|
||||
|
||||
TABLES SBOOK.
|
||||
TABLES SPFLI
|
||||
SELECTION-SCREEN BEGIN OF BLOCK OPTIONS WITH FRAME TITLE OP1.
|
||||
PARAMETERS: R1 RADIOBUTTON GROUP G1.
|
||||
R2 RADIOBUTTON GROUP G1 DEFAULT 'X'.
|
||||
R3 RADIOBUTTON GROUP G1.
|
||||
SELECT-OPTIONS: S_CARRID FOR SBOOK-CARRID,
|
||||
S_CONNID FOR SBOOK-CONNID NO INTERVALS.
|
||||
S_FLDATE FOR SBOOK-FLDATE NO TNTERVALS DEFAULT SY-DATUM.
|
||||
SELECTION-SCREEN END OF BLOCK OPTIONS.
|
||||
|
||||
TYPES: BEGIN OF REC,
|
||||
CARRID TYPE SBOOK-CARRID,
|
||||
CONNID TYPE SBOOK-CONNID,
|
||||
CITYFROM TYPE SPFLI-CITYFROM,
|
||||
CITYTO TYPE SPFLI-CITYTO,
|
||||
FLDATE TYPE SBOOK-FLDATE,
|
||||
CLASS TYPE SBOOK-CLASS,
|
||||
END OF REC.
|
||||
|
||||
DATA: WA TYPE REC,
|
||||
ITAB TYPE TABLE OF REC.
|
||||
CLS TYPE SBOOK-CLASS.
|
||||
|
||||
IF R1 = 'X'.
|
||||
CLS = 'B'.
|
||||
ELSEIF R2 = 'X'.
|
||||
CLS = 'Y'.
|
||||
ELSE.
|
||||
CLS = 'F'.
|
||||
ENDIF.
|
||||
|
||||
SELECT SBOOK~CARRID SBOOK~CONNID CITYFROM CITYTO FLDATE CLASS
|
||||
INTO TABLE ITAB
|
||||
FROM SBOOK INNER JOIN SPFLI
|
||||
ON SBOOK~CARRID = SPFLI~CARRID
|
||||
AND SBOOK~CONNID = SPFLI~CONNID
|
||||
WHERE SBOOK~CARRID IN S_CARRID
|
||||
AND SBOOK~CONNID IN S_CONNID
|
||||
* AND FLDATE IN S_FLDATE
|
||||
AND CLASS = CLS.
|
||||
|
||||
LOOP AT ITAB INTO WA.
|
||||
WRITE: / WA-CARRID, WA-CONNID, WA-CITYFROM, WA-CITYTO, WA-FLDATE, WA-CLASS.
|
||||
ENDLOOP.
|
||||
|
||||
INITIALIZATION.
|
||||
OP1 = 'Options'.
|
Reference in New Issue
Block a user