Sintoma

Várias declarações nos programas estão dando erro na versão 6.0 do SAP.

Solução

Adequar os programas do CE a versão 6.0 SAP

Informações Complementares

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

Nota Número 02026 Data: 01/09/2006 Hora: 10:15:47

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

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

Nota Número              : 02026

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VÁRIAS DECLARAÇÕES NOS PROGRAMAS ESTÃO DANDO ERRO NA VERSÃO 6.0 DO SAP.

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

Palavras Chave:

VERSÃO 6.0 - ERROS UNICODE - AJUSTES VARIÁVEIS

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_J1B1

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

FUNC /PWS/ZYCI_TRANSACAO_J1B2

FUNC /PWS/ZYCI_TRANSACAO_J1B3

RELE F6DK936953 20060901 100648 PWSCI

REPS /PWS/LZYCIGF5F01

REPS /PWS/ZYGLR025

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1

FUNCTION /PWS/ZYCI_TRANSACAO_J1B1.

  TABLES:

    J_1BATL1T,

    J_1BATL2T.

  DATA:

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

    V_DATA-DOC(10)   TYPE C,

    V_DATA-PST(10)   TYPE C,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

    V_DATA_DOC(10)   TYPE C,

    V_DATA_PST(10)   TYPE C,

* << Fim da inclusão

    V_BUKRS          LIKE T001-BUKRS,

    V_REFER          LIKE J_1BAM-SCONRF VALUE '0005',

    V_STRING         LIKE J_1BAM-SCRCON,

    V_NETPR(16)      TYPE C,

    V_NETFRE(16)     TYPE C,

...

...

                                           T_CAMPOS

                                           ITAB_OCULTO

                                    USING  V_STRING.

  WRITE:

    T_DADOS-BUKRS    TO V_BUKRS,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

    T_DADOS-DOCDAT   TO V_DATA-DOC,

    T_DADOS-PSTDAT   TO V_DATA-PST,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

    T_DADOS-DOCDAT   TO V_DATA_DOC,

    T_DADOS-PSTDAT   TO V_DATA_PST,

* << Fim da inclusão

    T_DADOS-NETPR    TO V_NETPR,

    T_DADOS-NTGEW    TO V_NTGEW unit t_dados-gewei,

    T_DADOS-BRGEW    TO V_BRGEW unit t_dados-gewei.

    PERFORM BDC_TELA USING 'SAPMJ1B1' '0900'.

    PERFORM BDC_CAMPO  USING:

...

...

      PERFORM BDC_CAMPO USING 'J_1BDYDOC-PARVW'  T_DADOS-PARVW.

    ENDIF.

    PERFORM BDC_CAMPO USING:

           'J_1BDYDOC-PARID'    T_DADOS-PARID,

           'BDC_OKCODE'         '/00'.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

    CONCATENATE SY-DATUM+6(2) SY-DATUM+4(2) SY-DATUM(4) INTO V_DATA-DOC.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

  CONCATENATE SY-DATUM+6(2) SY-DATUM+4(2) SY-DATUM(4) INTO V_DATA_DOC.

* << Fim da inclusão

    PERFORM BDC_TELA USING 'SAPLJ1BB'  '0100'.

    READ TABLE ITAB_OCULTO WITH KEY CAMPO = 'J_1BDYDOC-DOCDAT'.

    IF SY-SUBRC <> 0.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

      PERFORM BDC_CAMPO USING 'J_1BDYDOC-DOCDAT'  V_DATA-DOC.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

      PERFORM BDC_CAMPO USING 'J_1BDYDOC-DOCDAT'  V_DATA_DOC.

* << Fim da inclusão

    ENDIF.

    READ TABLE ITAB_OCULTO WITH KEY CAMPO = 'J_1BDYDOC-NFNUM'.

    IF SY-SUBRC <> 0 and v_refer ne '0004'.

     PERFORM BDC_CAMPO USING 'J_1BDYDOC-NFNUM' T_DADOS-NFNUM.

     PERFORM BDC_CAMPO USING 'J_1BDYDOC-SERIES' T_DADOS-SERIES.

     PERFORM BDC_CAMPO USING 'J_1BDYDOC-SUBSER' T_DADOS-SUBSER.

    ENDIF.

    READ TABLE ITAB_OCULTO WITH KEY CAMPO = 'J_1BDYDOC-PSTDAT'.

    IF SY-SUBRC <> 0.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

      PERFORM BDC_CAMPO USING 'J_1BDYDOC-PSTDAT'  V_DATA-PST.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1

      PERFORM BDC_CAMPO USING 'J_1BDYDOC-PSTDAT'  V_DATA_PST.

* << Fim da inclusão

    ENDIF.

    IF NOT T_DADOS-INCO1 IS INITIAL.

      PERFORM BDC_CAMPO USING 'J_1BDYDOC-INCO1'  T_DADOS-INCO1.

    ENDIF.

    IF NOT T_DADOS-INCO2 IS INITIAL.

...

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

FUNCTION /pws/zyci_transacao_j1b1n.

  DATA:

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

    v_data-doc(10)   TYPE c,

    v_data-pst(10)   TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

    v_data_doc(10)   TYPE c,

    v_data_pst(10)   TYPE c,

* << Fim da inclusão

    v_refer          LIKE j_1bam-sconrf VALUE '0005',

    v_string         LIKE j_1bam-scrcon,

    v_netfre(15)     TYPE c,

    v_netins(15)     TYPE c,

    v_netoth(15)     TYPE c,

...

...

    v_werks(20),

    v_taxtyp(20),

    v_rate(20),

    v_message(73),

    v_linesel(11),

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

    v_t_itens-netpr(15)  TYPE n,

    v_t_itens-menge(15)  TYPE c,

    v_t_itens-othbas(15) TYPE c,

    v_t_itens-rate(06)   TYPE c,

* << Fim da exclusão

    v_lines          LIKE sy-tabix,

    v_cont(02)       TYPE n,

    v_tabix          LIKE sy-tabix,

    v_msgicms(02)    TYPE c,

    v_msgipi(02)     TYPE c,

...

...

    PERFORM trata_campo_obrigatorio TABLES t_dados

                                           t_campos

                                           itab_oculto

                                    USING  v_string.

    WRITE: t_dados-bukrs    TO  v_bukrs,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

           t_dados-docdat   TO  v_data-doc,

           t_dados-pstdat   TO  v_data-pst,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

           t_dados-docdat   TO  v_data_doc,

           t_dados-pstdat   TO  v_data_pst,

* << Fim da inclusão

           t_dados-netpr    TO  v_netpr,

           t_dados-ntgew    TO  v_ntgew UNIT t_dados-gewei,

           t_dados-brgew    TO  v_brgew UNIT t_dados-gewei.

    PERFORM bdc_tela USING 'SAPMJ1B1' '0900'.

    READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-BRANCH'.

...

...

    IF sy-subrc <> 0 AND v_refer NE '0004'.

      PERFORM bdc_campo USING:

             'J_1BDYDOC-NFNUM'         t_dados-nfnum,

             'J_1BDYDOC-SERIES'        t_dados-series,

             'J_1BDYDOC-SUBSER'        t_dados-subser,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

             'J_1BDYDOC-DOCDAT'        v_data-doc,

             'J_1BDYDOC-PSTDAT'        v_data-pst,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

             'J_1BDYDOC-DOCDAT'        v_data_doc,

             'J_1BDYDOC-PSTDAT'        v_data_pst,

* << Fim da inclusão

             'BDC_OKCODE'              '=TAB5'.

    ELSE.

      PERFORM bdc_campo  USING:

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

             'J_1BDYDOC-DOCDAT'        v_data-doc,

             'J_1BDYDOC-PSTDAT'        v_data-pst,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

             'J_1BDYDOC-DOCDAT'        v_data_doc,

             'J_1BDYDOC-PSTDAT'        v_data_pst,

* << Fim da inclusão

             'BDC_OKCODE'              '=TAB5'.

    ENDIF.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    PERFORM bdc_campo USING: 'J_1BDYDOC-TRATY' t_dados-traty,

                             'J_1BDYDOC-SHPMRK' t_dados-shpmrk,

...

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B2

FUNCTION /PWS/ZYCI_TRANSACAO_J1B2.

  DATA:

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B2

    V_DATA-DOC(10)   TYPE C,

    V_DATA-PST(10)   TYPE C,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B2

     V_DATA_PST(10)   TYPE C,

* << Fim da inclusão

    V_BUKRS          LIKE T001-BUKRS,

    V_REFER          LIKE J_1BAM-SCONRF VALUE '0005',

    V_STRING         LIKE J_1BAM-SCRCON,

    V_NRMSG          TYPE I VALUE 0,

    V_TRANSACAO(4)   TYPE C,

...

...

      T_CAMPOS-DESCRICAO = TEXT-033.

      APPEND T_CAMPOS.

      RAISE CAMPO_EM_BRANCO.

    ENDIF.

  WRITE:

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B2

    T_DADOS-PSTDAT   TO V_DATA-PST.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B2

    T_DADOS-PSTDAT   TO V_DATA_PST.

* << Fim da inclusão

    PERFORM BDC_TELA  USING 'SAPMJ1B1' '1100'.

    PERFORM BDC_CAMPO USING 'J_1BDYDOC-DOCNUM' T_DADOS-DOCNUM.

    PERFORM BDC_CAMPO USING 'BDC_OKCODE'       '/00'.

    PERFORM BDC_TELA  USING 'SAPLJ1BB'  '0100'.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B2

    PERFORM BDC_CAMPO USING 'J_1BDYDOC-PSTDAT' V_DATA-PST.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B2

    PERFORM BDC_CAMPO USING 'J_1BDYDOC-PSTDAT' V_DATA_PST.

* << Fim da inclusão

    PERFORM BDC_CAMPO USING 'BDC_OKCODE'       '/00'.

    PERFORM BDC_CAMPO USING 'BDC_OKCODE'       '=SAVE'.

    V_TRANSACAO = 'J1B2'.

    V_UPDATE    = 'S'.

    V_MSGID     = '8B'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B3

FUNCTION /PWS/ZYCI_TRANSACAO_J1B3.

  DATA:

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B3

    V_DATA-DOC(10)   TYPE C,

    V_DATA-PST(10)   TYPE C,

* << Fim da exclusão

    V_BUKRS          LIKE T001-BUKRS,

    V_REFER          LIKE J_1BAM-SCONRF VALUE '0005',

    V_STRING         LIKE J_1BAM-SCRCON,

    V_NRMSG          TYPE I VALUE 0,

    V_TRANSACAO(4)   TYPE C,

...

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

Modificações efetuadas em RELE F6DK936953 20060901 100648 PWSCI

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

Modificações efetuadas em REPS /PWS/LZYCIGF5F01

* >> Início da exclusão: FORM TRATAR_DECIMAIS

form tratar_decimais using    p_it_zycit199-waers

* << Fim da exclusão

* >> Início da inclusão: FORM TRATAR_DECIMAIS

form tratar_decimais using

                              p_it_zycit199_waers

* << Fim da inclusão

                              p_tcurx

                     changing p_v_netpr.

DATA: P_MOEDA LIKE /pws/ZYCIT005-WAERSSEG,

      P_VALOR LIKE /pws/ZYCIT005-VLSEG.

* >> Início da exclusão: FORM TRATAR_DECIMAIS

  select single * from tcurx where currkey = P_IT_ZYCIT199-WAERS.

* << Fim da exclusão

* >> Início da inclusão: FORM TRATAR_DECIMAIS

  select single * from tcurx where currkey = P_IT_ZYCIT199_WAERS.

* << Fim da inclusão

  if sy-subrc <> 0.

    tcurx-currdec = 2.

  endif.

  P_V_NETPR = P_V_NETPR / ( 10 ** ( tcurx-currdec - 2 ) ).

endform.

...

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

Modificações efetuadas em REPS /PWS/ZYGLR025

...

      END   OF itab_saida.

DATA: BEGIN OF itab_saida_serv OCCURS 0,

        campo(242)         TYPE c,

      END OF itab_saida_serv.

TYPE-POOLS:    sydes.

* >> Início da exclusão:

DATA: t_sydes  TYPE sydes_desc,

      wa_types TYPE sydes_typeinfo,

* << Fim da exclusão

* >> Início da inclusão:

DATA:

* << Fim da inclusão

      v_len    TYPE i.

CONSTANTS:  c_sapi01 LIKE t001z-party VALUE 'SAPI01',

        c_1(01)  TYPE n           VALUE '1',

        c_2(02)  TYPE n           VALUE '2',

* >> Início da exclusão:

        c_br(02) TYPE c           VALUE 'BR',

        c_asc(3)    TYPE c VALUE 'ASC'.

* << Fim da exclusão

* >> Início da inclusão:

        c_br(02) TYPE c           VALUE 'BR'.

* << Fim da inclusão

DATA: v_tabix           LIKE sy-tabix      ,

* >> Início da exclusão:

      v_tamanho          TYPE p,

* << Fim da exclusão

      v_cont_lote(05)    TYPE n        VALUE 0,

...

...

      v_lenght(2)     TYPE n,

      v_flag(1)       TYPE n,

      v_cod_lote(4)   TYPE n,

      v_bukrs         LIKE /pws/zycbt134-bukrs,

      v_hbkid         LIKE /pws/zycbt134-hbkid,

* >> Início da exclusão:

      v_msg(100)      TYPE c,

* << Fim da exclusão

      v_exit(1)       TYPE c,

      v_arquivo TYPE string.

DATA: t_prog(72)     TYPE c OCCURS 1000 WITH HEADER LINE,

      w_prog         LIKE trdir-name.

DATA: wa_j_1bbranch LIKE j_1bbranch.

...

...

    v_siz = v_siz * v_len.

    IF p_arq+1(2) EQ ':\'.

      WRITE p_arq TO p_arq RIGHT-JUSTIFIED.

      IF p_arq+124(1) NE '.'.

        SHIFT p_arq LEFT DELETING LEADING space.

* >> Início da exclusão: FORM GERA_ARQUIVO

        CONCATENATE p_arq '.

                            txt' INTO p_arq.

* << Fim da exclusão

* >> Início da inclusão: FORM GERA_ARQUIVO

        CONCATENATE p_arq '.txt' INTO p_arq.

* << Fim da inclusão

        WRITE p_arq TO p_arq RIGHT-JUSTIFIED.

      ENDIF.

      IF p_arq+123(1) EQ '\'.

        MESSAGE i015 WITH text-003.

        MOVE p_arq(124) TO p_arq.

...

...

FORM gera_programa_opendataset

                      TABLES p_itab_saida_serv STRUCTURE itab_saida_serv

                      USING p_dir_unix.

  DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE.

  DATA: w_prog     LIKE trdir-name.

* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET

  APPEND 'report sy-repid MESSAGE-ID /pws/zycmm.'

                                                            TO t_prog.

* << Fim da exclusão

* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET

  APPEND 'report sy-repid MESSAGE-ID /pws/zycmm.'           TO t_prog.

* << Fim da inclusão

  APPEND '    DATA: BEGIN OF itab_saida_serv OCCURS 0,'     TO t_prog.

  APPEND '      campo(242)         TYPE c,'                 TO t_prog.

  APPEND '    END OF itab_saida_serv.'                      TO t_prog.

* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET

  APPEND

  'form f_exec_open tables p_itab_saida_serv structure itab_saida_serv'

                                                            TO t_prog.

* << Fim da exclusão

* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET

  APPEND ' form f_exec_open tables p_itab_saida_serv '      to t_prog.

  append ' structure itab_saida_serv'                       TO t_prog.

* << Fim da inclusão

  APPEND '                 using  p_dir_unix.'              TO t_prog.

  IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.

    APPEND 'open dataset p_dir_unix for output in text mode' TO t_prog.

    APPEND 'ENCODING NON-UNICODE IGNORING CONVERSION ERRORS.' TO t_prog.

  ELSE.

* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET

    APPEND

    '  open dataset p_dir_unix for output in text mode.'    TO t_prog.

* << Fim da exclusão

* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET

    APPEND ' open dataset p_dir_unix '    to t_prog.

    append ' for output in text mode.'    TO t_prog.

* << Fim da inclusão

  ENDIF.

  APPEND '  IF NOT sy-subrc IS INITIAL.'                    TO t_prog.

  APPEND '    MESSAGE i272.'                                TO t_prog.

  APPEND '    STOP.'                                        TO t_prog.

  APPEND '  ENDIF.'                                         TO t_prog.

  APPEND '  LOOP AT p_itab_saida_serv.'                     TO t_prog.

* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET

  APPEND

       '    TRANSFER p_itab_saida_serv-campo TO p_dir_unix LENGTH 240.'

                                                            TO t_prog.

* << Fim da exclusão

* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET

  APPEND '  TRANSFER p_itab_saida_serv-campo '              TO t_prog.

  append '  TO p_dir_unix LENGTH 240.'                      TO t_prog.

* << Fim da inclusão

  APPEND '  ENDLOOP.'                                       TO t_prog.

  APPEND '  close dataset p_dir_unix.'                      TO t_prog.

  APPEND 'endform.'                                         TO t_prog.

  GENERATE SUBROUTINE POOL t_prog NAME w_prog.

  IF sy-subrc = 0.

...