Sintoma

compartilhar declaração de tabelas no include x para uso específico

Solução

Declarar tabelas no include /PWS/MZYCI023X01.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 07649 Data: 26/11/2008 Hora: 15:46:40

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 07649

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00075

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

COMPARTILHAR DECLARAÇÃO DE TABELAS NO INCLUDE X PARA USO ESPECÍFICO

----------------------------------------------------------------------------------------------------

Palavras Chave:

DECLARAÇÃO - TABELAS - INCLUDE X - EXIT - ESPECÍFICO

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI023TOP

REPS /PWS/MZYCI023X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023TOP

...

* >> Início da exclusão:

DATA: itab_zycit003a  LIKE itab_zycit003   OCCURS 0 WITH HEADER LINE.

TYPES: BEGIN OF msg_struc,

        tcode LIKE bdcmsgcoll-tcode,

        dyname LIKE bdcmsgcoll-dyname,

        dynumb LIKE bdcmsgcoll-dynumb,

        msgtyp LIKE bdcmsgcoll-msgtyp,

        msgspra LIKE bdcmsgcoll-msgspra,

        msgid LIKE bdcmsgcoll-msgid,

        msgnr LIKE bdcmsgcoll-msgnr,

        msgv1 LIKE balm-msgv1,

        msgv2 LIKE balm-msgv2,

        msgv3 LIKE balm-msgv3,

        msgv4 LIKE balm-msgv4,

        env LIKE bdcmsgcoll-env,

        fldname LIKE bdcmsgcoll-fldname,

       END OF msg_struc.

DATA: itab_zycit001    LIKE /pws/zycit001    OCCURS 0 WITH HEADER LINE,

      itab_zycit006    LIKE /pws/zycit006    OCCURS 0 WITH HEADER LINE,

      itab_zycit006a   LIKE /pws/zycit006    OCCURS 0 WITH HEADER LINE,

      itab_zycit013    LIKE /pws/zycie013    OCCURS 0 WITH HEADER LINE,

      itab_zycit014    LIKE /pws/zycie014    OCCURS 0 WITH HEADER LINE,

      itab_zycit019    LIKE /pws/zycit019    OCCURS 0 WITH HEADER LINE,

      itab_zycit020    LIKE /pws/zycit020    OCCURS 0 WITH HEADER LINE,

      itab_zycit031    LIKE /pws/zycit031    OCCURS 0 WITH HEADER LINE,

      itab_zycit036    LIKE /pws/zycit036    OCCURS 0 WITH HEADER LINE,

      itab_zycit039    LIKE /pws/zycit039    OCCURS 0 WITH HEADER LINE,

      itab_zycit041    LIKE /pws/zycit041    OCCURS 0 WITH HEADER LINE,

      itab_zycit049di  LIKE /pws/zycit049    OCCURS 0 WITH HEADER LINE,

      itab_zycit049di2 LIKE /pws/zycit049    OCCURS 0 WITH HEADER LINE,

      itab_zycit055    LIKE /pws/zycit055    OCCURS 0 WITH HEADER LINE,

      itab_zycit078    LIKE /pws/zycie078    OCCURS 0 WITH HEADER LINE,

      itab_zycit085    LIKE /pws/zycie085    OCCURS 0 WITH HEADER LINE,

      itab_zycit085a   LIKE /pws/zycit085    OCCURS 0 WITH HEADER LINE,

      itab_zycit086    LIKE /pws/zycie086    OCCURS 0 WITH HEADER LINE,

itab_zycit086a LIKE /pws/zycie086  OCCURS 0 WITH HEADER LINE,"#EC NEEDED

      itab_zycit087    LIKE /pws/zycie087    OCCURS 0 WITH HEADER LINE,

itab_zycit087a  LIKE /pws/zycie087 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit094    LIKE /pws/zycie094    OCCURS 0 WITH HEADER LINE,

itab_zycit095    LIKE /pws/zycie095    OCCURS 0 WITH HEADER LINE,

itab_zycit095a LIKE /pws/zycie095 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit096    LIKE /pws/zycie096    OCCURS 0 WITH HEADER LINE,

