* Tudo bem aee pessoal, hoje vou mostrar uma
função que verifica se existe
* a função que você informou, alem disso essa função retorna algumas
* informações um pouco mais detalhada que podem te ajudar no desenvolvimento.
* Juntamente estou passando uma função de busca de funções, usando o
* comando 'AT SELECTION-SCREEN ON VALUE-REQUEST FOR' onde eu já usei em
* alguns programas de posts passados, mas em pouco tempo estarei fazendo um
* post somente sobre isso. t+ e bons estudos.
*&---------------------------------------------------------------------*
REPORT function_exists.
* Declaração dos retornos da função
DATA :
vg_group TYPE rs38l-area,
vg_include TYPE rs38l-include
.
* tela de seleção
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS :
p_fname TYPE rs38l-name. " Nome da função
SELECTION-SCREEN END OF BLOCK b1.
* Procedimento executando antes do processo normal do programa
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
PERFORM f_busca_func.
* Inicio do processo
START-OF-SELECTION.
* Verifica a existencia do função informada.
PERFORM f_check_func.
* Exibe o resultado
PERFORM f_exibe_returno.
* a função que você informou, alem disso essa função retorna algumas
* informações um pouco mais detalhada que podem te ajudar no desenvolvimento.
* Juntamente estou passando uma função de busca de funções, usando o
* comando 'AT SELECTION-SCREEN ON VALUE-REQUEST FOR' onde eu já usei em
* alguns programas de posts passados, mas em pouco tempo estarei fazendo um
* post somente sobre isso. t+ e bons estudos.
*&---------------------------------------------------------------------*
REPORT function_exists.
* Declaração dos retornos da função
DATA :
vg_group TYPE rs38l-area,
vg_include TYPE rs38l-include
.
* tela de seleção
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS :
p_fname TYPE rs38l-name. " Nome da função
SELECTION-SCREEN END OF BLOCK b1.
* Procedimento executando antes do processo normal do programa
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
PERFORM f_busca_func.
* Inicio do processo
START-OF-SELECTION.
* Verifica a existencia do função informada.
PERFORM f_check_func.
* Exibe o resultado
PERFORM f_exibe_returno.