Programas Sem Objetos de textos

*  Na maioria das vezes que vamos trabalhar com os textos entramos no
* tradicional menu conforme imagem abaixo.

 

 

*  Mas como somos pessoas ousadas, queremos incluir esses textos na raça,
* sem precisar criar qualquer tipo de objeto de texto, hoje esse post vou
* mostrar como fazer isso, não sei te explicar qual momento poderiamos
* usar isso, mas o mais importante é saber que é possível e que não é
* dificil o quanto parece. Como sempre, o segredo é estar familiarizado com
* com a cara de Debugger, vamos começar
*&---------------------------------------------------------------------*
REPORT z_text_in_selection_screen.

TYPES :
 BEGIN OF ty_name,
   name     TYPE screen-name,
   text(30) TYPE c,
 END OF   ty_name
 .

DATA :
  st_name TYPE ty_name,
  it_name TYPE TABLE OF ty_name
  .

* Declaração pra criar o Select-option.
DATA :
 vso_default TYPE c.

FIELD-SYMBOLS :
 <name> TYPE ANY.

* Tela de seleção
SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS :
  p_field1(3) TYPE c,
  p_field2(5) TYPE c,
  p_field3    TYPE p,
  p_field4    TYPE i
  .
SELECT-OPTIONS :
  s_field5  FOR vso_default.
.
SELECTION-SCREEN END OF BLOCK   b1.

* Processo inicial ( PBO )
AT SELECTION-SCREEN OUTPUT.