sexta-feira, 5 de outubro de 2012

Função - FUNCTION_EXISTS


*  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.