W Pub: ABAP Rut Sel Opt

  1. REPORT  ZFALSOS_RANGES_EN_SUBSCREN.
  2.  
  3. *--[ Diseño de la pantalla
  4. tables: bseg.
  5.  
  6. SELECT-OPTIONS: param_01 for bseg-bukrs,
  7.                 param_02 for bseg-bukrs.
  8.  
  9. LOAD-OF-PROGRAM.
  10. *--[ Comunicación con el programa origen
  11. import param_01 from MEMORY id 'ZP1'.
  12. import param_02 from MEMORY id 'ZP2'.
  13.  
  14. *--[ Presentamos la pantalla prediseñada
  15. call SELECTION-SCREEN '1000' STARTING AT 10 10 ENDING AT 120 20.
  16.  
  17. *--[ Exportamos los nuevos rangos para el programa de origen
  18. export param_01 to MEMORY id 'ZP1'.
  19. export param_02 to MEMORY id 'ZP2'.
  20.  
  21. *--[ Presentamos la pantalla 1000
  22. INITIALIZATION.
  23. *--[ Pero mejor saliemos, ya hemos hecho el trabajo
  24. LEAVE PROGRAM.
[$[Get Code]]