http://abap101.com

Todos os posts e comentários foram migrados para a casa nova! Apareçam! Mi casa, su casa!

Abraços!

Não quero aqui explicar extensivamente OO, mas apresentar alguns materiais que pesquisei na internet e que julgo ser apropriados como introdução ao assunto.

Sugiro o capítulo 1 do livro Think in Java ele dá uma boa base sobre OO. Esse livro é um clássico no mundo Java, pricipalmente por ser distribuido gratuitamente em PDF.

O Wikipedia também pode ser uma boa fonte.

Você vai ver que tem várias fontes na internet e muito livros sobre o assunto. Para aprender OO eu li muito e principalmente treinei. A chave de OO é usar, usar e usar. Não tem mágica.

Nesse estudo inicial, atente para os conceitos de classe, instância, atributos, métodos e mensagens. Dependendo da sua experiência com programação, herança pode ser aprendida sem muito esforço. Já polimorfismo é mais complicado e demanda um pouco mais de esforço para entender.

Não há uma explicação final para os conceitos de orientação a objeto. Você terá que estudar várias fontes para chegar as duas próprias conclusões.

Com isso, a sua consultoria consegue treinar um novo consultor em situações reais da rotina de um projeto.Isso pode ser ótimo para o sombra, pois esse treinamento on-the-job é uma maneira de dar a ele alguma experiência sem a responsabilidade de um consultor cobrado do cliente.

No entanto, para o consultor experiênte, isso representa um aumento de trabalho, pois além do trabalho normal como consultor, ele precisa explicar tudo ao sombra.

Eu nunca tive um sombra para ajudar, mas já coordenei uma equipe de umas 10 pessoas totalmente inexperiêntes, onde tive de ensinar muitos macetes para que as coisas andassem no prazo determinado.

Nessa semana, conversando com um consultor que trabalha comigo, ele revelou-me que já criou a maior confusão em um projeto por negar-se a ensiar um outro consultor menos experiênte. De acordo com ele, não havia sido contratado para ensinar. O seu outro argumento foi que ele não queria que o mercado SAP crescesse muito e que ele tinha medo que o seu salário diminuisse devido ao aumento do número de consultores.

Vi comentário semelhante a esse no dieblinkenlights.com. De acordo com o autor, falando sobre a linguagem de programação Phyton, disse:

Eu a considero uma vantagem competitiva e se você, meu leitor, não souber do que se trata, melhor para mim.

Nesse projeto onde eu fui o coordenador, tive a satisfação de acompanhar o desenvolvimento profissional de alguns deles. Hoje, ainda converso com eles pelo MSN e fico orgulhoso quando leio “fulano @ USA” no nickname, indicando que está em algum projeto internacional.

Por que esse medo de ensinar? Então quer dizer que se eu ensinar outras pessoas, corro risco de “saturar” o mercado de profissionais e diminuir a minha “empregabilidade”?

Esse medo expressa uma mentalidade limitada. Aprendi que o meu sucesso não depende de uma ferramenta, linguagem ou plataforma. Essas vão e vêm a todo momento. O que relamente conta é qual é o seu comportamento profissional, ou seja, vontade de aprender coisas novas e procurar novos conhecimentos para se manter sempre a frente.

Eu realmente adoro ensinar e sou totalmente seguro da minha empregabilidade, pois ela não depende 100% da ferramenta ou linguagem de programação que uso. Tanto que hoje, além do meu trabalho como coordenador de desenvolvimento, sou intrutor ABAP. A vontade de ensinar, abriu-me novas portas além da consultoria.

Cuidado se você pensa como meu amigo, provavelmente logo será ultrapassado por esse consultor júnior que está do seu lado, afinal de contas, para o meu amigo, a sua única preocupação é:

… se meus concorrentes lerem e aprendam alguma coisa.

(Texto originalmente publicado no Papel no Vaso.)

Para criar algum objeto de dado no ABAP, você utiliza o comando DATA:

DATA v_texto(20) TYPE c VALUE ‘Objeto de Dados’.

Nessa declaração, é criado um objeto de dado (uma variável) v_texto, de comprimento 20 caracteres, com valor inicial “Objeto de Dados”.

Da mesma maneira para criar variáveis para operações matemáticas. Nesse caso, criamos variáveis do tipo numéricas, como no exemplo da listagem 1. A saída desse programa será:

