-------------------- -------------------- -------------------- -- Repo

 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
*&--------------------------------------------------------------*
*& Report SAPBC400WBS_GETTING_STARTED *
*&--------------------------------------------------------------*
REPORT sapbc400wbs_getting_started .
TABLES: sbc400_carrier.
DATA: wa_sbc400 TYPE sbc400_carrier.
PARAMETERS: pa_car TYPE scarr-carrid.
START-OF-SELECTION.
* Select all fields of one dataset from database table SCARR
SELECT SINGLE * FROM scarr INTO CORRESPONDING FIELDS OF wa_sbc400
WHERE carrid = pa_car.
* At least one record could be selected
IF sy-subrc = 0.
* Copy fields with corresponding names
MOVE-CORRESPONDING wa_sbc400 TO sbc400_carrier.
CALL SCREEN 100.
* Copy fields with corresponding names back
MOVE-CORRESPONDING sbc400_carrier TO wa_sbc400.
* Write data on list
WRITE: / wa_sbc400-carrid COLOR COL_KEY,
wa_sbc400-carrname,
wa_sbc400-currcode.
* add an empty line
SKIP.
* add a horizontal line
ULINE.
* write username, time and date on list
WRITE: / wa_sbc400-uname,
wa_sbc400-uzeit,
wa_sbc400-datum.
ENDIF.