-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathwaBasicStudy.abap
55 lines (43 loc) · 1.65 KB
/
waBasicStudy.abap
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
*&---------------------------------------------------------------------*
*& Report ZCLIENTES_SEIXAS
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZCLIENTES_SEIXAS.
**********************************************************************
* Types/Structure
**********************************************************************
TYPES: BEGIN OF ty_clientes,
cod(5) TYPE c,
nome(30) TYPE c,
END OF ty_clientes.
**********************************************************************
* work area
**********************************************************************
DATA wa_clientes TYPE ty_clientes.
**********************************************************************
* Internal table
**********************************************************************
DATA ti_clients TYPE TABLE OF ty_clientes.
**********************************************************************
* Start of selection - Event
**********************************************************************
START-OF-SELECTION.
wa_clientes-cod = '1'.
wa_clientes-nome = 'Lucas Seixas'.
APPEND wa_clientes TO ti_clients.
wa_clientes-cod = '2'.
wa_clientes-nome = 'Leonardo'.
APPEND wa_clientes TO ti_clients.
wa_clientes-cod = '3'.
wa_clientes-nome = 'Danilo'.
APPEND wa_clientes TO ti_clients.
wa_clientes-cod = '4'.
wa_clientes-nome = 'Zed'.
APPEND wa_clientes TO ti_clients.
"leitura da tabela interna
LOOP AT ti_clients INTO wa_clientes.
WRITE: / wa_clientes-cod COLOR 1,
wa_clientes-nome COLOR COL_TOTAL.
ENDLOOP.