Além dos tipos fundamentais da linguagem ABAP (veja mais na discussão desse post), podemos criar qualquer tipo de estrutura de dados, como por exemplo, workareas (área de trabalho) e internal tables (tabelas internas).

Veja a listagem 2. Esse programa irá calcular a diferença entre os campos SFLIGHT-SEATSMAX e SFLIGHT-SEATSOCC, de todo as linhas da tabela SFLIGHT. Como solução, criamos uma tabela interna que contenha as chaves da tabela SFLIGHT e também um o campo DIFF, quem contém a diferênça. Depois de todas as diferênças calculadas, imprimimos o resultado na saída do programa:

Na listagem 2, temos o uso da intrução TYPES, que é usada para criar tipos locais. Esses tipos somente podem ser utilizados no program no qual ele foi declarado, nesse caso ZTYPE1.

Como tipos locais, temos ty_s_sflight_dif, descreve uma estrutura de dados e ty_t_sflight_dif uma tabela interna com a estrutura de ty_s_sflight_dif. Para declararmos um tipo estruturado local, usando BEGIN OF / END OF.

Já os tipos globais podem ser provenientes do dicionário de dados do SAP. No programa ZTYPE1, usamos alguns tipos globais, como a tabela SFLIGH e alguns de seus campos, como sflight-carrid, sflight-connid etc. Os tipos globais podem ser usados (DATA… TYPE….) em qualquer programa o sistema, não há necessidade de nenhuma declaração no programa.

Quando usamos o TYPE com uma tabela transparente (tabela de banco de dados), o objeto de dado declarado será uma workarea, com a estrutura da tabela transparente. Por outro lado, quando usamos TYPE TABLE OF, estamos declarando uma tabela interna, com estrutura da tabela transparente.

Veja essa parte do programa ZTYPE1.

…

DATA: w_sflight TYPE sflight,mas
t_sflight TYPE TABLE OF sflight,
…

Temos uma workarea w_sflight e uma internal table t_sflight, com estrutura da tabela transparente SFLIGHT.

Por último, temos a seguinte declaração de variável:

DATA: v_diff LIKE w_sflight_dif-diff.

O LIKE indica que o objeto de dado declarado possui o mesmo tipo de outro objeto de dado já declarado, podendo este ser local ou global.

No caso acima, a variável v_diff, possui o mesmo tipo do campo da workarea w_sflight_dif-diff, ou seja, sflight-seatsmax.

Agora já sabemos quando usar TYPE, LIKE e BEGIN OF.

Esse modelo é utilizado em quase todos os exercícios e demonstrações do treinamento ABAP Workbench. Ele está disponível em todas as implementações e por isso é também usado em todos os exemplos do ABAP 101, salvo algum caso específico onde será necessário o uso de outras tabelas que não as do SAP Flight Model (SFM).

O SFM é composto por 4 tabelas transparentes, SCARR, SPFLI, SFLIGHT e SBOOK, com o seguinte relacionamento:

SCARR – Contém as informações das companhias aéreas, como código, nome etc.

SPFLI – Contém as rotas ou conecções oferecidas pelas companhias aéreas da tabela SCARR.

SFLIGHT – Contém os vôos que servem as rotas ou conecções da tabela SPFLI.

SBOOK – Contém as reservas para os vôos disponíveis na tabela SFLIGHT.

Nas várias versões de Application Server (WAS), incluindo minisap e Linux testdriver, essas tabelas já vem preenchidas com alguns dados, facilitando os exercícios.

Criar um programa ABAP que receba dois valores digitados pelo usuário e execute as quatro operações (adição, subtração, divisão e multiplicação) entre os dois valores.

Solução

Passo 1: Criar um programa executável chamado ZRCALC.

Passo 2: Definir os dois parâmetros nos quais o usuário irá utilizar para digitar os valores para o cálculo e também outro para indicar a operação desejada.

Passo 3: Definir uma variável local do tipo package, com duas casas decimais, para atribuir o valor calculado.

Passo 4: Definir uma estrutura CASE para escolher a operação escolhida pelo usuário.

Passo 5: Imprima o valor na saída do relatório.

Passo 6 (opcional): Inclua uma verificação se a operação escolhida é válida e se escolhido a divisão, verificar se o valor 2 é diferente de zero.

