CE PLUS - Nota 009268
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Assunção
Data/Hora da Publicação: 27/10/2009 00:00:00
Data/Hora Última Alteração: 04/03/2010 15:31:41
Descrição da Nota: CODE INSPECTOR CÂMBIO
Sintoma
Code inspector câmbio
Solução
Code inspector câmbio
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09268 Data: 27/10/2009 Hora: 15:53:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09268
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00120
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR CÂMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR CÂMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_DEQUEUE_CONTRATO
FUNC /PWS/ZYCB_DEQUEUE_EZYCBT043
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT017V
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT031
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT060
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT092
FUNC /PWS/ZYCB_ENQUEUE_CONTRATO
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT086
FUNC /PWS/ZYCI_DEQUEUE_ZYCIT029
FUNC /PWS/ZYCI_DEQUEUE_ZYCIT030
FUNC /PWS/ZYCI_ENQUEUE_ZYCIT029
FUNC /PWS/ZYCI_ENQUEUE_ZYCIT030
FUNC /PWS/ZYCI_ENQUEUE_ZYGLR024
FUNC /PWS/ZYCM_DEQUEUE_EZYCBT117
FUNC /PWS/ZYCM_DEQUEUE_EZYCBT121
FUNC /PWS/ZYCM_DEQUEUE_EZYCMT001
FUNC /PWS/ZYCM_DEQUEUE_ZYCBT114
FUNC /PWS/ZYCM_DEQUEUE_ZYCBT116
FUNC /PWS/ZYCM_ENQUEUE_EZYCBT119
FUNC /PWS/ZYCM_ENQUEUE_EZYCBT121
FUNC /PWS/ZYCM_ENQUEUE_EZYCMT001
FUNC /PWS/ZYCM_ENQUEUE_ZYCBT114
FUNC /PWS/ZYCM_ENQUEUE_ZYCBT116
FUNC /PWS/ZYCM_ENQUEUE_ZYCMR120
FUNC /PWS/ZYCM_ENQUEUE_ZYCMR121
FUNC /PWS/ZYGL_DEQUEUE_EZYCBT040
FUNC /PWS/ZYGL_DEQUEUE_EZYCBT118
FUNC /PWS/ZYGL_DEQUEUE_ZYCBT007
FUNC /PWS/ZYGL_DEQUEUE_ZYCBT133
FUNC /PWS/ZYGL_DEQUEUE_ZYGL009
FUNC /PWS/ZYGL_DEQUEUE_ZYGL014
FUNC /PWS/ZYGL_DEQUEUE_ZYGL217
FUNC /PWS/ZYGL_DEQUEUE_ZYGL344
FUNC /PWS/ZYGL_DEQUEUE_ZYGL355
FUNC /PWS/ZYGL_DEQUEUE_ZYGL357
FUNC /PWS/ZYGL_DEQUEUE_ZYGL362
FUNC /PWS/ZYGL_DEQUEUE_ZYGLT009
FUNC /PWS/ZYGL_DEQUEUE_ZYGLT011
FUNC /PWS/ZYGL_DEQUEUE_ZYGLT012
FUNC /PWS/ZYGL_DEQUEUE_ZYGLT371
FUNC /PWS/ZYGL_DEQUEUE_ZYGLT372
FUNC /PWS/ZYGL_ENQUEUE_EZYCBT040
FUNC /PWS/ZYGL_ENQUEUE_EZYCBT118
FUNC /PWS/ZYGL_ENQUEUE_ZYCBT007
FUNC /PWS/ZYGL_ENQUEUE_ZYCBT089
FUNC /PWS/ZYGL_ENQUEUE_ZYCBT133
FUNC /PWS/ZYGL_ENQUEUE_ZYGL009
FUNC /PWS/ZYGL_ENQUEUE_ZYGL014
FUNC /PWS/ZYGL_ENQUEUE_ZYGL217
FUNC /PWS/ZYGL_ENQUEUE_ZYGL344
FUNC /PWS/ZYGL_ENQUEUE_ZYGL355
FUNC /PWS/ZYGL_ENQUEUE_ZYGL357
FUNC /PWS/ZYGL_ENQUEUE_ZYGL362
FUNC /PWS/ZYGL_ENQUEUE_ZYGLR023
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT009
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT011
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT012
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT334
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT339
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT340
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT341
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT342
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT343
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT371
FUNC /PWS/ZYGL_ENQUEUE_ZYGLT372
RELE F6DK972570 20091027 155132 PWSCB
VIED /PWS/ZYCBV224
VIED /PWS/ZYCBV225
VIED /PWS/ZYCBV290
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_CONTRATO
...
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt001,
mandt like /pws/zycbt001-mandt,
nrseqc like /pws/zycbt001-nrseqc,
nrcontr like /pws/zycbt001-nrcontr,
tpcontr like /pws/zycbt001-tpcontr,
end of %a_zycbt001.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_CONTRATO
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt001.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_CONTRATO
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt001. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt001-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt001-nrseqc.
endif.
if not nrcontr is initial or
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_EZYCBT043
FUNCTION /PWS/ZYCB_DEQUEUE_EZYCBT043.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_ZYCBT043,
mandt like /pws/ZYCBT043-mandt,
NRPAGTO like /pws/ZYCBT043-NRPAGTO,
end of %a_ZYCBT043.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_EZYCBT043
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_ZYCBT043.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_EZYCBT043
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_ZYCBT043. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_ZYCBT043-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_ZYCBT043-NRPAGTO.
endif.
__seqta_tab-gname = '/PWS/ZYCBT043'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT017V
...
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt017f,
mandt like /pws/zycbt017-mandt,
nrinvoic like /pws/zycbt017-nrinvoic,
nrparcf like /pws/zycbt017-nrparcf,
gsberf like /pws/zycbt017-gsberf,
end of %a_zycbt017f.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT017V
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt017f.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT017V
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt017f. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt017f-mandt.
endif.
if not nrinvoic is initial or
not x_nrinvoic is initial.
move nrinvoic to:
%a_zycbt017f-nrinvoic.
endif.
if not nrparcf is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT031
...
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt031,
mandt like /pws/zycbt031-mandt,
nrseq like /pws/zycbt031-nrseq,
dtboleto like /pws/zycbt031-dtboleto,
end of %a_zycbt031.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT031
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt031.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT031
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt031. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt031-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt031-nrseq.
endif.
if not dtboleto is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT060
function /pws/zycb_dequeue_zycbt060.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt060,
mandt like /pws/zycbt060-mandt,
nrseq like /pws/zycbt060-nrseq,
end of %a_zycbt060.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT060
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt060.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT060
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt060. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt060-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt060-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT060'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT092
function /pws/zycb_dequeue_zycbt092.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt092,
mandt like /pws/zycbt092-mandt,
nrseq like /pws/zycbt092-nrseq,
end of %a_zycbt092.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT092
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt092.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT092
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt092. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt092-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt092-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT092'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_CONTRATO
...
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt001,
mandt like /pws/zycbt001-mandt,
nrseqc like /pws/zycbt001-nrseqc,
nrcontr like /pws/zycbt001-nrcontr,
tpcontr like /pws/zycbt001-tpcontr,
end of %a_zycbt001.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_CONTRATO
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt001.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_CONTRATO
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt001. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt001-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt001-nrseqc.
endif.
if not nrcontr is initial or
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT086
function /pws/zycb_enqueue_zycbt086.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt086,
mandt like /pws/zycbt086-mandt,
nrseq like /pws/zycbt086-nrseq,
end of %a_zycbt086.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT086
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt086.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT086
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt086. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt086-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt086-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT086'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_DEQUEUE_ZYCIT029
...
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycit029,
mandt like /pws/zycit029-mandt,
codmod like /pws/zycit029-codmod,
codigo LIKE /pws/zycit029-codigo,
end of %a_zycit029.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_DEQUEUE_ZYCIT029
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycit029.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_DEQUEUE_ZYCIT029
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycit029. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycit029-mandt.
endif.
if not codmod is initial or
not x_codmod is initial.
move codmod to:
%a_zycit029-codmod.
endif.
if not codigo is initial or
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_DEQUEUE_ZYCIT030
...
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycit030,
mandt like /pws/zycit030-mandt,
codmod like /pws/zycit030-codmod,
codigo LIKE /pws/zycit030-codigo,
KSCHL LIKE /PWS/ZYCIT030-KSCHL,
end of %a_zycit030.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_DEQUEUE_ZYCIT030
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycit030.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_DEQUEUE_ZYCIT030
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycit030. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycit030-mandt.
endif.
if not codmod is initial or
not x_codmod is initial.
move codmod to:
%a_zycit030-codmod.
endif.
if not codigo is initial or
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_ENQUEUE_ZYCIT029
...
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycit029,
mandt like /pws/zycit029-mandt,
codmod like /pws/zycit029-codmod,
codigo LIKE /pws/zycit029-codigo,
end of %a_zycit029.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_ENQUEUE_ZYCIT029
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycit029.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_ENQUEUE_ZYCIT029
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycit029. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycit029-mandt.
endif.
if not codmod is initial or
not x_codmod is initial.
move codmod to:
%a_zycit029-codmod.
endif.
if not codigo is initial or
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_ENQUEUE_ZYCIT030
...
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycit030,
mandt like /pws/zycit030-mandt,
codmod like /pws/zycit030-codmod,
codigo LIKE /pws/zycit030-codigo,
KSCHL LIKE /PWS/ZYCIT030-KSCHL,
end of %a_zycit030.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_ENQUEUE_ZYCIT030
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycit030.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_ENQUEUE_ZYCIT030
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycit030. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycit030-mandt.
endif.
if not codmod is initial or
not x_codmod is initial.
move codmod to:
%a_zycit030-codmod.
endif.
if not codigo is initial or
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_ENQUEUE_ZYGLR024
FUNCTION /PWS/ZYCI_ENQUEUE_ZYGLR024.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
DATA: BEGIN OF %A_ZYGLR024,
MANDT LIKE /PWS/ZYCBT040-MANDT,
NRSEQ LIKE /PWS/ZYCBT040-NRSEQ,
END OF %A_ZYGLR024.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_ENQUEUE_ZYGLR024
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYGLR024.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_ENQUEUE_ZYGLR024
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYGLR024. "#EC CI_CCALL
* << Fim da inclusão
if not MANDT is initial.
move MANDT to:
%A_ZYGLR024-MANDT.
endif.
IF NOT NRSEQ IS INITIAL OR
NOT X_NRSEQ IS INITIAL.
MOVE NRSEQ TO:
%A_ZYGLR024-NRSEQ.
endif.
__SEQTA_TAB-GNAME = '/PWS/ZYGLR024'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_DEQUEUE_EZYCBT117
function /pws/zycm_dequeue_ezycbt117.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__synchron type ddenqsync.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt117,
mandt type /pws/zycbt117-mandt,
nrseq type /pws/zycbt117-nrseq,
end of %a_zycbt117.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCBT117
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt117.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCBT117
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt117. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt117-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt117-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT117'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_DEQUEUE_EZYCBT121
function /pws/zycm_dequeue_ezycbt121.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__synchron type ddenqsync.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt121,
mandt type /pws/zycbt121-mandt,
nrseq type /pws/zycbt121-nrseq,
end of %a_zycbt121.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCBT121
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt121.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCBT121
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt121. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt121-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt121-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT121'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_DEQUEUE_EZYCMT001
function /pws/zycm_dequeue_ezycmt001.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__synchron type ddenqsync.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycmt001,
mandt type /pws/zycmt001-mandt,
nrseq type /pws/zycmt001-nrseq,
end of %a_zycmt001.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCMT001
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycmt001.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCMT001
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycmt001. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycmt001-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycmt001-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCMT001'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_DEQUEUE_ZYCBT114
function /pws/zycm_dequeue_zycbt114 .
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__synchron type ddenqsync.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt114,
mandt type /pws/zycbt114-mandt,
nrlinha type /pws/zycbt114-nrlinha,
end of %a_zycbt114.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_DEQUEUE_ZYCBT114
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt114.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_DEQUEUE_ZYCBT114
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt114. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt114-mandt.
endif.
if not nrlinha is initial or
not x_nrlinha is initial.
move nrlinha to:
%a_zycbt114-nrlinha.
endif.
__seqta_tab-gname = '/PWS/ZYCBT114'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_DEQUEUE_ZYCBT116
...
__synchron type ddenqsync.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt116,
mandt type /pws/zycbt116-mandt,
nrrefin type /pws/zycbt116-nrrefin,
nrfinanc type /pws/zycbt116-nrfinanc,
tpparc type /pws/zycbt116-tpparc,
nrparc type /pws/zycbt116-nrparc,
end of %a_zycbt116.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_DEQUEUE_ZYCBT116
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt116.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_DEQUEUE_ZYCBT116
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt116. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt116-mandt.
endif.
if not nrrefin is initial or
not x_nrrefin is initial.
move nrrefin to:
%a_zycbt116-nrrefin.
endif.
if not nrfinanc is initial or
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ENQUEUE_EZYCBT119
function /pws/zycm_enqueue_ezycbt119.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt119,
mandt type /pws/zycbt119-mandt,
nrseq type /pws/zycbt119-nrseq,
end of %a_zycbt119.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ENQUEUE_EZYCBT119
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt119.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ENQUEUE_EZYCBT119
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt119. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt119-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt119-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT119'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ENQUEUE_EZYCBT121
function /pws/zycm_enqueue_ezycbt121.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt121,
mandt type /pws/zycbt121-mandt,
nrseq type /pws/zycbt121-nrseq,
end of %a_zycbt121.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ENQUEUE_EZYCBT121
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt121.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ENQUEUE_EZYCBT121
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt121. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt121-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt121-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT121'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ENQUEUE_EZYCMT001
function /pws/zycm_enqueue_ezycmt001.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycmt001,
mandt type /pws/zycmt001-mandt,
nrseq type /pws/zycmt001-nrseq,
end of %a_zycmt001.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ENQUEUE_EZYCMT001
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycmt001.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ENQUEUE_EZYCMT001
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycmt001. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycmt001-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycmt001-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCMT001'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ENQUEUE_ZYCBT114
function /pws/zycm_enqueue_zycbt114.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt114,
mandt type /pws/zycbt114-mandt,
nrlinha type /pws/zycbt114-nrlinha,
end of %a_zycbt114.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ENQUEUE_ZYCBT114
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt114.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ENQUEUE_ZYCBT114
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt114. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt114-mandt.
endif.
if not nrlinha is initial or
not x_nrlinha is initial.
move nrlinha to:
%a_zycbt114-nrlinha.
endif.
__seqta_tab-gname = '/PWS/ZYCBT114'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ENQUEUE_ZYCBT116
...
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt116,
mandt type /pws/zycbt116-mandt,
nrrefin type /pws/zycbt116-nrrefin,
nrfinanc type /pws/zycbt116-nrfinanc,
tpparc type /pws/zycbt116-tpparc,
nrparc type /pws/zycbt116-nrparc,
end of %a_zycbt116.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ENQUEUE_ZYCBT116
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt116.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ENQUEUE_ZYCBT116
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt116. "#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt116-mandt.
endif.
if not nrrefin is initial or
not x_nrrefin is initial.
move nrrefin to:
%a_zycbt116-nrrefin.
endif.
if not nrfinanc is initial or
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ENQUEUE_ZYCMR120
FUNCTION /PWS/ZYCM_ENQUEUE_ZYCMR120.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
DATA: BEGIN OF %A_ZYCMR120,
MANDT LIKE /PWS/ZYCBT031-MANDT,
NRSEQ LIKE /PWS/ZYCBT031-NRSEQ,
END OF %A_ZYCMR120.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ENQUEUE_ZYCMR120
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYCMR120.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ENQUEUE_ZYCMR120
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYCMR120. "#EC CI_CCALL
* << Fim da inclusão
if not MANDT is initial.
move MANDT to:
%A_ZYcmr120-MANDT.
endif.
IF NOT NRSEQ IS INITIAL OR
NOT X_NRSEQ IS INITIAL.
MOVE NRSEQ TO:
%A_ZYcmr120-NRSEQ.
endif.
__SEQTA_TAB-GNAME = '/PWS/ZYCMR120'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ENQUEUE_ZYCMR121
FUNCTION /pws/zycm_enqueue_zycmr121.
DATA: __seqta_tab LIKE seqta OCCURS 1 WITH HEADER LINE,
__scope LIKE ddenq_like-scope,
__wait LIKE ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
DATA: BEGIN OF %a_zycmr121,
MANDT LIKE /PWS/ZYCmT001-MANDT,
NRSEQ LIKE /PWS/ZYCmT001-NRSEQ,
END OF %a_zycmr121.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ENQUEUE_ZYCMR121
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_zycmr121.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ENQUEUE_ZYCMR121
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_zycmr121. "#EC CI_CCALL
* << Fim da inclusão
if not MANDT is initial.
move MANDT to:
%A_ZYcmr121-MANDT.
endif.
IF NOT NRSEQ IS INITIAL OR
NOT X_NRSEQ IS INITIAL.
MOVE NRSEQ TO:
%A_ZYcmR121-NRSEQ.
endif.
__seqta_tab-gname = '/PWS/ZYCMR121'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_EZYCBT040
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_EZYCBT040.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_ZYCBT040,
mandt like /pws/ZYCBT040-mandt,
NRSEQ like /pws/ZYCBT040-NRSEQ,
end of %a_ZYCBT040.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_ZYCBT040. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_ZYCBT040-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_ZYCBT040-NRSEQ.
endif.
__seqta_tab-gname = '/PWS/ZYCBT040'.
__seqta_tab-gmode = mode_ZYCBT040.
__seqta_tab-garg = %a_ZYCBT040.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYCBT040' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_EZYCBT118
* >> Início da inclusão:
function /pws/zygl_dequeue_ezycbt118 .
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__synchron type ddenqsync.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt118,
mandt type /pws/zycbt118-mandt,
nrseq type /pws/zycbt118-nrseq,
end of %a_zycbt118.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt118. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt118-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt118-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT118'.
__seqta_tab-gmode = mode_zycbt118.
__seqta_tab-garg = %a_zycbt118.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/EZYCBT118' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYCBT007
* >> Início da inclusão:
function /pws/zygl_dequeue_zycbt007 .
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt007,
mandt like /pws/zycbt007-mandt,
BUKRS LIKE /pws/zycbt007-BUKRS,
end of %a_zycbt007.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt007. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt007-mandt.
endif.
if not BUKRS is initial.
move BUKRS to:
%a_zycbt007-BUKRS.
endif.
__seqta_tab-gname = '/PWS/ZYCBT007'.
__seqta_tab-gmode = mode_zycbt007.
__seqta_tab-garg = %a_zycbt007.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYCBT007' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYCBT133
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYCBT133.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycBT133,
mandt like /pws/zycbt133-mandt,
bukrs like /pws/zycbt133-bukrs,
codmod LIKE /pws/zycbt133-codmod,
end of %a_zycbt133.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt133. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt133-mandt.
endif.
if not bukrs is initial or
not x_bukrs is initial.
move bukrs to:
%a_zycbt133-bukrs.
endif.
if not codmod is initial or
not x_codmod is initial.
move codmod to:
%a_zycbt133-codmod.
endif.
__seqta_tab-gname = '/PWS/zycbt133'.
__seqta_tab-gmode = mode_zycbt133.
__seqta_tab-garg = %a_zycbt133.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/zycbt133' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGL009
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGL009.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt309,
mandt like /pws/zyglt309-mandt,
end of %a_zyglt309.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt309. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt309-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT309'.
__seqta_tab-gmode = mode_zyglt309.
__seqta_tab-garg = %a_zyglt309.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT309' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGL014
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGL014.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt325,
mandt like /pws/zyglt325-mandt,
end of %a_zyglt325.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt325. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt325-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT325'.
__seqta_tab-gmode = mode_zyglt325.
__seqta_tab-garg = %a_zyglt325.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT325' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGL217
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGL217.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt217,
mandt like /pws/zyglt217-mandt,
end of %a_zyglt217.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt217. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt217-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT217'.
__seqta_tab-gmode = mode_zyglt217.
__seqta_tab-garg = %a_zyglt217.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT217' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGL344
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGL344.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt368,
bukrs like /pws/zyglt368-bukrs,
end of %a_zyglt368.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt368. "#EC CI_CCALL
if not bukrs is initial.
move bukrs to:
%a_zyglt368-bukrs.
endif.
__seqta_tab-gname = '/PWS/ZYGLT368'.
__seqta_tab-gmode = mode_zyglt368.
__seqta_tab-garg = %a_zyglt368.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT368' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGL355
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGL355.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt355,
mandt like /pws/zyglt355-mandt,
end of %a_zyglt355.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt355. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt355-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT355'.
__seqta_tab-gmode = mode_zyglt355.
__seqta_tab-garg = %a_zyglt355.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT355' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGL357
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGL357.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt357,
bukrs like /pws/zyglt357-bukrs,
end of %a_zyglt357.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt357. "#EC CI_CCALL
if not bukrs is initial.
move bukrs to:
%a_zyglt357-bukrs.
endif.
__seqta_tab-gname = '/PWS/ZYGLT357'.
__seqta_tab-gmode = mode_zyglt357.
__seqta_tab-garg = %a_zyglt357.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT357' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGL362
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGL362.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt362,
mandt like /pws/zyglt362-mandt,
end of %a_zyglt362.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt362. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt362-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT362'.
__seqta_tab-gmode = mode_zyglt362.
__seqta_tab-garg = %a_zyglt362.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT362' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGLT009
* >> Início da inclusão:
function /pws/zygl_dequeue_zyglt009 .
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt009,
mandt like /pws/zyglt009-mandt,
bukrs like /pws/zyglt009-bukrs,
end of %a_zyglt009.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt009. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt009-mandt.
endif.
if not bukrs is initial or
not x_bukrs is initial.
move bukrs to:
%a_zyglt009-bukrs.
endif.
__seqta_tab-gname = '/PWS/ZYGLT009'.
__seqta_tab-gmode = mode_zyglt009.
__seqta_tab-garg = %a_zyglt009.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT009' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGLT011
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGLT011.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt011,
bukrs like /pws/zycbt011-bukrs,
end of %a_zycbt011.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt011. "#EC CI_CCALL
if not bukrs is initial.
move bukrs to:
%a_zycbt011-bukrs.
endif.
__seqta_tab-gname = '/PWS/ZYCBT011'.
__seqta_tab-gmode = mode_zycbt011.
__seqta_tab-garg = %a_zycbt011.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYCBT011' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGLT012
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGLT012.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt012,
mandt like /pws/zycbt012-mandt,
end of %a_zycbt012.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt012. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt012-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYCBT012'.
__seqta_tab-gmode = mode_zycbt012.
__seqta_tab-garg = %a_zycbt012.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYCBT012' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGLT371
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGLT371.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt371,
mandt like /pws/zyglt371-mandt,
end of %a_zyglt371.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt371. "#EC CI_CCALL
if not mandt is initial.
move mandt to %a_zyglt371-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT371'.
__seqta_tab-gmode = mode_zyglt371.
__seqta_tab-garg = %a_zyglt371.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT371' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYGLT372
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_DEQUEUE_ZYGLT372.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zyglt372,
mandt like /pws/zyglt372-mandt,
end of %a_zyglt372.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt372. "#EC CI_CCALL
if not mandt is initial.
move mandt to %a_zyglt372-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT372'.
__seqta_tab-gmode = mode_zyglt372.
__seqta_tab-garg = %a_zyglt372.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '2' __scope ' ' __synchron '/PWS/ZYGLT372' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_EZYCBT040
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_EZYCBT040.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_ZYCBT040,
mandt type /pws/ZYCBT040-mandt,
NRSEQ type /pws/ZYCBT040-NRSEQ,
end of %a_ZYCBT040.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_ZYCBT040. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_ZYCBT040-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_ZYCBT040-NRSEQ.
endif.
__seqta_tab-gname = '/PWS/ZYCBT040'.
__seqta_tab-gmode = mode_ZYCBT040.
__seqta_tab-garg = %a_ZYCBT040.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/EZYCBT040' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_EZYCBT118
* >> Início da inclusão:
function /pws/zygl_enqueue_ezycbt118 .
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt118,
mandt type /pws/zycbt118-mandt,
nrseq type /pws/zycbt118-nrseq,
end of %a_zycbt118.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt118. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt118-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt118-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT118'.
__seqta_tab-gmode = mode_zycbt118.
__seqta_tab-garg = %a_zycbt118.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/EZYCBT118' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYCBT007
* >> Início da inclusão:
function /pws/zygl_enqueue_zycbt007.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt007,
mandt like /pws/zycbt007-mandt,
bukrs like /pws/zycbt007-bukrs,
end of %a_zycbt007.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt007. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt007-mandt.
endif.
move bukrs to:
%a_zycbt007-bukrs.
__seqta_tab-gname = '/PWS/ZYCBT007'.
__seqta_tab-gmode = mode_zycbt007.
__seqta_tab-garg = %a_zycbt007.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYCBT007' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYCBT089
* >> Início da inclusão:
function /pws/zygl_enqueue_zycbt089.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt089,
mandt like /pws/zycbt089-mandt,
end of %a_zycbt089.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt089. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt089-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYCBT089'.
__seqta_tab-gmode = mode_zycbt089.
__seqta_tab-garg = %a_zycbt089.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYCBT089' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYCBT133
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYCBT133.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt133,
mandt like /pws/zycbt133-mandt,
bukrs like /pws/zycbt133-bukrs,
codmod LIKE /pws/zycbt133-codmod,
end of %a_zycbt133.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt133. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt133-mandt.
endif.
if not bukrs is initial or
not x_bukrs is initial.
move bukrs to:
%a_zycbt133-bukrs.
endif.
if not codmod is initial or
not x_codmod is initial.
move codmod to:
%a_zycbt133-codmod.
endif.
__seqta_tab-gname = '/PWS/zycbt133'.
__seqta_tab-gmode = mode_zycbt133.
__seqta_tab-garg = %a_zycbt133.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/zycbt133' _collect.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGL009
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGL009.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt309,
mandt like /pws/zyglt309-mandt,
end of %a_zyglt309.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt309. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt309-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT309'.
__seqta_tab-gmode = mode_zyglt309.
__seqta_tab-garg = %a_zyglt309.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT309' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGL014
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGL014.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt325,
mandt like /pws/zyglt325-mandt,
end of %a_zyglt325.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt325. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt325-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT325'.
__seqta_tab-gmode = mode_zyglt325.
__seqta_tab-garg = %a_zyglt325.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT325' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGL217
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGL217.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt217,
mandt like /pws/zyglt217-mandt,
end of %a_zyglt217.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt217. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt217-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT217'.
__seqta_tab-gmode = mode_zyglt217.
__seqta_tab-garg = %a_zyglt217.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT217' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGL344
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGL344.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt368,
bukrs like /pws/zyglt368-bukrs,
end of %a_zyglt368.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt368. "#EC CI_CCALL
if not bukrs is initial.
move bukrs to:
%a_zyglt368-bukrs.
endif.
__seqta_tab-gname = '/PWS/ZYGLT368'.
__seqta_tab-gmode = mode_zyglt368.
__seqta_tab-garg = %a_zyglt368.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT368' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGL355
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGL355.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt355,
mandt like /pws/zyglt355-mandt,
end of %a_zyglt355.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt355. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt355-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT355'.
__seqta_tab-gmode = mode_zyglt355.
__seqta_tab-garg = %a_zyglt355.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT355' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGL357
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGL357.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt357,
bukrs like /pws/zyglt357-bukrs,
end of %a_zyglt357.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt357. "#EC CI_CCALL
if not bukrs is initial.
move bukrs to:
%a_zyglt357-bukrs.
endif.
__seqta_tab-gname = '/PWS/ZYGLT357'.
__seqta_tab-gmode = mode_zyglt357.
__seqta_tab-garg = %a_zyglt357.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT357' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGL362
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGL362.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt362,
mandt like /pws/zyglt362-mandt,
end of %a_zyglt362.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt362. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt362-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT362'.
__seqta_tab-gmode = mode_zyglt362.
__seqta_tab-garg = %a_zyglt362.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT362' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLR023
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLR023 .
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
DATA: BEGIN OF %A_ZYGLR023,
MANDT LIKE /PWS/ZYCBT031-MANDT,
NRSEQ LIKE /PWS/ZYCBT031-NRSEQ,
END OF %A_ZYGLR023.
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYGLR023. "#EC CI_CCALL
if not MANDT is initial.
move MANDT to:
%A_ZYGLR023-MANDT.
endif.
IF NOT NRSEQ IS INITIAL OR
NOT X_NRSEQ IS INITIAL.
MOVE NRSEQ TO:
%A_ZYGLR023-NRSEQ.
endif.
__SEQTA_TAB-GNAME = '/PWS/ZYGLR023'.
__SEQTA_TAB-GMODE = MODE_ZYGLR023.
__SEQTA_TAB-GARG = %A_ZYGLR023.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
USING '1' __SCOPE __WAIT ' ' 'ZYGLR023' _COLLECT.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT009
* >> Início da inclusão:
function /pws/zygl_enqueue_zyglt009 .
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt009,
mandt like /pws/zyglt009-mandt,
bukrs like /pws/zyglt009-bukrs,
end of %a_zyglt009.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt009. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt009-mandt.
endif.
if not bukrs is initial or
not x_bukrs is initial.
move bukrs to:
%a_zyglt009-bukrs.
endif.
__seqta_tab-gname = '/PWS/ZYGLT009'.
__seqta_tab-gmode = mode_zyglt009.
__seqta_tab-garg = %a_zyglt009.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT009' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT011
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT011.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt011,
mandt like /pws/zycbt011-mandt,
codeven like /pws/zycbt011-codeven,
codmod like /pws/zycbt011-codmod,
bukrs like /pws/zyCBt011-bukrs,
end of %a_zycbt011.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt011. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt011-mandt.
endif.
if not codeven is initial.
move codeven to:
%a_zycbt011-codeven.
endif.
if not codmod is initial.
move codmod to:
%a_zycbt011-codmod.
endif.
if not bukrs is initial.
move bukrs to:
%a_zycbt011-bukrs.
endif.
__seqta_tab-gname = '/PWS/ZYCBT011'.
__seqta_tab-gmode = mode_zycbt011.
__seqta_tab-garg = %a_zycbt011.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYCBT011' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT012
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT012.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt012,
mandt like /pws/zyCBt012-mandt,
end of %a_zycbt012.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt012. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zycbt012-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYCBT012'.
__seqta_tab-gmode = mode_zycbt012.
__seqta_tab-garg = %a_zycbt012.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYCBT012' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT334
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT334.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt334,
mandt like /pws/zyglt334-mandt,
end of %a_zyglt334.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt334. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt334-mandt.
endif.
__seqta_tab-gname = 'ZYGLT334'.
__seqta_tab-gmode = mode_zyglt334.
__seqta_tab-garg = %a_zyglt334.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' 'ZYGLT334' _collect.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT339
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT339.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt339,
mandt like /pws/zyglt339-mandt,
end of %a_zyglt339.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt339. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt339-mandt.
endif.
__seqta_tab-gname = 'ZYGLT339'.
__seqta_tab-gmode = mode_zyglt339.
__seqta_tab-garg = %a_zyglt339.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' 'ZYGLT339' _collect.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT340
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT340.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt340,
mandt like /pws/zyglt340-mandt,
end of %a_zyglt340.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt340. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt340-mandt.
endif.
__seqta_tab-gname = 'ZYGLT340'.
__seqta_tab-gmode = mode_zyglt340.
__seqta_tab-garg = %a_zyglt340.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' 'ZYGLT340' _collect.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT341
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT341.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt341,
mandt like /pws/zyglt341-mandt,
end of %a_zyglt341.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt341. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt341-mandt.
endif.
__seqta_tab-gname = 'ZYGLT341'.
__seqta_tab-gmode = mode_zyglt341.
__seqta_tab-garg = %a_zyglt341.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' 'ZYGLT341' _collect.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT342
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT342.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt342,
mandt like /pws/zyglt342-mandt,
end of %a_zyglt342.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt342. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt342-mandt.
endif.
__seqta_tab-gname = 'ZYGLT342'.
__seqta_tab-gmode = mode_zyglt342.
__seqta_tab-garg = %a_zyglt342.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' 'ZYGLT342' _collect.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT343
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT343.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt343,
mandt like /pws/zyglt343-mandt,
end of %a_zyglt343.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt343. "#EC CI_CCALL
if not mandt is initial.
move mandt to:
%a_zyglt343-mandt.
endif.
__seqta_tab-gname = 'ZYGLT343'.
__seqta_tab-gmode = mode_zyglt343.
__seqta_tab-garg = %a_zyglt343.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' 'ZYGLT343' _collect.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT371
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT371.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt371,
mandt like /pws/zyglt371-mandt,
end of %a_zyglt371.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt371. "#EC CI_CCALL
if not mandt is initial.
move mandt to %a_zyglt371-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT371'.
__seqta_tab-gmode = mode_zyglt371.
__seqta_tab-garg = %a_zyglt371.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT371' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_ENQUEUE_ZYGLT372
* >> Início da inclusão:
FUNCTION /PWS/ZYGL_ENQUEUE_ZYGLT372.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zyglt372,
mandt like /pws/zyglt372-mandt,
end of %a_zyglt372.
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zyglt372. "#EC CI_CCALL
if not mandt is initial.
move mandt to %a_zyglt372-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYGLT372'.
__seqta_tab-gmode = mode_zyglt372.
__seqta_tab-garg = %a_zyglt372.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
using '1' __scope __wait ' ' '/PWS/ZYGLT372' _collect.
endfunction.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK972570 20091027 155132 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIED /PWS/ZYCBV224
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIED /PWS/ZYCBV225
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIED /PWS/ZYCBV290