louiscklaw/004_comission
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update,

Browse Source
This commit is contained in:
louiscklaw
2025-01-31 19:15:17 +08:00
parent 09adae8c8e
commit 6c60a73f30
1546 changed files with 286918 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
_resources/it114105/itp4512/Lab09/Z_09_DEBUG.abap Normal file
View File

@@ -0,0 +1,36 @@
*&---------------------------------------------------------------------*
*& Report  Z_09_DEBUG *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z_09_DEBUG
TABLES SFLIGHT.
TYPES: BEGIN OF REC,
CARRID LIKE SFLIGHT-CARRID,
CONNID LIKE SFLIGHT-CONNID,
FLDATE LIKE FLIGHT-FLDATE,
PLANETYPE LIKE SFLIGHT-PLANETYPE,
END OF REC.
DATA WA TYPE REC.
DATA ITABLE TYPE TABLE OF REC.
SELECT-OPTIONS S_CARRID FOR SFLIGHT-CARRID.
SELECT-OPTIONS S_CONNID FOR SFLIGHT-CONNID.
SELECT-OPTIONS S_FLDATE FOR SLIGHT-FLDATE.
WRITE: 11 'Airline', 23 'Connection No', 38 'Date', 53 'Plane Type'.
SELECT CARRID CONNID FLDATE PLANETYPE FROM SFLIGHT
INTO TABLE ITABLE
WHERE CARRID IN S_CARRID
AND CONNID IN S_CONNID
AND FLDATE IN S_FLDATE.
LOOP AT ITABLE INTO WA.
WRITE: / WA-CARRID UNDER 'Airline', WA-CONNID UNDER 'Connection No',
WA-FLDATE UNDER 'Date', WA-PLANETYPE UNDER 'Plane Type'.
ENDLOOP.