A listagem completa do programa, você encontra na seção Anexos.

Execução e Teste

Execute o programa (F8) e entre os seguintes na tela de seleção:

Execute o relátorio (F8) e você deverá obter uma saída parecida com a descrita abaixo:

Não esqueça de testar também o caso de uma operação inválida e um caso de divisão por zero.

Discussão

Nesse simples programa já vemos uma séria de elementos comuns em programa ABAP.

A primeira tela do programa é chamada de Tela de Seleção (Selection Screen), onde o usuário entra com os parâmetros que serão utilizados no relatório.

Um dos comandos usados para desenhar a tela de seleção é a instrução PARAMETERS. Usamos a forma mais simples, ainda há muitas outras possibilidades, que discutiremos mais a frente.

Declaramos variáveis com o comando DATA, indicando o nome da variável e o tipo. No nosso programa, usamos somente tipos primitivos, mas as possibilidades são ilimitadas, já que o ABAP Objects é fortemente tipado.

Os tipos padrão usados no ABAP Object são:

Tipos completos, sem necessidade de complemento:

• D – Data, no formato AAAAMMDD, com tamanho fixo de 8;
• T – Tempo, no formato HHMMSS, com tamanho fixo de 8;
• I – Inteiro, tamanho fixo de 4;
• F – Número de ponto flutuante, tamanho fixo de 8;
• STRING – Cadeia de caracteres, sem tamanho fixo;
• XSTRING – Cadeia de caracteres (Hexadecimal), sem tamanho fixo;

Tipos incompletos:

• C – Caracter string, podendo ter um complemento, por exemplo a intrução “DATA vl_var(4) TYPE C.“;
• N – Caracter numérico, com características de caracter e número;
• X – Seqüência de bytes (Hexadecimal);
• P – Package.

Para imprimir o valor na tela, usamos a instrução WRITE.

Usamos duas estruturas de decisão, a IF/ELSEIF/ELSE/ENDIF para verificar a operação escolhia e se há divisão por zero e CASE para escolher a operação.

Essa verificação de divisão por zero é necessária para evitar um possível erro em tempo de execução no caso de uma divisão por zero. Poderíamos também usar Exceptions, mas discutiremos no futuro.

No caso de uma operação inválida, também poderíamos usar a seguinte construção no lugar o IF:

CASE p_op.
…
WHEN OTHERS.
WRITE: ‘No valid operation’(iop).
ENDCASE.

A opção OTHERS significa que se nenhuma das alternativas do WHEN foi satisfeita, o opção OTHERS é executada. Então, se a operação escolhida não foi válida, o WHEN OTHERS é executado e a mensagem de erro é impressa na saída do programa.

A segunda tela, é onde é apresentado a saída do programa, comandos WRITE.

Anexos

Programa ZPCALC

Veja Também

Criando o Programa ABAP Hello World

Criar uma transação e associar o programa ZHELLO.

Solução

Vá até o Object Navigator (SE80). Na área de navegação, escolha o tipo de objeto Program. Digite o nome do programa ZHELLO e tecle enter. O programa ZHELLO aparacerá logo abaixo da área de navegação.

Clique com o botão direito e acesse Create -> Transaction:

Escolha um nome para a transação: ZTHELLO e escolha o tipo de transação Program and Selection Screen (Report Transaction):

Entre com o nome do programa, marcar todas as opções de GUI Support e salve:

Nota: Para finalizar a gravação, é necessário associar um pacote e uma change request.

Execução e Teste

Para testar, abra uma nova sessão (Menu: System -> Create Session) e na área de comando, entre com o nome da nova transação e tecle Enter:

Discussão

Existem diversos tipos de programas em ABAP, o programa que criamos é um relatório. Devemos escolher o tipo correcto de programa, caso contrário a transação não funcionará.

O número da screen do relatório é 1000, valor padrão para programas do tipo report.

É possível associar uma variante padrão, ou seja, quando a transação foi chamada, o programa será executado usando a variante especificada.

As opções de GUI Support, ativa o suporte da transação aos 3 tipos de SAP GUI, para HTML, Java e Windows.

Veja Também

Criando o Programa ABAP Hello World

Criar um programa ABAP e imprimir na tela “Hello World!”.

Solução

Vá até o Object Navigator (SE80). Na área de navegação, escolha o tipo de objeto Program. Digite o nome do programa ZHELLO e tecle enter.

