Include - Z_INCL_DECLARA_DEFAULT

  *&---------------------------------------------------------------------*
"  Aee gente, hoje eu acordei com mou preguiça de fika fazendo as mesmas
" declarações e selects portanto estarei mostrando como faz um include,
" éééé... vcs vão ver como eh facil.
"  O objetivo das includes e elas virarem objetos para uso de varios
" programas ao mesmo tempo, portanto depois de criados (caso esteja sendo
" usados pro programas que vc não tem o controle ) tentem não mexer neles
" o maximo possivel.
"  Pra faze eh muito facil, soh escrever 'INCLUDE' e escrever o nome da
" da mesma, ai é soh clicar duas vezes e pronto.

" A include criada abaixo será uma declaração de tipos, estruturas e
" tabelas internas padrão pra que eu não precisemos declarar isso toda hora.

" Include -- Z_INCL_DECLARA_DEFAULT "

" Tabelas transparentes ....
TABLES : mara
  .
" Tipos .....
TYPES :
" Tabela de clientes ..
  BEGIN OF ty_mara,
    matnr TYPE mara-matnr,
    ersda TYPE mara-ersda,
    ernam TYPE mara-ernam,
  END OF   ty_mara,

  BEGIN OF ty_makt,
    matnr TYPE makt-matnr,
    spras TYPE makt-spras,
    maktx TYPE makt-maktx,
  END OF   ty_makt,

  BEGIN OF ty_mard,
    matnr TYPE mard-matnr,
    werks TYPE mard-werks,
    lgort TYPE mard-lgort,
    pstat TYPE mard-pstat,
  END OF   ty_mard,

  BEGIN OF ty_outtab,
    check TYPE c,
    matnr TYPE mara-matnr,
    ersda TYPE mara-matnr,
    maktx TYPE makt-maktx,
    werks TYPE mard-werks,
    lgort TYPE mard-lgort,
    pstat TYPE mard-pstat,
  END OF ty_outtab
       .

" Estruturas ....
DATA : st_mara    TYPE ty_mara,
       st_makt    TYPE ty_makt,
       st_mard    TYPE ty_mard,
       st_outtab  TYPE ty_outtab,
       st_outtab2 TYPE ty_outtab
      .

" Tabelas internas ....
DATA : it_mara    TYPE TABLE OF ty_mara,
       it_makt    TYPE TABLE OF ty_makt,
       it_mard    TYPE TABLE OF ty_mard,
       it_outtab  TYPE TABLE OF ty_outtab,
       it_outtab2 TYPE TABLE OF ty_outtab
      .

" Tela de seleção .....
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS : so_matnr FOR  mara-matnr.
PARAMETERS :     p_spras  TYPE makt-spras,
                 p_werks  TYPE mard-werks,
                 p_lgort  TYPE mard-lgort
            .
SELECTION-SCREEN END OF BLOCK b1.