itab_zycit096a LIKE /pws/zycie096 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit100    LIKE /pws/zycie100a   OCCURS 0 WITH HEADER LINE,

itab_zycit100a   LIKE /pws/zycie100a   OCCURS 0 WITH HEADER LINE,

itab_zycit104    LIKE /pws/zycit104    OCCURS 0 WITH HEADER LINE,

itab_zycit107    LIKE /pws/zycit107    OCCURS 0 WITH HEADER LINE,

itab_zycit118a lIKE /pws/zycie118 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit118b   LIKE /pws/zycie118    OCCURS 0 WITH HEADER LINE,

itab_zycit121a LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit121b LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit121c LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit122  LIKE /pws/zycit122 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit123  LIKE /pws/zycit123 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit124a LIKE /pws/zycie124 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit124b   LIKE /pws/zycie124    OCCURS 0 WITH HEADER LINE,

itab_zycit134    LIKE /pws/zycit134    OCCURS 0 WITH HEADER LINE,

itab_zycit191    LIKE /pws/zycit191    OCCURS 0 WITH HEADER LINE,

itab_zycit177    LIKE /pws/zycit177    OCCURS 0 WITH HEADER LINE,

itab_zycit177t LIKE /pws/zycit177 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit195    LIKE /pws/zycit195    OCCURS 0 WITH HEADER LINE,

itab_zycit200    LIKE /pws/zycit200    OCCURS 0 WITH HEADER LINE,

itab_zycit200a LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit200b LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit255  LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit136  LIKE /pws/zycit136    OCCURS 0 WITH HEADER LINE,

rtexto         LIKE tline            OCCURS 0 WITH HEADER LINE,

rtextx         LIKE tline            OCCURS 0 WITH HEADER LINE,

rtextcompl     LIKE tline            OCCURS 0 WITH HEADER LINE,

itab_ekpo      LIKE ekpo             OCCURS 0 WITH HEADER LINE,

itab_bdc       LIKE bdcdata          OCCURS 0 WITH HEADER LINE,

itab_msg   TYPE msg_struc OCCURS 5 WITH HEADER LINE,"#EC NEEDED

rtext      LIKE tline     OCCURS 50 WITH HEADER LINE,

rtextc     LIKE tline     OCCURS 50 WITH HEADER LINE,

rtexti     LIKE tline     OCCURS 50 WITH HEADER LINE,

rtexta     LIKE tline     OCCURS 50 WITH HEADER LINE.

DATA:

itab_zycit003_t LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit078_t LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,

itab_zycit085_t LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit100_t LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE."#EC NEEDED

DATA: BEGIN OF itab_nrdi OCCURS 1,

        sign(1)   TYPE c,

        option(2) TYPE c,

        low       LIKE /pws/zycie085-nrseqdi,

        high      LIKE /pws/zycie085a-nrseqdi,

      END OF itab_nrdi.

DATA: BEGIN OF itab_dtreg OCCURS 1,

        sign(1)   TYPE c,

        option(2) TYPE c,

        low       LIKE /pws/zycie085-dtreg,

        high      LIKE /pws/zycie085a-dtreg,

      END OF itab_dtreg.

DATA: BEGIN OF it_verbl OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

        qtd_iten    LIKE /pws/zycie003-qtd_iten,

      END OF it_verbl.

DATA: BEGIN OF itab_zyglt100 OCCURS 10.

        INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

DATA: BEGIN OF itab_itc OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

         j_1bnbm     LIKE /pws/zycie003-j_1bnbm,

         adicao      LIKE /pws/zycie100a-adicao,

        matnr LIKE /pws/zycie003-matnr,

        mark,

        END OF itab_itc.

DATA: BEGIN OF it_status OCCURS 0,

        fcode LIKE rsmpe-func,

      END OF it_status.

DATA: BEGIN OF it_words OCCURS 0,

        word(65),

      END OF it_words.

DATA:

itab_ita       LIKE itab_it       OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit049b LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

itab_zycit049c LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

it_words_app   LIKE it_words      OCCURS 0 WITH HEADER LINE,

it_statu2      LIKE it_status     OCCURS 0 WITH HEADER LINE,

