Sub-screens en pantallas de selección

En el siguiente post se explica cómo se añaden sub-pantallas a las pantallas de selección (SELECTION-SCREEN). Este ejemplo está motivado por la falta de opciones de formato que poseen los parámetros de entrada/salida estándar que proporcionan las instrucciones PARAMETERS.

Se desea crear una interfaz que le permita introducir al usuario notas referentes a incidencias y observaciones cuyo contenido puede llegar a ocupar hasta 375 caracteres. Existen dos inconvenientes iniciales que aparecen al declarar tales campos como PARAMETERS:

• Permiten como máximo introducir hasta 255 caracteres.
• El marco visible del campo es de 45 caracteres por lo que el usuario no puede ver el mensaje al completo.

Solución

Se ha optado por definir dos DYNPROS, una para cada campo, e incluirlas en la pantalla de selección estándar (DYNPRO 1000) como sub-pantallas. Cada DYNPRO estará formada por 5 campos de entrada/salida con longitud máxima (y visual) de 75 caracteres. Obteniéndose el resultado que se muestra en la imagen.

El código necesario se describe a continuación.

REPORT zsub_screens USING DATABASE pnp. ********************************************************************** *&-------------------------------------------------------------------* *& Variabes de las subscreens *&-------------------------------------------------------------------* DATA: p_incid1(75), p_incid2 LIKE p_incid1, p_incid3 LIKE p_incid1, p_incid4 LIKE p_incid1, p_incid5 LIKE p_incid1, p_obser1(75), p_obser2 LIKE p_obser1, p_obser3 LIKE p_obser1, p_obser4 LIKE p_obser1, p_obser5 LIKE p_obser1. *&---------------------------------------------------------------------* *& Pantalla de selección *&---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK frm1 WITH FRAME TITLE text-001. PARAMETERS: p_fchreg LIKE sy-datum DEFAULT sy-datum. " Fecha registro SELECTION-SCREEN SKIP. SELECTION-SCREEN BEGIN OF BLOCK frm2 WITH FRAME TITLE text-002. PARAMETERS: p_porta RADIOBUTTON GROUP tipo DEFAULT 'X', p_resp1 RADIOBUTTON GROUP tipo, p_resp2 RADIOBUTTON GROUP tipo. SELECTION-SCREEN END OF BLOCK frm2. SELECTION-SCREEN END OF BLOCK frm1. SELECTION-SCREEN: BEGIN OF BLOCK frm3 WITH FRAME TITLE text-010, BEGIN OF TABBED BLOCK sub1 FOR 6 LINES, END OF BLOCK sub1, END OF BLOCK frm3. SELECTION-SCREEN: BEGIN OF BLOCK frm4 WITH FRAME TITLE text-011, BEGIN OF TABBED BLOCK sub2 FOR 6 LINES, END OF BLOCK sub2, END OF BLOCK frm4. *&---------------------------------------------------------------------* *& Inicialización *&---------------------------------------------------------------------* INITIALIZATION. * Se cargan las subpantallas sub1-prog = sy-repid. sub1-dynnr = 100. sub2-prog = sy-repid. sub2-dynnr = 200.