Llamadas a listados con retorno

Algunas veces se crean programas que, en función de unas opciones de selección, permiten visualizar un tipo de listado u otro. Lo ideal es que el usuario no tenga salir del programa y volver a cada vez que quiera cambiar de listado, sino volver a la pantalla de selección y desde ahí elegir el nuevo listado que desea visualizar.

Esto se consigue mediante la combinación CALL SCREEN + LEAVE TO SCREEN 0. A continuación se muestra un ejemplo.

En el programa principal habrá un código del siguiente estilo:

END-OF-SELECTION. *-------------------------------------------- * se muestra el listado correspondiente IF p_rb_mt = 'X'. CALL SCREEN '0100'. ELSEIF p_rb_me = 'X'. CALL SCREEN '0200'. ELSEIF p_rb_te = 'X'. CALL SCREEN '0300'. ENDIF.

Y los módulo PAI de las pantallas deberán contener un código similar a éste:

*----------------------------------------------------------------------* * MODULE user_command_0100 INPUT *----------------------------------------------------------------------* * *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. *--> respuesta comandos dynpro CASE ok_code. WHEN 'EXIT' OR 'CANC'. LEAVE PROGRAM. WHEN 'BACK'. LEAVE TO SCREEN 0. ENDCASE. ENDMODULE. "USER_COMMAND_0100 INPUT

Es importante hacer uso del CALL SCREEN ya que si utilizamos la sentencia LEAVE TO SCREEN 0 con SET SCREEN nos echará del programa.