Sintoma

Necessária declaração de tabelas em área compartilhada para utilização em exit de específico.

Solução

Declarar tabelas utilizadas no batch input da f-43 para utilização em programas específico.

Informações Complementares

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

Nota Número 03092 Data: 13/02/2007 Hora: 15:10:52

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

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

Nota Número              : 03092

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00151

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DECLARAÇÃO DE TABELAS UTILIZADAS EM BATCH INPUT DA FATURA

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

Palavras Chave:

DECLARAÇÃO - TABELAS EXIT - BATCH INPUT - FATURA - F-43

COMMON PART - COMPARTILHAMENTO

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

Objetos da nota:

REPS /PWS/MZYCI003TOP

REPS /PWS/MZYCI003X01

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

Modificações efetuadas em REPS /PWS/MZYCI003TOP

...

DATA  BEGIN OF itab_serv OCCURS 0.

DATA: nrseq      LIKE /pws/zycit001-nrseq,

      modalidade LIKE /pws/zycit001-modalidade.

DATA  END   OF itab_serv.

DATA: BEGIN OF xthead OCCURS 50.

        INCLUDE STRUCTURE thead.

DATA: END OF xthead.

DATA: BEGIN OF itab_cta OCCURS 0.

        INCLUDE STRUCTURE /pws/zygle316.

DATA: END OF itab_cta.

* >> Início da exclusão:

DATA:

      itab_zycbt034  LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,

      itab_zycbt013  LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

      itab_zycbt012  LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,

      itab_zycie033  LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,

      itab_zycit034  LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,

      itab_zycet004  LIKE /pws/zycet004 OCCURS 10 WITH HEADER LINE,

      itab_zycee005  LIKE /pws/zycee005 OCCURS 10 WITH HEADER LINE,

      itab_zycit032  LIKE /pws/zycit032 OCCURS 10 WITH HEADER LINE,

      itab_zycet005  LIKE /pws/zycet005 OCCURS 10 WITH HEADER LINE,

      itab_zycit031  LIKE /pws/zycie031 OCCURS 10 WITH HEADER LINE,

      itab_zycbt036  LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE.

* << Fim da exclusão

DATA: BEGIN OF itab_ekpo_s OCCURS 0,

         ebeln LIKE ekpo-ebeln,

         ebelp LIKE ekpo-ebelp,

         matnr LIKE ekpo-matnr,

      END OF itab_ekpo_s.

DATA: BEGIN OF itab_serie OCCURS 0,

        ebeln      LIKE ekpo-ebeln,

        ebelp      LIKE ekpo-ebelp,

        matnr      LIKE marc-matnr,

        sernp      LIKE marc-sernp.

...

...

        INCLUDE STRUCTURE /pws/zycit036.

DATA: END OF itab_zycit036_s.

DATA: BEGIN OF itab_frete OCCURS 0.

DATA: total LIKE /pws/zycit100-vlfre,

      ebeln LIKE /pws/zycit003-ebeln,

      ebelp LIKE /pws/zycit003-ebelp.

DATA: END OF itab_frete.

DATA: BEGIN OF itab_zycit039 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit039.

DATA: END OF itab_zycit039.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycbt035_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA  knttp  LIKE ekpo-knttp.

DATA: END OF itab_zycbt035_aux.

DATA  BEGIN OF itab_zycit006_atual OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit006.

DATA  END   OF itab_zycit006_atual.

DATA: BEGIN OF itab_zycbt035_aux2 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA  knttp  LIKE ekpo-knttp.

DATA: END OF itab_zycbt035_aux2.

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF itab_contas.

* << Fim da exclusão

DATA: BEGIN OF itab_zycit036 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit036.

DATA: total LIKE /pws/zycit036-vlreal.

DATA: END OF itab_zycit036.

DATA itab_zycit036_aux LIKE itab_zycit036 OCCURS 0 WITH HEADER LINE.

DATA itab_zycit036_aux2 LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycit130 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit130.

DATA: saldo     LIKE /pws/zycit130-montante,

      motivo2  LIKE t030-bwmod,

...

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

Modificações efetuadas em REPS /PWS/MZYCI003X01

...

  v_nrseq LIKE /pws/zycit001-nrseq      ,

  v_awkey LIKE bkpf-awkey               ,

  v_existe_lc  TYPE c                   ,

  v_descfab(01)                   ,

  v_recebi,

  v_dtvencto LIKE /pws/zycie006-dtvencto,

  v_obrig,

  v_belnr_ant LIKE /pws/zycie006-belnr_p,

  e_estorno(10).

data: vsubrc type sy-subrc.

* >> Início da inclusão:

DATA:

      itab_zycbt034  LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,

      itab_zycbt013  LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

      itab_zycbt012  LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,

      itab_zycie033  LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,

      itab_zycit034  LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,

      itab_zycet004  LIKE /pws/zycet004 OCCURS 10 WITH HEADER LINE,

      itab_zycee005  LIKE /pws/zycee005 OCCURS 10 WITH HEADER LINE,

      itab_zycit032  LIKE /pws/zycit032 OCCURS 10 WITH HEADER LINE,

      itab_zycet005  LIKE /pws/zycet005 OCCURS 10 WITH HEADER LINE,

      itab_zycit031  LIKE /pws/zycie031 OCCURS 10 WITH HEADER LINE,

      itab_zycbt036  LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_zycbt035_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA  knttp  LIKE ekpo-knttp.

DATA: END OF itab_zycbt035_aux.

DATA  BEGIN OF itab_zycit006_atual OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit006.

DATA  END   OF itab_zycit006_atual.

DATA: BEGIN OF itab_zycbt035_aux2 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA  knttp  LIKE ekpo-knttp.

DATA: END OF itab_zycbt035_aux2.

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF itab_contas.

* << Fim da inclusão

DATA: END OF COMMON PART.