it_statu3      LIKE it_status     OCCURS 0 WITH HEADER LINE,

it_statu4      LIKE it_status     OCCURS 0 WITH HEADER LINE,

itab_zycit229  LIKE /pws/zycit229      OCCURS 0 WITH HEADER LINE,

itab_zycit263  LIKE /pws/zycit263      OCCURS 0 WITH HEADER LINE,

it_statu5      LIKE it_status     OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycit257 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit257.

DATA: END OF itab_zycit257.

DATA: BEGIN OF itab_zycit174 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit174.

DATA: END OF itab_zycit174.

DATA: BEGIN OF itab_zycit132 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit132.

DATA: END OF itab_zycit132.

DATA: BEGIN OF itab_zycit234 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit234.

DATA: END OF itab_zycit234.

DATA: BEGIN OF itab_zycit269 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit269.

DATA: END OF itab_zycit269.

DATA: BEGIN OF itab_lfa1 OCCURS 0,

      lifnr LIKE lfa1-lifnr,

      ktokk LIKE lfa1-ktokk,

      END OF itab_lfa1.

DATA: BEGIN OF itab_ekko OCCURS 0,

      ebeln  LIKE ekko-ebeln,

      bsart LIKE ekko-bsart,

      END OF itab_ekko.

DATA: BEGIN OF itab_t604f OCCURS 0,

      steuc LIKE t604f-steuc,

      obrigli LIKE t604f-/pws/obrigli,

      END OF itab_t604f.

DATA: BEGIN OF itab_li OCCURS 0,

     nrseqli  LIKE /pws/zycit079-nrseqli,

     ebeln    LIKE /pws/zycit079-ebeln,

     ebelp    LIKE /pws/zycit079-ebelp,

     steuc1   LIKE /pws/zycit078-steuc1,

     dtdef    LIKE /pws/zycit078-dtdef,

     dtvencto LIKE /pws/zycit078-dtvencto,

     nrseqdi  LIKE /pws/zycit078-nrseqdi,

     menge    LIKE /pws/zycit079-menge,

     END OF itab_li.

DATA: BEGIN OF itab_cta OCCURS 0.

        INCLUDE STRUCTURE /pws/zygle316.

DATA: END OF itab_cta.

DATA: BEGIN OF itab_desp_funcao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie353.

DATA: END OF itab_desp_funcao.

DATA: BEGIN OF itab_report_cliente OCCURS 20.

        INCLUDE STRUCTURE /pws/zycet079.

DATA: END OF itab_report_cliente.

DATA:

 it_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

 it_zycit100 LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,

 it_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE.

DATA:

  wa_zycit085   LIKE /pws/zycie085,

  wa_zycie085   LIKE /pws/zycie085,

  wa_zycit1223  LIKE /pws/zycit122,

  wa_zycit104   LIKE /pws/zycit104,

  wa_zycit136   LIKE /pws/zycit136,

  wa_it         LIKE itab_it,

  wa_itb        LIKE itab_it,

  wa_adr        LIKE it_alist,

  wa_lfa1       LIKE lfa1,

  wa_adrc       LIKE adrc,

  wa_zycbt007   LIKE /pws/zycbt007,

  t_reduzpis      LIKE /pws/zycit100-reduzida,

  t_reduzcofi     LIKE /pws/zycit100-reduzida,

  t_especipis     LIKE /pws/zycit100-aliqpis ,

  t_especicof     LIKE /pws/zycit100-aliqcof ,

  t_umpis         LIKE /pws/zycit003-meins   ,

  t_umcofi        LIKE /pws/zycit003-meins   ,

  xthead        LIKE thead,

  xtheadc       LIKE thead,

  xtheadi       LIKE thead,

  xtheada       LIKE thead,"#EC NEEDED

  xtheado       LIKE thead,

  wa_j_1bbranch LIKE j_1bbranch,

  wa_t001w      LIKE t001w,"#EC NEEDED

  wa_zycet050   LIKE /pws/zycet050,

  wa_zycit375   LIKE /pws/zycit375,

  wa_zycit094   LIKE /pws/zycit094,

  wa_zycit001   LIKE /pws/zycit001.

