Criando o 1° programa em ABAP

Nos primeiros exemplos não vamos trabalhar com banco de dados e sim com dados estáticos.
No menu inicial digite SE80 e tecle Enter.

Digite o nome do programa "zcurso1", conforme a figura acima e tecle enter.

Clique em sim.

Desflega a opção Com include TOP e tecle enter.

Clique em gravar.

Clique em Objeto local.

Clicamos duas vezes em "ZCURSO1" conforme a imagem grifada acima.

Clique no botão 


Abaixo do código REPORT ZCURSO1                        .

Iniciaremos nosso código.

1)    Criar uma tabela com exibir os dados na tela

2)    Usar os campos: * Programa Teste

data: v_nome(20)       type c,

      v_sobrenome(20)  type c.

3)    Usar a tabela

data: begin of i_tab occurs 10,

        nome(20)       type c,

        sobrenome(20)  type c,

      end of i_tab.

4)    Carregar a tabela via append

v_nome          = 'Fulano'.

v_sobrenome     = 'de Tal'.

i_tab-nome      = 'KATIA'.

i_tab-sobrenome = 'ALVES'.

append i_tab.

i_tab-nome      = 'ELVISE'.

i_tab-sobrenome = 'BRESCIANI'.

append i_tab.

i_tab-nome      = 'CRISTIANE'.

i_tab-sobrenome = 'NAO SEI DO QUE'.

append i_tab.

i_tab-nome      = 'SERGIO'.

i_tab-sobrenome = 'KRÜGER'.

append i_tab.

i_tab-nome      = 'ALTAMIR'.

i_tab-sobrenome = 'NUNES JUNIOR'.

append i_tab.

5)    Emitir a listagem da tabela com sort por nome

6)    Abaixo o código inteiro.

data: v_nome(20)       type c,

      v_sobrenome(20)  type c.

data: begin of i_tab occurs 10,

        nome(20)       type c,

        sobrenome(20)  type c,

      end of i_tab.

v_nome          = 'Fulano'.

v_sobrenome     = 'de Tal'.

i_tab-nome      = 'KATIA'.

i_tab-sobrenome = 'ALVES'.

append i_tab.

i_tab-nome      = 'ELVISE'.

i_tab-sobrenome = 'BRESCIANI'.

append i_tab.

i_tab-nome      = 'CRISTIANE'.

i_tab-sobrenome = 'NAO SEI DO QUE'.

append i_tab.

i_tab-nome      = 'SERGIO'.

i_tab-sobrenome = 'KRÜGER'.

append i_tab.

i_tab-nome      = 'ALTAMIR'.

i_tab-sobrenome = 'NUNES JUNIOR'.

append i_tab.

sort i_tab by nome.

clear i_tab.

loop at i_tab.

* do 50 times.

* skip.

  write: sy-tabix, 020 i_tab-nome, 035 i_tab-sobrenome.

  uline.

*  if sy-index = 30.

*    new-page.

* endif.

* enddo.

endloop.

top-of-page.

* write: 'programa teste – Curso ABAP', 070 'página:', sy-pagno.

write: text-001, 070 text-002, sy-pagno.

uline.

write: 'contador', 020 'nome', 035 'sobrenome'.

uline.

Clicamos no botão checar

Salvar

Ativar

Tecle F8  e  resultado é: