Sintoma

Programa com instruções obsoletas ou que apresentam erros/alertas ao executar a verificação ampliada

do programa ou o Code Inspector.

Solução

Implementação de ajustes no código do programa de forma a eliminar os erros e alertas encontrados na

verificação ampliada e ao executar o Code Inspector.

Informações Complementares

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

Nota Número 05900 Data: 12/02/2008 Hora: 10:44:44

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

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

Nota Número              : 05900

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

MELHORIAS TÉCNICAS NO PROGRAMA /PWS/SAPMZYCE028

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

Palavras Chave:

CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO,

PARÂMETRO, MATERIAL, DESCRIÇÃO

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

Objetos da nota:

DOCU NA/PWS/ZYCEM100

DOCU NA/PWS/ZYCEM103

DYNP /PWS/SAPMZYCE028                        0002

DYNP /PWS/SAPMZYCE028                        0101

DYNP /PWS/SAPMZYCE028                        0102

DYNP /PWS/SAPMZYCE028                        0103

REPS /PWS/MZYCE028F01

REPS /PWS/MZYCE028I01

REPS /PWS/MZYCE028O01

REPS /PWS/MZYCE028TOP

REPT /PWS/SAPMZYCE028

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

Modificações efetuadas em DOCU NA/PWS/ZYCEM100

- Marcar a mensagem 100 da classe de mensagens /PWS/ZYCEM como auto-explicativa.

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

Modificações efetuadas em DOCU NA/PWS/ZYCEM103

- Marcar a mensagem 103 da classe de mensagens /PWS/ZYCEM como auto-explicativa.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE028                        0002

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE028                        0101

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE028                        0102

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE028                        0103

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

Modificações efetuadas em REPS /PWS/MZYCE028F01

...

    dynpnr                    = p_dynnr

    dynprofield               = p_field

    stepl                     = p_linha

  TABLES

    return_tab                 =  itab_return[]

  EXCEPTIONS

    field_not_found           = 1

    no_help_for_field         = 2

    inconsistent_help         = 3

    no_values_found           = 4

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

    OTHERS                    = 5

          .

  IF sy-subrc <> 0.

  ENDIF.

* << Fim da exclusão

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

    OTHERS                    = 5.

  CHECK sy-subrc IS INITIAL.

* << Fim da inclusão

ENDFORM.

FORM trata_condicoes.

  DATA: v_condicao(100) TYPE c.

  CHECK NOT itab_condicao[] IS INITIAL.

  CLEAR itab_selecao.

  IF NOT itab_selecao[] IS INITIAL.

    CONCATENATE itab_selecao-condicao 'AND' INTO itab_selecao-condicao

                SEPARATED BY space.

  ENDIF.

  LOOP AT itab_condicao WHERE mark = 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCE028I01

...

                                     itab_condicao-ref_tab

                                     itab_condicao-ref_field.

  ENDCASE.

  CLEAR itab_return.

  REFRESH itab_return.

ENDMODULE.

MODULE modifica_itab_tela INPUT.

  ADD 1 TO v_index2.

  MODIFY itab_tela INDEX v_index2.

ENDMODULE.

* >> Início da exclusão: MODULE TRATA_CONDICAO

MODULE trata_condicao INPUT.

  IF itab_condicao-mark EQ 'X'.

  ENDIF.

ENDMODULE.

* << Fim da exclusão

MODULE user_command_0103 INPUT.

  CASE sy-ucomm.

    WHEN 'ENTE'.

      PERFORM trata_campos_marcados.

      v_tela = '0003'.

      SET SCREEN 0002.

      LEAVE SCREEN.

    WHEN 'ELIMINAR'.

      PERFORM elimina_linha.

    WHEN 'ANEXAR' OR 'INSERIR'.

...

...

    ENDIF.

    DESCRIBE TABLE itab_condicao LINES v_linhas.

    IF v_linhas < 12.

      CLEAR itab_condicao.

      MOVE-CORRESPONDING: itab_check TO itab_condicao.

      CLEAR itab_condicao-mark.

      APPEND itab_condicao.

    ENDIF.

  ENDIF.

ENDMODULE.

* >> Início da exclusão: MODULE CLEAR_ID_LND

MODULE clear_id_lnd INPUT.

  DATA: v_land1 TYPE land1.

  GET PARAMETER ID 'LND' FIELD v_land1.

  CLEAR v_land1.

  SET PARAMETER ID 'LND' FIELD v_land1.

ENDMODULE.

* << Fim da exclusão

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