DATA: BEGIN OF wa_ad.

        INCLUDE STRUCTURE /pws/zycie116.

DATA:   identify(19),

      END OF wa_ad.

DATA:

* << Fim da exclusão

...

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

* >> Início da inclusão:

DATA: itab_zycit003a  LIKE itab_zycit003   OCCURS 0 WITH HEADER LINE.

TYPES: BEGIN OF msg_struc,

        tcode LIKE bdcmsgcoll-tcode,

        dyname LIKE bdcmsgcoll-dyname,

        dynumb LIKE bdcmsgcoll-dynumb,

        msgtyp LIKE bdcmsgcoll-msgtyp,

        msgspra LIKE bdcmsgcoll-msgspra,

        msgid LIKE bdcmsgcoll-msgid,

        msgnr LIKE bdcmsgcoll-msgnr,

        msgv1 LIKE balm-msgv1,

        msgv2 LIKE balm-msgv2,

        msgv3 LIKE balm-msgv3,

        msgv4 LIKE balm-msgv4,

        env LIKE bdcmsgcoll-env,

        fldname LIKE bdcmsgcoll-fldname,

       END OF msg_struc.

DATA: itab_zycit001    LIKE /pws/zycit001    OCCURS 0 WITH HEADER LINE,

itab_zycit006    LIKE /pws/zycit006    OCCURS 0 WITH HEADER LINE,

itab_zycit006a   LIKE /pws/zycit006    OCCURS 0 WITH HEADER LINE,

itab_zycit013    LIKE /pws/zycie013    OCCURS 0 WITH HEADER LINE,

itab_zycit014    LIKE /pws/zycie014    OCCURS 0 WITH HEADER LINE,

itab_zycit019    LIKE /pws/zycit019    OCCURS 0 WITH HEADER LINE,

itab_zycit020    LIKE /pws/zycit020    OCCURS 0 WITH HEADER LINE,

itab_zycit031    LIKE /pws/zycit031    OCCURS 0 WITH HEADER LINE,

itab_zycit036    LIKE /pws/zycit036    OCCURS 0 WITH HEADER LINE,

itab_zycit039    LIKE /pws/zycit039    OCCURS 0 WITH HEADER LINE,

itab_zycit041    LIKE /pws/zycit041    OCCURS 0 WITH HEADER LINE,

itab_zycit049di  LIKE /pws/zycit049    OCCURS 0 WITH HEADER LINE,

itab_zycit049di2 LIKE /pws/zycit049    OCCURS 0 WITH HEADER LINE,

itab_zycit055    LIKE /pws/zycit055    OCCURS 0 WITH HEADER LINE,

itab_zycit078    LIKE /pws/zycie078    OCCURS 0 WITH HEADER LINE,

itab_zycit085    LIKE /pws/zycie085    OCCURS 0 WITH HEADER LINE,

itab_zycit085a   LIKE /pws/zycit085    OCCURS 0 WITH HEADER LINE,

itab_zycit086    LIKE /pws/zycie086    OCCURS 0 WITH HEADER LINE,

itab_zycit086a LIKE /pws/zycie086  OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit087    LIKE /pws/zycie087    OCCURS 0 WITH HEADER LINE,

itab_zycit087a  LIKE /pws/zycie087 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit094    LIKE /pws/zycie094    OCCURS 0 WITH HEADER LINE,

itab_zycit095    LIKE /pws/zycie095    OCCURS 0 WITH HEADER LINE,

itab_zycit095a LIKE /pws/zycie095 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit096    LIKE /pws/zycie096    OCCURS 0 WITH HEADER LINE,

itab_zycit096a LIKE /pws/zycie096 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit100    LIKE /pws/zycie100a   OCCURS 0 WITH HEADER LINE,

itab_zycit100a   LIKE /pws/zycie100a   OCCURS 0 WITH HEADER LINE,

itab_zycit104    LIKE /pws/zycit104    OCCURS 0 WITH HEADER LINE,

itab_zycit107    LIKE /pws/zycit107    OCCURS 0 WITH HEADER LINE,

itab_zycit118a LIKE /pws/zycie118 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit118b   LIKE /pws/zycie118    OCCURS 0 WITH HEADER LINE,