Se não existir nenhum programa com o nome escolhido, será aberto uma nova janela perguntando se deseja criar.

Se você escolher a opção Yes, para criar um novo programa, outra janela é aberta. Tire o flag “Whit TOP-Include” e confirme. Será aberto mais outr janela para escolher os atributos do novo programa.

Entre com uma descrição e escolha o tipo de programa executável. Salve o programa em uma request e inclua o o seguinte código no programa:

Write 'Hello World!'.

Salve (Ctrl-S), ative (Shift-F8), e se não houver nenhum erro, execute o programa (F8).

Discussão

Esse é o programa mais simples em ABAP. Todos os objetos criados pelo usuário começam com Z ou Y (comumente usado para programas de sistema).

O comando write, é responsável por imprimir na saída do programa. Para ver maiores detalhes do comando, posicione o cursor sobre o comando e pressione “F1″.

Você também pode usar a transação SE38 para criar e modificar seus programas.

Veja Também

Criando Packages
Criando Change Requests de Workbench

Criar um package (pacote) ZP_ABAP101 para organizar os programas desenvolvidos do ABAP 101.

Solução

Vá até o Object Navigator (SE80). Na área de navegação, escolha o tipo de objeto Package. Digite o nome do package ZP_ABAP101 e tecle enter.

Se não existir nenhum pacote com o nome escolhido, será aberto uma nova janela perguntando se deseja criar.

Se você escolher a opção de criar um novo pacote, outra janela é aberta para escolher os atributos do novo pacote.

Escolha os atributos e salve o pacote em uma request.

Discussão

Os objetos SAP são organizados em packages ou pacotes. Geralmente, os projetos possuem um pacote por módulo (FI, MM, SD etc.). Também podemos ter vários pacotes para o mesmo módulo ou qualquer outro critério decidido pelo gerente ou lider do projeto.

Por exemplo, na criação de um novo ambiente, pode-se escolher quais pacotes farão parte do novo ambiente.

Ou seja, os packages são uma subdivisão lógica dos objetos dentro do repositório de objetos no sistema. O package o qual um objeto pertence, não tem a menor influência em seu funcionamento, sendo assim, um programa do módulo de FI, pode ser gravado em um pacote do módulo de MM por engano, sem que isso afete o funcionamento do programa.

Os atributos de um package podem ser:

Application Component – Determina qual application component dentro da hierarquia de componentes do repositóri, o pacote fará parte.

Software Component – Para desenvolvimentos customizados (que comecem com a letra Z), deve ser sempre “HOME”.

Transport Layer – Determina se o package pode ser transportado para outro ambiente e define qual é esse ambiente.

Package Type – Você pode escolher entre:

• Standard Package: pode conter objetos do repositório e outros packages;
• Main Package: contém apenas outros packages;
• Structure Package: contém apenas outros packages to tipo Main Package.

Veja Também

• Criando Change Requests de Workbench

Criar uma change request para ser usada por novos programas.

Solução

Acessar o Transport Organizer (SE09 ou SE10):

Clicar no botão Create ou F6, e escolher Workbench request:

Atributos da change request:

Change request criada:

Discussão

Os sistemas SAP são geralmente separados em um ambiente de desenvolvimento, outro de Qualidade e outro de Produção. Esses ambientes são totalmente independentes, na maior parte dos casos instalados em máquinas diferentes.

Para se transportar um objeto do repositório de um ambiente para o outro, usa-se as chamadas change requests. No dia-a-dia do desenvolvedor ABAP, as change requests mais usadas podem ser do tipo “Customazing” ou “Workbench”.

As change requests do tipo Customazing são reservadas para transportar conteúdo de tabelas do tipo customazing. Essas tabelas contém informações de configuração dos módulos funcionais (FI, MM, SD etc.) ou configurações do sistema.

Já as chage requests do tipo Workbench são para os outros tipos de objetos do repositório, como packages, tabelas transparentes e, no nosso problema, programas.

Os objetos são criados ou modificados no ambiente de desenvolvimento. Após os devidos testes, a request deve ser liberada (released) e o time que cuida da infraestrutura do sistema SAP, também conhecido como Basis, é responsável por efetuar o transporte para o sistema subsequente.

Veja Também

• Criando Change Request na Criação de um Objeto