Selection-Screen / Block / Popup Selection örneği

tables: ymc_possb_h ."select options için gereklidir

selection-screen begin of screen 800 as subscreen     . "Hidden
selection-screen begin of block b0 .
select-options: s_startn for ymc_possb_h-pbh_node_start  obligatory memory id ymc_startn .
select-options: s_pbhid for ymc_possb_h-pbh_id      .
select-options: s_ncount for ymc_possb_h-pbh_node_count.
select-options: s_dist for ymc_possb_h-pbh_distance.
select-options: s_durat for ymc_possb_h-pbh_duration.
selection-screen end of block b0.

selection-screen begin of block b1 .
parameters:     p_collid type ymc_possb_h-pbh_collid default 1  memory id ymc_collid .
parameters:     p_maxrec type int4 default 5000 memory id ymc_maxrec.
selection-screen end of block b1.
selection-screen end of screen 800 .



"POPUP`ta veya Call Selection-Screen ile kullanılabilir.
selection-screen begin of screen 200  . ""Hidden
  selection-screen include blocks b0.
  selection-screen include blocks b1.
selection-screen end of screen 200 .

"Screen painter içinde kullanılabilir.
selection-screen begin of screen 201 as subscreen."Hidden
    SELECTION-SCREEN INCLUDE BLOCKS B0.
    selection-screen include blocks b1.
selection-screen end of screen 201 .



selection-screen begin of block b9 ."Visible
  selection-screen include blocks b0.
  selection-screen include blocks b1.
selection-screen end of block b9.

 initialization.


 start-of-selection .



 end-of-selection. 

  PERFORM f_get_data.
   perform f_create_alv.
   call screen 0100."ALV Screen

form f_sel_scr.
   "POPUP Örneği
  CALL SELECTION-SCREEN  0200  STARTING AT 5 5 ENDING AT 140 13 .

  PERFORM f_get_data.
ENDFORM.