itab_zycit121a LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit121b LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit121c LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit122  LIKE /pws/zycit122 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit123  LIKE /pws/zycit123 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit124a LIKE /pws/zycie124 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit124b   LIKE /pws/zycie124    OCCURS 0 WITH HEADER LINE,

itab_zycit134    LIKE /pws/zycit134    OCCURS 0 WITH HEADER LINE,

itab_zycit191    LIKE /pws/zycit191    OCCURS 0 WITH HEADER LINE,

itab_zycit177    LIKE /pws/zycit177    OCCURS 0 WITH HEADER LINE,

itab_zycit177t LIKE /pws/zycit177 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit195    LIKE /pws/zycit195    OCCURS 0 WITH HEADER LINE,

itab_zycit200    LIKE /pws/zycit200    OCCURS 0 WITH HEADER LINE,

itab_zycit200a LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit200b LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit255  LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit136  LIKE /pws/zycit136    OCCURS 0 WITH HEADER LINE,

rtexto         LIKE tline            OCCURS 0 WITH HEADER LINE,

rtextx         LIKE tline            OCCURS 0 WITH HEADER LINE,

rtextcompl     LIKE tline            OCCURS 0 WITH HEADER LINE,

itab_ekpo      LIKE ekpo             OCCURS 0 WITH HEADER LINE,

itab_bdc       LIKE bdcdata          OCCURS 0 WITH HEADER LINE,

itab_msg   TYPE msg_struc OCCURS 5 WITH HEADER LINE,        "#EC NEEDED

rtext      LIKE tline     OCCURS 50 WITH HEADER LINE,

rtextc     LIKE tline     OCCURS 50 WITH HEADER LINE,

rtexti     LIKE tline     OCCURS 50 WITH HEADER LINE,

rtexta     LIKE tline     OCCURS 50 WITH HEADER LINE.

DATA:

itab_zycit003_t LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit078_t LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,

itab_zycit085_t LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit100_t LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE."#EC NEEDED

DATA: BEGIN OF itab_nrdi OCCURS 1,

        sign(1)   TYPE c,

        option(2) TYPE c,

        low       LIKE /pws/zycie085-nrseqdi,

        high      LIKE /pws/zycie085a-nrseqdi,

      END OF itab_nrdi.

DATA: BEGIN OF itab_dtreg OCCURS 1,

        sign(1)   TYPE c,

        option(2) TYPE c,

        low       LIKE /pws/zycie085-dtreg,

        high      LIKE /pws/zycie085a-dtreg,

      END OF itab_dtreg.

DATA: BEGIN OF it_verbl OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

        qtd_iten    LIKE /pws/zycie003-qtd_iten,

      END OF it_verbl.

DATA: BEGIN OF itab_zyglt100 OCCURS 10.

        INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

DATA: BEGIN OF itab_itc OCCURS 0,

         nrseq       LIKE /pws/zycie003-nrseq,

         ebeln       LIKE /pws/zycie003-ebeln,

         ebelp       LIKE /pws/zycie003-ebelp,

         j_1bnbm     LIKE /pws/zycie003-j_1bnbm,

         adicao      LIKE /pws/zycie100a-adicao,

        matnr LIKE /pws/zycie003-matnr,

        mark,

        END OF itab_itc.

DATA: BEGIN OF it_status OCCURS 0,

        fcode LIKE rsmpe-func,

      END OF it_status.

DATA: BEGIN OF it_words OCCURS 0,

        word(65),

      END OF it_words.

DATA:

itab_ita       LIKE itab_it       OCCURS 0 WITH HEADER LINE,"#EC NEEDED

itab_zycit049b LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

itab_zycit049c LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,

it_words_app   LIKE it_words      OCCURS 0 WITH HEADER LINE,

it_statu2      LIKE it_status     OCCURS 0 WITH HEADER LINE,

it_statu3      LIKE it_status     OCCURS 0 WITH HEADER LINE,

it_statu4      LIKE it_status     OCCURS 0 WITH HEADER LINE,

itab_zycit229  LIKE /pws/zycit229      OCCURS 0 WITH HEADER LINE,