Modificações efetuadas em REPS /PWS/MZYCE028O01

module status_0001 output.

* >> Início da exclusão: MODULE STATUS_0001

  SELECT COUNT(*) FROM /pws/zycet028.

* << Fim da exclusão

* >> Início da inclusão: MODULE STATUS_0001

  SELECT COUNT(*) FROM /pws/zycet028.                    "#EC CI_BYPASS

* << Fim da inclusão

  IF sy-subrc <> 0.

    CALL SCREEN '0100'.

  ENDIF.

  set pf-status '001'.

  set titlebar '001'.

  clear: v_index, v_index3.

endmodule.

module chama_tela output.

  perform carrega_itab_check.

  if itab_tela[] is initial and sy-ucomm eq 'CANC'.

...

...

        table           = itab_acordo[].

    call method obj_norma->set_text_as_r3table

      exporting

        table           = itab_norma[].

  endif.

endmodule.

module status_0102 output.

  set pf-status '0102'.

  set titlebar '0102'.

endmodule.

* >> Início da exclusão: MODULE MUDA_TOP

module muda_top output.

  if not v_top is initial.

    move v_top to tc_zycet028-top_line.

    clear v_top.

  endif.

endmodule.

* << Fim da exclusão

module status_103 output.

  set pf-status '0103'.

  clear: v_index4, v_index.

  describe table itab_condicao lines v_linhas.

endmodule.

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

Modificações efetuadas em REPS /PWS/MZYCE028TOP

program  /pws/sapmzyce028   message-id /pws/zycem.

tables: /pws/zycet028,

        /pws/zycee028.

controls: tc_zycet028 type tableview using screen 100.

* >> Início da exclusão:

data: begin of itab_campos occurs 0,

        campo(10) type c,

        seq       type i,

        low(20)   type c,

        high(20)  type c,

        desc(30)  type c,

      end of itab_campos.

* << Fim da exclusão

data: begin of itab_zycet028 occurs 0.

        include structure /pws/zycet028.

data:   alteracao(1) type c,

        mark(1)      type c.

data: end of itab_zycet028.

data: begin of itab_zycet028_del occurs 0.

        include structure /pws/zycet028.

data:   mark(1)       type c.

data: end of itab_zycet028_del.

data: begin of itab_acordo occurs 0,

...

...

          high           like  query_tab-buffer,

          label(30)      type c,

          outras(30)     type c,

          ref_tab        type dfies-tabname,

          ref_field      type dfies-fieldname,

          campo          type dfies-fieldname,

          index          type i,

          length         type i,

          mark(1)        type c,

       end of itab_tela.

* >> Início da exclusão:

data: itab_return like ddshretval occurs 0 with header line.

* << Fim da exclusão

* >> Início da inclusão:

DATA: itab_return LIKE ddshretval

                OCCURS 0 WITH HEADER LINE.                  "#EC NEEDED

* << Fim da inclusão

data: begin of itab_selecao occurs 0,

        condicao(100) type c,

      end of itab_selecao.

data: begin of itab_condicao occurs 0,

        mark(1)     type c,

        checked(1)  type c,

        label(30)   type c,

        negativo    like query_tab-negation,

        operador    like query_tab-relation,

        valor(70)   type c,

...

...

      end of itab_condicao.

data: itab_check like itab_tela occurs 0 with header line.

data: wa_zycet028 like itab_zycet028.

data:

      v_cont        type i,

      mark(1)       type c,

      v_index       like sy-tabix,

      v_ucomm       like sy-ucomm,

      v_primeira(1) type c,

      v_line        type i,

* >> Início da exclusão:

      v_pos         like sy-tabix,

* << Fim da exclusão

      v_describe    type i,

      v_resp(1)     type c,

* >> Início da exclusão:

      v_top         type i,

* << Fim da exclusão

      txtpos(40)    type c,

      v_curline(10) type c,

* >> Início da exclusão:

      v_flag(1)     type c,

      ok-code       like sy-ucomm,

      v_campo(30)   type c,

* << Fim da exclusão

      v_linhas      type i,

      v_linha       type i,

      v_index2      like sy-tabix,

      v_index3      like sy-tabix,

      v_index4      like sy-tabix,

      v_largura type i,

      v_altura  type i value 1,

      v_tela       like sy-dynnr,

      v_tela_aux   like sy-dynnr,

      v_altura_103 type i value 2,

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCE028

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 016

Texto: (29 caracteres)

"Intervalo de dados inválidos."

Comprimento máximo: 29