forked from SAP-samples/abap-platform-rap100
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathEX1_CLASS_ZCL_RAP100_GEN_DATA.txt
60 lines (54 loc) · 2 KB
/
EX1_CLASS_ZCL_RAP100_GEN_DATA.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
"! This class is used to fill travel data into the table zrap100_atrav###
CLASS zcl_rap100_gen_data_### DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES if_oo_adt_classrun.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_rap100_gen_data_### IMPLEMENTATION.
METHOD if_oo_adt_classrun~main.
DATA:
group_id TYPE string VALUE '###',
attachment TYPE /dmo/attachment,
file_name TYPE /dmo/filename,
mime_type TYPE /dmo/mime_type.
* clear data
DELETE FROM zrap100_atrav###.
* DELETE FROM zrap100_dtrav###.
"insert travel demo data
INSERT zrap100_atrav### FROM (
SELECT
FROM /dmo/travel AS travel
FIELDS
travel~travel_id AS travel_id,
travel~agency_id AS agency_id,
travel~customer_id AS customer_id,
travel~begin_date AS begin_date,
travel~end_date AS end_date,
travel~booking_fee AS booking_fee,
travel~total_price AS total_price,
travel~currency_code AS currency_code,
travel~description AS description,
CASE travel~status "[N(New) | P(Planned) | B(Booked) | X(Cancelled)]
WHEN 'N' THEN 'O'
WHEN 'P' THEN 'O'
WHEN 'B' THEN 'A'
ELSE 'X'
END AS overall_status,
@attachment AS attachment,
@mime_type AS mime_type,
@file_name AS file_name,
travel~createdby AS created_by,
travel~createdat AS created_at,
travel~lastchangedby AS last_changed_by,
travel~lastchangedat AS last_changed_at,
travel~lastchangedat AS local_last_changed_at
ORDER BY travel_id UP TO 10 ROWS
).
COMMIT WORK.
out->write( |[RAP100] Demo data generated for table ZRAP100_ATRAV{ group_id }. | ).
ENDMETHOD.
ENDCLASS.