itab_zycit263  LIKE /pws/zycit263      OCCURS 0 WITH HEADER LINE,

it_statu5      LIKE it_status     OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycit257 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit257.

DATA: END OF itab_zycit257.

DATA: BEGIN OF itab_zycit174 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit174.

DATA: END OF itab_zycit174.

DATA: BEGIN OF itab_zycit132 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit132.

DATA: END OF itab_zycit132.

DATA: BEGIN OF itab_zycit234 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit234.

DATA: END OF itab_zycit234.

DATA: BEGIN OF itab_zycit269 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit269.

DATA: END OF itab_zycit269.

DATA: BEGIN OF itab_lfa1 OCCURS 0,

      lifnr LIKE lfa1-lifnr,

      ktokk LIKE lfa1-ktokk,

      END OF itab_lfa1.

DATA: BEGIN OF itab_ekko OCCURS 0,

      ebeln  LIKE ekko-ebeln,

      bsart LIKE ekko-bsart,

      END OF itab_ekko.

DATA: BEGIN OF itab_t604f OCCURS 0,

      steuc LIKE t604f-steuc,

      obrigli LIKE t604f-/pws/obrigli,

      END OF itab_t604f.

DATA: BEGIN OF itab_li OCCURS 0,

     nrseqli  LIKE /pws/zycit079-nrseqli,

     ebeln    LIKE /pws/zycit079-ebeln,

     ebelp    LIKE /pws/zycit079-ebelp,

     steuc1   LIKE /pws/zycit078-steuc1,

     dtdef    LIKE /pws/zycit078-dtdef,

     dtvencto LIKE /pws/zycit078-dtvencto,

     nrseqdi  LIKE /pws/zycit078-nrseqdi,

     menge    LIKE /pws/zycit079-menge,

     END OF itab_li.

DATA: BEGIN OF itab_cta OCCURS 0.

        INCLUDE STRUCTURE /pws/zygle316.

DATA: END OF itab_cta.

DATA: BEGIN OF itab_desp_funcao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie353.

DATA: END OF itab_desp_funcao.

DATA: BEGIN OF itab_report_cliente OCCURS 20.

        INCLUDE STRUCTURE /pws/zycet079.

DATA: END OF itab_report_cliente.

DATA:

 it_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,  "#EC NEEDED

 it_zycit100 LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,

 it_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE.

DATA:

  wa_zycit085   LIKE /pws/zycie085,

  wa_zycie085   LIKE /pws/zycie085,

  wa_zycit1223  LIKE /pws/zycit122,

  wa_zycit104   LIKE /pws/zycit104,

  wa_zycit136   LIKE /pws/zycit136,

  wa_it         LIKE itab_it,

  wa_itb        LIKE itab_it,

  wa_adr        LIKE it_alist,

  wa_lfa1       LIKE lfa1,

  wa_adrc       LIKE adrc,

  wa_zycbt007   LIKE /pws/zycbt007,

  t_reduzpis      LIKE /pws/zycit100-reduzida,

  t_reduzcofi     LIKE /pws/zycit100-reduzida,

  t_especipis     LIKE /pws/zycit100-aliqpis ,

  t_especicof     LIKE /pws/zycit100-aliqcof ,

  t_umpis         LIKE /pws/zycit003-meins   ,

  t_umcofi        LIKE /pws/zycit003-meins   ,

  xthead        LIKE thead,

  xtheadc       LIKE thead,

  xtheadi       LIKE thead,

  xtheada       LIKE thead,                                 "#EC NEEDED

  xtheado       LIKE thead,

  wa_j_1bbranch LIKE j_1bbranch,

  wa_t001w      LIKE t001w,                                 "#EC NEEDED

  wa_zycet050   LIKE /pws/zycet050,

  wa_zycit375   LIKE /pws/zycit375,

  wa_zycit094   LIKE /pws/zycit094,

  wa_zycit001   LIKE /pws/zycit001.

DATA: BEGIN OF wa_ad.

        INCLUDE STRUCTURE /pws/zycie116.

DATA:   identify(19),

      END OF wa_ad.

* << Fim da inclusão

DATA: END OF COMMON PART.